Ver Mensaje Individual
  #8 (permalink)  
Antiguo 30/04/2008, 08:25
kike278
 
Fecha de Ingreso: abril-2008
Mensajes: 62
Antigüedad: 17 años
Puntos: 1
Exclamación Re: Problema con Paginador en ASP

ok aqui esta el codigo q estoy usando para paginar los datos, este es basicamente todo al asp que se encarga de paginar

<!-- #include file="adovbs.inc" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

<%
fecha=CDate(Request.QueryString("FECHAINGRESOREAL1 "))
fecha1=CDate(Request.QueryString("fecha1"))
%>

<%xx=request.form("direccion")
if xx = "Atras" then
session("pagina")=session("pagina")-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")+1
else
session("pagina")=1 'primera pasada
end if
end if%>
<body>


%>
<%SQLtxt = "SELECT * FROM PRINCIPAL WHERE (CAP1 >=#" & fecha & "# AND CAP1 <= #" & fecha1 & "#) AND CONTRATADO='SI' AND (EMPRESA2) like '%" & UCase(Request("EMPRESA2")) & "%' AND (ZONA) like '%" & Ucase(Request("ZONA")) & "%' ORDER BY NONOMINA " %>

<%set rs = CreateObject("ADODB.Recordset")
rs.CursorType = adOpenstatic %>
<%rs.Open SQLtxt, "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\contratacion.mdb")
rs.pagesize=10

if session("pagina")>rs.pagecount then
session("pagina")=rs.pagecount end if%>
<%rs.absolutepage=session("pagina")
inicio=1+(session("pagina")-1)*rs.pagesize
fin=inicio+9
if fin > rs.recordcount then
fin =rs.recordcount
end if
%>
<table border="0" width="100%" bgcolor="#2E3842">
<tr>
<td width="50%" align="center"><span class="Estilo6">Registros <%=inicio%>
al <%=fin%> de un total de
<%=rs.recordcount%></span></td>
<td width="50%" align="center"><span class="Estilo6">Página <%=session("pagina")%> de <%=rs.pagecount%></span></td>
</tr>
</table>
<%
contador=0
Do While contador < rs.pagesize and NOT rs.EOF%>


<tr>
<td><div align="center" class="Estilo12"><%= rs("nonomina")%></div></td>
<td><div align="center" class="Estilo12"><%= rs("imss")%></div></td>
<td><div align="center" class="Estilo12"><%= rs("fechaingresoreal")%></div></td>
<td><div align="center" class="Estilo12"><%= rs("curp")%></div></td>
<td><div align="center" class="Estilo12"><%= rs("nombre")%></div></td>
<td><div align="center" class="Estilo12"><%= rs("apaterno")%></div></td>
<td><div align="center" class="Estilo12"><%= rs("amaterno")%></div></td>
<td><div align="center" class="Estilo12">$<%= rs("smensual")%></div></td>
<td><div align="center" class="Estilo12"><%= rs("puesto")%></div></td>
<td><div align="center" class="Estilo12"><%= rs("sucursal")%></div></td>
<td><div align="center" class="Estilo12"><%= rs("zona")%></div></td>
<td><div align="center" class="Estilo12"><%= rs("expinfonavit")%></div></td>
<td><div align="center" class="Estilo12"><%= rs("vsm")%></div></td>
<td><div align="center" class="Estilo12"><%= rs("diassemanal")%></div></td>
<td><div align="center" class="Estilo12"><%= rs("horarsemanal")%></div></td>
</tr>

<% rs.MoveNext
contador=contador+1
Loop
%></table>
<!-- mostramos los botones de adelante y atras segun proceda -->

<table border="0" width="38%" height="5">
<tr><%if session("pagina")<> -1 then %>
<td width="50%" height="1" align="center">
<form method="post" action="resfechaca.asp">
<p><input type="submit" value="Atras" name="direccion"></p>
</form>
</td><%end if%>
<%if session("pagina")< rs.pagecount then%>
<td width="50%" height="1" align="center">
<form method="post" name="resfechaca.asp">
<p><input type="submit" value="Adelante" name="direccion"></p>
</form>
</td><%end if%>
</tr>
</table>
<%rs.Close%>