sole the error 0x80020009
Hi to all of u....Please look at my problem...
<%
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...
the error is at the line...
if rs("Q_id")=rs1("Q_id") then
Error Type:
(0x80020009)
Exception occurred.
/ver9/report2.asp, line 104
thanks
Prabhakar
Prabhakar Kumar
__________________
Prabhakar Kumar
|