Hola a todos
Tengo que mostrar una tabla que tiene unos cuantos registros y para que no se haga muy pesado habia pensado mostrar la tabla en varias paginas, para lo cual utilizo esto:
<%if request.QueryString("Página")="Página Siguiente" then
session("Página")=Session("Página") +1
elseif Request.QueryString("Página")="Página Anterior" then
session("Página")=Session("Página")-1
else session("Página")=1
end if
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.Open "colegio"
Set RS=Server.CreateObject("ADODB.Recordset")
Response.Write("<br><br>")%>
<div align="center"><strong><font size="5" face="Courier New, Courier, mono">Datos del administrador</font></strong></div>
<%Response.Write("<br><br>")
RS.pageSize=10
RS.AbsolutePage=session("Página")%>
<div align="left"><strong>Página <%= Session("Página")%> de <%=Ob_RS.PageCount%></strong></div>
<%Response.Write("<br><br>")
dim dni
dni=request.Form("dniadm")
if dni<>"" then
set rs=conn.execute("select * from profesor where dni='"&dni&"' and administrador=1")
if rs.eof then%>
<script language="JavaScript">ErrorDNI();</script>
<%else
Response.Write("<center><table border=1><tr><th>Nombre<th>DNI<th>Correo electrónico<th>Nombre usuario<th>Clave")
registro=0
do while registro<10 and not rs.eof
Response.Write("<tr><td height=25 width=200>"&" "&"<center>"&RS("Nombre")&" "&RS("Apellido1")&" "&RS("Apellido2")&" ")
Response.Write("<td width=150>"&" "&"<center>"&RS("DNI")&" ")
Response.Write("<td width=150>"&" "&"<center>"&RS("corelec")&" ")
Response.Write("<td width=150>"&" "&"<center>"&RS("nomusu")&" ")
Response.Write("<td width=150>"&" "&"<center>"&RS("clave")&" ")
registro=registro+1
Rs.movenext
loop
response.Write("</table>")%>
<%end if%>
<%end if%>
<form method="get" action="paginar.asp">
<%if session("Página")>1 then%>
<input type="submit" value="Página anterior" name="Página">
<%end if
if session("Página")<RS.PageCount then%>
<input type="submit" value="Página siguiente" name="Página">
<%end if%>
</form>
Pero me sale el siguiente error
Tipo de error:
ADODB.Recordset (0x800A0E78)
La operación no está permitida si el objeto está cerrado.
/Colegio/paginar.asp, line 140
La linea 140 es la que pone
RS.AbsolutePage=session("Página")
Alguien sabe a que se debe? Gracias de antemano