<%
dim napaka
napaka=0
dim ime
ime = Request.QueryString("ime")
If ime = "" Then
Response.Write("Nisem prejel vašega imena!
")
napaka=1
End If
dim priimek
priimek= Request.QueryString("priimek")
If priimek= "" Then
Response.Write("Nisem prejel vašega priimka!
")
napaka=1
End If
dim naslov
naslov = Request.QueryString("naslov")
If naslov = "" Then
Response.Write("Nisem prejel vašega naslova!
")
napaka=1
End If
dim spol
spol= Request.QueryString("spol")
If spol= "" Then
Response.Write("Nisem prejel vašega spola!
")
napaka=1
End If
dim poznavanjeST
poznavanjeST= Request.QueryString("poznavanjeST")
If poznavanjeST= "" Then
Response.Write("Nisem prejel vašega poznavanja spletnih tehnologij!
")
napaka=1
End If
dim avtomobili
avtomobili= Request.QueryString("avtomobili")
If avtomobili= "" Then
Response.Write("Nisem prejel vašega izbranega avtomobila!
")
napaka=1
End If
dim geslo
geslo= Request.QueryString("geslo")
If geslo= "" Then
Response.Write("Nisem prejel vašega gesla!
")
napaka=1
End If
dim skrito
skrito= Request.QueryString("skrito")
If skrito= "" Then
Response.Write("Nisem prejel vašega skritega sporočila!
")
napaka=1
End If
If napaka=1 Then
Response.End
End If
%>
Pozdravljen<%If spol="Z" Then Response.Write("a") End If%>
<%Response.Write(" " & ime & " " & priimek & "!")%>
Jaz sem strežniška skripta, ki sem ti na podlagi podatkov iz tvojega obrazca pripravila ta odgovor. Za nagrado, ker obvladaš
<%Response.Write(" " & poznavanjeSt)%> in si mi pravilno
oddal<%If spol="Z" Then Response.Write("a") End If%>
svoje podatke, boš na naslov
<%Response.Write(" '" & naslov & "' ") %>
dobil<%If spol="Z" Then Response.Write("a") End If%> avtomobil
<%Response.Write(" " & avtomobili )%>, ki si ga izbral<%If spol="Z" Then Response.Write("a") End If%>.
Tvoje geslo je <%Response.Write(" '" & geslo & "'") %>,
tvoje skrito sporočilo pa <%Response.Write(" '" & skrito& "'") %>.