Problem with form results

'This piece generate the quizpage

'now start the main loop to find all the questions

set RS = MyConn.Execute("SELECT * FROM OE_question WHERE QuizID=" & request.querystring("Quiz") & " ORDER BY Number")

if not RS.EOF then

    RS.movefirst

    do
  
         & ;nbs p; If RS("QuestionImage") <> "" then

             
response.write "<p>" & "<img src=imagini/" &
RS("QuestionImage") & ">" & "</p>"
  
         & ;nbs p;    Else 

   end if

        response.write "<b>" &
rs("Number") & ". " & rs("Question") &
"</b><p>" & chr(13)
  
         & ;nbs p;  'now display the available options

        set ORS = MyConn.Execute("SELECT
* FROM OE_options WHERE QuestionID =" & RS("QuestionID") )

        if not ORS.EOF then

            ORS.movefirst

            do 

                If RS("QuestionType") = "1" then

           
    response.write "<input type=Radio
Name=""Question" & RS("QuestionID") & """ Value=""Answer" &
ORS("OptionID") & """>" & ORS("Q_Option") & "<br>"
& chr(13)

                Else

           
    response.write "<input type=Checkbox
Name=""Question" & RS("QuestionID") & """ Value=""Answer" &
ORS("OptionID") & """>" & ORS("Q_Option") & "<br>"
& chr(13)

                End if

                ORS.movenext

            loop until ORS.EOF

        end if

        response.write "<p>" & "<HR>"

        RS.movenext

    loop until RS.EOF

end if

MyConn.close

%>

'This piece reads the answers

'now start the main loop to mark all the questions

set RS = MyConn.Execute("SELECT * FROM OE_question WHERE QuizID=" & request.querystring("Quiz") & " ORDER BY Number")

if not RS.EOF then

    RS.movefirst

    do

        response.write "<b>" &
rs("Number") & ". " & rs("Question") &
"</b><br>" & chr(13)

        'now check the users answer

        answer = request.form("Question" & rs("QuestionID"))

        if len(answer)>0 then

            'now get rid of the answer, we just want the number on the end

            answernum = right(answer,len(answer)-6)

            set ORS =
MyConn.Execute("SELECT * FROM OE_options WHERE OptionID=" &
answernum )

            if not ORS.EOF then

                ORS.movefirst

                do

           
    response.write "R&#259;spunsul ales: " &
ORS("Q_Option") & "<br>"

                if ORS("tick") = "1" then 'show a tick

           
        response.write "<img
src=""imagini/ASPtick.gif"">"

                else    'show a cross

           
        response.write "<img
src=""imagini/ASPcross.gif"">"

                end if

           
    response.write " " & ORS("mark") & " : "
& ORS("Response") & chr(13)

                summark=summark + ORS("mark")

                ORS.MoveNext

                Loop until ORS.EOF

                end if

        else

            response.write
"Nu a&#355;i r&#259;spuns la aceast&#259; întrebare."

        end if

        response.write "<p>"

        RS.movenext

    loop until RS.EOF

end if



response.write "<hr color = ""#0066ff""><font face =
""Georgia, Times New Roman, Times, serif"" color =
""#990000"">A&#355;i ob&#355;inut " & summark & "
puncte din " & totalmark & " posibile.</font>"



%>

POST Data:

 
Question33=Answer133&Question34=Answer137&Question 35=Answer141&Question35=Answer142&Question36=Answer1 46&Question37=Answer149&Question38=Answer154&Que stion38=Answer155&Question39=Answer157&Question40=
 . . .