
Listing 4: Modified Decoder Section

	Quest = 0
	While  Ans <> ":" 
		Quest = Quest + 1
		Ans = (Request(Cstr(Quest)))
		If Ans= "" then
			ans = "?"
		End If
		If Ans<>":" Then
			Response.Write (Quest & " = " & Ans & "<br>")
		End If
	Wend