<%xx=request.form("direccion")
if xx = "Atras" then
session("pagina")=session("pagina&q uot;)-1
if session("pagina")< 1 then
session("pagina")=1 'evitamos el error por reload
end if
else
if xx="Adelante" then
session("pagina")=session("pagina&q uot;)+1
else
session("pagina")=1 'primera pasada
end if
end if%>
<html><head><title></title></head><body>
<%
cat=Request.QueryString("Id")
set conn = server.createobject("adodb.connection")
conn.open "alias"
sql = "SELECT * FROM tabla WHERE CATEGORIA='"&cat&"' order by id desc"
set rs = server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.pagesize=8
if session("pagina")>rs.pagecount then
session("pagina")=rs.pagecount 'evitamos el error de reload
end if
%>
<%
rs.absolutepage=session("pagina")
inicio=1+(session("pagina")-1)*rs.pagesize
fin=inicio+7
if fin > rs.recordcount then
fin =rs.recordcount
end if
%>
<%
contador=0
Do While contador < rs.pagesize and NOT rs.EOF%>
ubico la informacion aca
<%=rs ("campo1")%><%=rs ("campo2")%><%=rs ("campo3")%>
<%
rs.MoveNext
contador=contador+1
loop%>
hago los botones de atras adelante
<%if session("pagina")<> 1 then %>
<a href="paginar.asp?cadena">atras</a>
<%end if%>
<%if session("pagina")< rs.pagecount then%>
<a href="paginar.asp?cadena">adelante< ;/a>
<%end if%>
<%' cierro la base de datos
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
</body></html>
El error que me sale es este
ADODB.Recordset error '800a0bb9'
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/zn/clasificados/ver.asp, line 355
La linea 355 es esta:
rs.absolutepage=session("pagina")
Donde puede estar el error?
Gracias :)
