Hi to all of u....

<%
    dim rs,rs1
        set rs=server.CreateObject ("adodb.recordset")
        set rs1=server.CreateObject ("adodb.recordset")
       rs.Open "select *from QQ1to75",con,adOpenForwardOnly,adLockOptimistic,ad cmdtxt
        rs1.Open "select *from answer",con,adOpenForwardOnly,adLockOptimistic,adc mdtxt
                dim counter
                        counter=0
                        punter=0
                        while not rs.EOF
                        if rs("Q_id")=rs1("Q_id") then
                           if rs("answer")=rs1("answer") then
                              counter=counter+1
                           else
                              punter=punter+1
                           end if
                       end if
                       rs1.MoveNext
                       rs.MoveNext
                       wend
                       session("count")=counter
                       session("punt")=punter
                       rs.Close
                       rs1.Close
              session("count")=counter
              session("punt")=punter
                       set rs=nothing
                       set rs1=nothing
                       dim rs3
                       set rs3=server.CreateObject("adodb.recordset")
                       rs3.Open "delete * from answer",con


                       %>
 Number of right Answers - <%=session("count")%>
 Number of wrong Answers - <%=session("punt")%>

When i run this project first time it shows correct answer, but when i click on the refresh button it shows error...[/size=6]

Error Type:
(0x80020009)
Exception occurred.
/ver9/report2.asp, line 104


thanks

Prabhakar


Prabhakar Kumar

__________________
Prabhakar Kumar

hello,

  You have same no of records in the questions table and answers table? You can write a combined query for questions and answers and you can check easily.

What exactly the line no 104 where the error occured.