Hola Gracias por su pronta respuesta, este es codigo mediante el cual recojo los datos:
<table border="0" width="90%">
<tr>
<td width="100%" colspan="2" align="center"><font face="Verdana" size="2"><b><%=ra("texto")%>
</b></font>
</td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center"> </td>
</tr>
<tr>
<td width="100%" colspan="2">
<div align="center">
<center>
<table border="0" width="50%">
<%if ra("opcion1")<>"" then%>
<tr>
<td width="10%"><font face="Verdana" size="1"><input type="radio" value="1" name="R1"></font></td>
<td width="90%"><font face="Verdana" size="1"><%=ra("opcion1")%></font></td>
</tr>
<%end if%>
<%if ra("opcion2")<>"" then%>
<tr>
<td width="10%"><font face="Verdana" size="1"><input type="radio" value="2" name="R1"></font></td>
<td width="90%"><font face="Verdana" size="1"><%=ra("opcion2")%></font></td>
</tr>
<%end if%>
<%if ra("opcion3")<>"" then%>
<tr>
<td width="10%"><font face="Verdana" size="1"><input type="radio" value="3" name="R1"></font></td>
<td width="90%"><font face="Verdana" size="1"><%=ra("opcion3")%></font></td>
</tr>
<%end if%>
<%if ra("opcion4")<>"" then%>
<tr>
<td width="10%"><font face="Verdana" size="1"><input type="radio" value="4" name="R1"></font></td>
<td width="90%"><font face="Verdana" size="1"><%=ra("opcion4")%></font></td>
</tr>
<%end if
ra.close
%>
y este es donde se hace la suma de los valores:
<%else
'ON ERROR RESUME NEXT
correctas=0
incorrectas=0
enblanco=0
sqltxt="select idpregunta, respuestacorrecta from preguntas where idtest="&session("test")
ra.open sqltxt,oconn,adOpenKeyset,adLockOptimistic
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 '***LINEA del ERROR***
correctas=correctas+1
'err.clear
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=3
'const adLockOptimistic=3
'ra.CursorType = adOpenKeyset
'ra.LockType = adLockOptimistic
ra.open "puntuaciones", oconn
ra.addnew
ra("idtest")=(session("test"))
ra("puntuacion")=total
ra("fecha")=date()
if session("nick")="" then 'OJO**** AQUI SE PUEDE SOLICITAR EL NOMBRE DEL USUARIO DIRECTO DE SU INICIO DE SESSION
nick="Anonimo"
else
nick=session("nick")
end if
ra("nick")=nick
ra.update
ra.close
session("apuntar")="ok"
end if
%>
ESPERO ME PUEDAN AYUDAR PORFA....