Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ADO
 Mandar llamar mas registros
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Rookie
Starting Member

Mexico
22 Posts
Mensajes - 07 Jan 2003 :  20:13:50  Ver Perfil  Enviar Email
Ahora es que tengo varios registros almacenados en la bd, mando llamar el primero y si me lo muestra, pero luego mando llamar el que sigue y me sigue enviando el primer registro, y no marca error que para mi ya es como una pequeña victoria, a continuacion esta el codigo y gracias.
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
%>
<%strconn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("gep-m.mdb")
set conn = Server.CreateObject("ADODB.Connection")
conn.open strconn
set rs=server.createobject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
%>
<%if isarray(session("mytest"))=false then
no_examen=request("no_examen")

dim examen(25,1)
rs.open "preguntas",conn
i=0
do while not rs.eof
i=i+1
examen(i,0)=rs("no_pregunta")
examen(i,1)=0
rs.movenext
loop
rs.close
session("npreguntas")=i
session("test")=no_examen
session("posicion")=1
posicion=1
session("mytest")=examen

else
examen=session("mytest")
posicion=session("posicion")
examen(posicion,1)=request.form("r1")
session("mytest")=examen

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

%>
<html>
<head>
<title>Examen en Linea</title>
</head>
<body>
<form method="POST" action="enlinea.asp">
<p align="center">Examen en Linea</p>
<div align="center">
<center>
<table border="1" width="90%">
<tr>
<td width="100%" bgcolor="#B12148" align="center">
<p align="center"><font color="#FFFFFF" face="Verdana" size="1"><b><b>
Question<%=session("posicion")%> de <%=session("npreguntas")%></b></font></td>
</tr>
<tr>
<td width="100%">
<div align="center">
<center>
<%no_pregunta=examen(posicion,1)
sqltxt="select * from preguntas where no_pregunta="&no_pregunta
rs.open "preguntas",conn
%>
<table border="0" width="90%">
<tr>
<td width="100%" colspan="2" align="center"><font face="Verdana" size="2"><b><%=rs("enunciado")%>
</b></font>
</td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center">&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>
<%
set rs=nothing
conn.close
set conn=nothing
%>

</body>

buho_nero
Moderator

España
1316 Posts
Posted - 08 Jan 2003 :  17:53:28  Ver perfil  Enviar e-mail
Por lo que veo rellenas las variables session con arrays, pero no veo que los recorras cuando estás mostrándolos en HTML.
También tienes un rs("enunciado") sin mas, para que te los muestre todos:

...
<%
rs.first
while not rs.eof
%>
<tr>
<td width="100%" colspan="2" align="center"><font face="Verdana" size="2"><b><%=rs("enunciado")%>
</b></font>
</td>
</tr>
<%
rs.movenext
wend
%>
...


Inicio Pagina

   
 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