<![CDATA[
Listing 3: CheckForm.INC
<%
Dim Quest, Ans, QuizLen, Name
QuizLen=3
Name = (Request(Cstr("Player")))
If Name = "" Then
Name = "A. Nonny Mouse"
End If
Response.Write("Here is a summary of your answers: <br>")
For Quest = 1 to QuizLen
Ans = (Request(Cstr(Quest)))
If Ans= "" then
Ans = "?"
End If
Response.Write (Quest & " = " & Ans & "<br>")
Next
response.write("<br>Please <a href=""mailto:someone@somewhere?body=")
for Quest = 1 to QuizLen
Ans=(Request(Cstr(Quest)))
if Ans= "" then
Ans = "?"
End If
Response.Write (Quest & "=" & Ans & "\")
Next
Response.Write ("Name =" & Name & ". End")
Response.Write(" "">Click Here</a>")
%>
to email your response or click <a href="javascript:history.back(1)"> Back</a> on your browser to try again.
]]>