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.