<%@ language=vbscript %>
<% OPTION EXPLICIT %>
Biernot-Spiel
<%
dim titel,deinname,deinname2
titel = "Biernot-Spiel"
MsgBox("Wollen Sie das Biernot-Spiel spielen?", vbOKCancel, titel)
deinname = InputBox("Gib Deinen Namen ein:", titel)
If deinname <> "Arschloch" Then
Call MsgBox("Falsch!", vbOKOnly, titel)
Call MsgBox("Dein Name ist Arschloch, Arschloch!", vbOKOnly, titel)
deinname2 = InputBox("Gib Deinen Namen ein, Arschloch!", titel)
Else
Call MsgBox("Richtig!", vbOKOnly, titel)
End If
%>