Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Ayuda por favor para este test online
 Foro Bloqueado  Tema Bloqueado


Autor Temas
host
Starting Member

Bolivia
20 Posts
Mensajes - 01 Sep 2004 :  22:10:59  Ver Perfil  Enviar Email  Visit host's Homepage
Hola amigos, de asptutor tengo un pequeño problema he descargado el Test onlinea y he querido aumentar mas preguntas al test, pero al momento de evaluar me sale un error, y no se como solucionarlos que es el siguiente

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0009)
El subíndice está fuera del intervalo: 'posicion'
/prosemillas2/test/test.asp, línea 49

adjunto el codigo de test.asp

<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("examenes.mdb"))
set ra=createobject("ADODB.Recordset")
%>
<%if isarray(session("mytest"))=false then
idtest=request("idtest")
if idtest="" then response.redirect "default.asp"
dim pmytest(25,1)
sqltxt="select idpregunta from preguntas where idtest="&idtest

ra.open sqltxt,conn
if ra.eof then
ra.close
set ra=nothing
conn.close
set conn=nothing
response.redirect "resettest.asp"
end if
i=0
do while not ra.eof
i=i+1
pmytest(i,0)=ra("idpregunta")
pmytest(i,1)=0
ra.movenext
loop
ra.close
sqltxt="select titulo from test where idtest="&idtest
ra.open sqltxt,conn
titulo=ra("titulo")
ra.close
session("npreguntas")=i
session("test")=idtest
session("titulo")=titulo
session("posicion")=1
posicion=1
session("mytest")=pmytest
session("nick")=trim(request.form("nick"))
else
pmytest=session("mytest")
posicion=session("posicion")
pmytest(posicion,1)=request.form("r1")
session("mytest")=pmytest

if posicion <= session("npreguntas") then
posicion=posicion+1
session("posicion")=posicion
end if
end if
if pmytest(posicion,1)<>"" then

%>
<html>

</head>

<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" marginwidth="0" marginheight="0" bgcolor="#E4FFDD">
<table border="0" width="100%" cellspacing="1" style="border-collapse: collapse" height="76">
<tr>
<td background="banner.jpg">&nbsp;</td>
</tr>
</table>
<form method="POST" action="test.asp">

<div align="center">
<center>
<table border="1" width="95%">
<tr>
<td width="100%" bgcolor="#B12148" align="center">
<p align="center"><font color="#FFFFFF" face="Verdana" size="2"><b><%=session("titulo")%></b></font><font color="#FFFFFF" face="Verdana" size="1"><b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
Pregunta <%=session("posicion")%> de <%=session("npreguntas")%></b></font></td>
</tr>
<tr>
<td width="100%">
<div align="center">
<center>
<%idpregunta=pmytest(posicion,0)
sqltxt="select * from preguntas where idpregunta="&idpregunta
ra.open sqltxt,conn
%>
<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">&nbsp;</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%>

</table>
</center>
</div>
</td>
</tr>
<tr>
<td width="100%">
&nbsp;&nbsp; </td>
</tr>
<tr>
<td width="100%">
<p align="center"><input type="submit" value="Enviar" name="B1"></td>
</tr>
</table>
</center>
</div>


<p align="center">

</form>

