Este es el codigo, hay mas codigo por arriba pero no es importante.
<%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")
RS.Open "Profesor", conn, adOpenStatic, adCmdTable
Response.Write("<br><br>")%>
<%Response.Write("<br><br>")
RS.pageSize=10
pagActual=session("Página")
rs.AbsolutePage=pagActual%>
<%reg=session("Página")%>
<table>
<tr>
<td width="20"></td>
<td><div align="left"><strong>Página <%= Session("Página")%> de <%=RS.PageCount%></strong></div></td>
</tr>
</table>
Y este es el formulario para que me muestre los botones de pagina siguiente y pagina anterior
<form method="get" action="veradm.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>
El error me da en la linea que está en negrita.
Y antes se me ha olvidado mencionar que tampoco me aparecen los botones de "siguiente" y "anterior" si hay mas de una pagina. Resumiendo, un desastre de paginacion.
Gracias
FELIZ NAVIDAD Y FELIZ 2006
