Demo web-app v2
Version 2 of demo-webb-app…
<html>
<body>
<font face="verdana, arial" size="2">
i räknar från 0 till 250.<br>
Om i är mer än <%= Application("rnd") %> så kommer det upp<br>
en "felaktig" text…<br><br>
<%
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") & "<br><br>"
if Application("i") < Application("rnd") then
Response.Write "<font color=""green"">Fungerar finfint</font>"
else
Response.Write "<font color=""red""><b>Nu fungerar det INTE det minsta</b></font>"
end if
if Application("i") = 250 then
Application("i") = 0
Application("rnd") = 150 + Int((100 – 1 + 1) * Rnd + 1)
end if
%>
</font>
</body>
</html>
Gives you a bit niceer health-report…
(This one contains planed downtime …)
