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.