<![CDATA[
Listing 5: CheckForm.INC
<%
dim Quest, Ans, QuizLen, Name, Item, Extras
Extras = 3
Name = (Request(Cstr("Player")))
If Name = "" Then
Name = "A. Nonny Mouse"
End If
Response.Write("OK, " & Name & ". Here is a summary of your answers: <br><br> ")
QuizLen = 1
For Each Item In Request.Form
QuizLen = QuizLen +1
Next
'This is to help you debug the form!
'Response.Write(QuizLen & " items" & "<br>")
for Quest = 1 to QuizLen - Extras
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 - Extras
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.
]]>