<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% option explicit
' --- Sessions erstellen und Wert festlegen
function wert(z1,z2)
RANDOMIZE(TIME())
dim u : u = z1
dim o : o = z2
wert = INT( (o-u +1) * RND()+u)
end function
' --- Session mit Werte befüllen
if session("z1") = "" then session("z1") = wert(10,99)
if session("z2") = "" then session("z2") = wert(1,9)
' --- Per "Zufall" entscheiden, ob Summe oder Subtration
dim zZahl1, y
zZahl1 = session("z1") + session("z2")
y = " und "
if session("z2") >= 5 then
zZahl1 = session("z1") - session("z2")
y = " minus "
end if
' --- Aufruf definieren
dim zZahl
zZahl = "Was ist das Ergebnis von " & _
session("z1") & y & session("z2") & "?<br><br>"
dim ausgabe
ausgabe = "Bitte folgende Felder * ausfüllen"
' --- Ist das Formular abgeschickt
if Request.Form.count > 0 then
dim zahl
zahl = Request.form("zahl")
' --- Überprüfungsvariablen den Wert ok bzw. 1 geben
dim allesok
allesok = 1
' --- ist Feldwert ungleich des Sessionergebnisses, ist der Eintrag falsch
if cstr(zahl) <> cstr(zZahl1) then
allesok = 0
Ausgabe = "<span style=""color:red"">Was ist das Ergebnis?</span>"
end if
end if
' --- Ist der Feldwert korrekt eingegeben, können die Formularergebnisse weiterverarbeitet werden
if allesok then
Response.write "alles ok"
session.contents.remove("z2")
session.contents.remove("z1")
' --- Optional.. nur zum Testen, Neustart der Seite
Response.write "<br><a href=""" & Request.ServerVariables("SCRIPT_NAME") & """>start</a>"
else
' --- Start des Formulars
Response.write ausgabe
call formular
end if
sub formular
%>
<form method="post" action="<% = Request.ServerVariables("SCRIPT_NAME")%>">
<div><% = zZahl %></div>
<input type="text" name="zahl" value="<% = zahl %>"/><br />
<input type="submit" name="Submit" value="Senden" id="Submit">
</form>
<% end sub %>