<%else
correctas=0
incorrectas=0
enblanco=0
sqltxt="select idpregunta,respuestacorrecta from preguntas where idtest="&session("test")
ra.open sqltxt,conn
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
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*25/session("npreguntas")
pincorrectas=incorrectas*(25/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",conn
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
%>
</div>
</center>
<table border="0" width="100%" cellspacing="1" style="border-collapse: collapse" height="76">
<tr>
<td background="banner.jpg">&nbsp;</td>
</tr>
</table>

<div align="center">
<center>
<table border="0" width="80%">
<tr>
<td width="100%" colspan="4" bgcolor="#B12148">
<p align="center"><font color="#FFFFFF"><%=session("titulo")%></font></td>
</tr>
<tr>
<td width="33%" valign="middle" bgcolor="#CDB1B7"><font face="Verdana" size="1"><b>Respuestas correctas</b></font></td>
<td width="7%" valign="middle" align="center" bgcolor="#CDB1B7"><font face="Verdana" size="1" color="#0000FF"><b><%=correctas%></b></font></td>
<%ancho=correctas/session("npreguntas")*100 %>
<td width="39%" bgcolor="#CDB1B7"><img border="0" src="barrav.gif" width="<%=ancho%>%" height="25" ></td>
<td width="21%" align="right" valign="middle" bgcolor="#CDB1B7"><font face="Verdana" size="1"><b><%=formatnumber(pcorrectas,2)%> puntos</b></font></td>
</tr>
<tr>
<td width="33%" valign="middle" bgcolor="#CDB1B7"><font face="Verdana" size="1"><b>Respuestas incorrectas</b></font></td>
<td width="7%" valign="middle" align="center" bgcolor="#CDB1B7"><font face="Verdana" size="1" color="#0000FF"><b><%=incorrectas%></b></font></td>
<%ancho=incorrectas/session("npreguntas")*100 %>

<td width="39%" bgcolor="#CDB1B7"><img border="0" src="barrar.gif" width="<%=ancho%>%" height="25" ></td>
<td width="21%" align="right" valign="middle" bgcolor="#CDB1B7"><font face="Verdana" size="1"><b><%=formatnumber(pincorrectas,2)%> puntos</b></font></td>
</tr>
<tr>
<td width="33%" valign="middle" bgcolor="#CDB1B7"><font face="Verdana" size="1"><b>Respuestas en blanco</b></font></td>
<td width="7%" valign="middle" align="center" bgcolor="#CDB1B7"><font face="Verdana" size="1" color="#0000FF"><b><%=enblanco%></b></font></td>
<%ancho=enblanco/session("npreguntas")*100 %>

<td width="39%" bgcolor="#CDB1B7"><img border="0" src="barran.gif" width="<%=ancho%>%" height="25" ></td>
<td width="21%" align="right" valign="middle" bgcolor="#CDB1B7"></td>
</tr>
<tr>
<td width="33%" valign="middle" bgcolor="#CDB1B7"><font face="Verdana" size="1"><b>Calificación (sobre 20):</b></font></td>
<td width="7%" valign="middle" align="center" bgcolor="#CDB1B7">
<p align="center"><font face="Verdana" size="1" color="#0000FF"><b>
<%if total>=5 then%>
<img border="0" src="bien.gif">&nbsp;</b></font></p>
<%else%>
<img border="0" src="mal.gif">&nbsp;</b></font></p>
<%end if%>

</td>
<%ancho=total/session("npreguntas")*100 %>

<td width="39%" bgcolor="#CDB1B7"><img border="0" src="barraa.gif" width="<%=ancho%>%" height="25" ></td>
<td width="21%" align="right" valign="middle" bgcolor="#CDB1B7"><b><font face="Verdana" size="1" color="#0000FF"><%=formatnumber(total,2)%> puntos</font></b></td>
</tr>
</table>
</center>
</div>
<p align="center">


<div align="center">
<center>
<table border="0" width="80%" bgcolor="#B12148">
<tr>
<td width="33%" align="center" bgcolor="#FFFFFF"><font face="Verdana" size="1"><b>repetir el examen</b></font></td>
<td width="33%" align="center" bgcolor="#FFFFFF">&nbsp;</td>
<td width="34%" align="center" bgcolor="#FFFFFF"><b><font face="Verdana" size="1">Hacer
otro test</font></b></td>
</tr>
</table>
</center>
</div>


<p align="center"><br>
<br>
<br>
&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>
<p align="center">&nbsp;</p>

<div align="center">
<center>
<table border="0" width="80%">
<tr>
<td width="16%" align="center" bgcolor="#B12148"><font face="Verdana" size="1" color="#FFFFFF"><b>Posicion</b></font></td>
<td width="33%" align="center" bgcolor="#B12148"><font face="Verdana" size="1" color="#FFFFFF"><b>Nick</b></font></td>
<td width="17%" align="center" bgcolor="#B12148"><font face="Verdana" size="1" color="#FFFFFF"><b>Fecha</b></font></td>
<td width="34%" align="center" bgcolor="#B12148"><font face="Verdana" size="1" color="#FFFFFF"><b>Puntos</b></font></td>
</tr>
<%sqltxt="select * from puntuaciones where idtest="&session("test")&" order by puntuacion desc"
ra.open sqltxt,conn
contador=1
do while not ra.eof and contador < 10
%>
<tr>
<td width="16%" align="center" bgcolor="#CDB1B7"><font face="Verdana" size="1"><b><%=contador%></b></font></td>
</center>
<td width="33%" align="center" bgcolor="#CDB1B7">
<p align="left"><font face="Verdana" size="1"><b><%=ra("nick")%></b></font></td>
<td width="17%" align="center" bgcolor="#CDB1B7"><font face="Verdana" size="1"><b><%=ra("fecha")%></b></font></td>
<td width="34%" align="center" bgcolor="#CDB1B7">
<p align="right"><font color="#0000FF" size="1" face="Verdana"><b><%=formatnumber(ra("puntuacion"),2)%>
puntos</b></font></td>
</tr>
<center>
<center>
<%contador=contador+1
ra.movenext
loop
ra.close%>
</table>
</center>
</div>

<%
set ra=nothing
conn.close
set conn=nothing
end if%>


</center>
<p>&nbsp;&nbsp;&nbsp;&nbsp;</p>

</body>

Les agradeceria mucho su ayuda herland


Herland Montenegro

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar