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