examen on line

[alexgonzalez]

buenas ya el error anterios esta resuelto ahora me da este error: Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos
/cursosAHSI/test.asp, line 157

y estas son las lineas en cuestion:

<%else
correctas=0
incorrectas=0
enblanco=0
sqltxt="select idpregunta, respuestacorrecta from preguntas where idtest="&session("test")
ra.open sqltxt,oconn
do while not ra.eof
for i=1 to session("npreguntas")
if pmytest(i,0)=ra("idpregunta") then
if pmytest(i,1)<>"" then
if cint(pmytest(i,1))=ra("respuestacorrecta") then ' linea157
correctas=correctas+1
else
incorrectas=incorrectas+1
end if
else
enblanco=enblanco+1
end if
end if
next
ra.movenext
loop
ra.close
pcorrectas=correctas*10/session("npreguntas")
pincorrectas=incorrectas*(10/session("npreguntas")/2)*-1
total=pcorrectas+pincorrectas
if total<0 then total=0

if session("apuntar")<>"ok" then
Const adOpenKeyset = 1
Const adLockOptimistic = 3

ra.CursorType = adOpenKeyset
ra.LockType = adLockOptimistic
ra.open "puntuaciones",oconn
ra.addnew
ra("idtest")=cint(session("test"))
ra("puntuacion")=total
ra("fecha")=date()
if session("nick")="" then
nick="Anonimo"
else
nick=session("nick")
end if
ra("nick")=nick
ra.update
ra.close
session("apuntar")="ok"
end if

porfa necesito culminar con esto y ya tengo 3 dias sin poder terminar gracias...