Version 2 of demo-webb-app…

i räknar från 0 till 250.

Om i är mer än <%= Application("rnd") %> så kommer det upp

en "felaktig" text…


<%

Randomize
if int(Application("rnd")) = 0 then
Application("rnd") = 150 + Int((100 – 1 + 1) * Rnd + 1)
end if

Application("i") = Int(Application("i")) + 1

Response.Write "i = " & Application("i") & "

"

if Application("i") < Application("rnd") then
Response.Write "Fungerar finfint"
else
Response.Write "Nu fungerar det INTE det minsta"
end if

if Application("i") = 250 then
Application("i") = 0
Application("rnd") = 150 + Int((100 – 1 + 1) * Rnd + 1)
end if

%>

Gives you a bit niceer health-report…

(This one contains planed downtime …)