29/01/2002, 11:29
|
| | | Fecha de Ingreso: agosto-2001
Mensajes: 399
Antigüedad: 23 años, 10 meses Puntos: 0 | |
| Re: Error
<%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
if not(rs.eof) then
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%>
<%end if%>
prueba con esto, saludos ;)
|