Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Paginacion. Q va mal?
 Foro Bloqueado  Tema Bloqueado


Autor Temas
sheyla82
Starting Member

España
37 Posts
Mensajes - 02 Sep 2004 :  13:19:30  Ver Perfil  Enviar Email
Llevo poco en esto de asp, pero llevo casi tanto como con el ejemplo de paginación sencilla.
Quiero por ejemplo, q se muestren de 3 en 3 los registros. Eso lo hace bien, pero sólo muestra los 3 primeros. Y ahi se queda, no deja cambiar de pantalla. Y en vez de decir: "Registros del 1 al 3 de 10". Dice "Registros de -10 a -8 de -1" Y el número total de páginas también lo coge como negativo. Está claro q el problema está con eso, con la inicialización de session o algo así. Alguna idea? Estaría muy agradecida. Ahí os dejo el código:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<%@ LCID = 1034 %>

<% On Error Resume Next %>
<html>
<%xx=request.form("direccion")
if xx = "Atras" then
session("pagina")=session("pagina")-1

if session("pagina")< 1 then
session("pagina")=1
end if

else
if xx="Adelante" then
session("pagina")=session("pagina")+1
else
session("pagina")=1
end if
end if%>

<head>
<title>Empleados</title>
</head>
<% cbasedatos=request.form("basedatos")
csort=request.form("sort")


set conec=Server.CreateObject("ADODB.Connection")
conec.connectionstring="Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("data\"&cbasedatos&".mdb")
conec.open

response.write Server.MapPath("data\"&cbasedatos&".mdb") & "<br><br>"
sql="Select distinct LIBELLE_SERVICE,CLE_SALARIE,NOM_SALARIE,PRENOM_SALARIE,TSALARIE.NUM_SERVICE,CODE_DU_BADGE from TSALARIE,TSERVICE WHERE TSALARIE.NUM_SERVICE=TSERVICE.NUM_SERVICE ORDER BY "&csort&""
%>
<body>
<%set rsc = CreateObject("ADODB.Recordset")
rsc.CursorType = adOpenstatic %>

<%
set rsc=conec.execute(sql)
rsc.pagesize=3

if session("pagina")>rsc.pagecount then
session("pagina")=rsc.pagecount
end if

if conec.Errors.Count > 0 then

for each error in conec.errors
response.write error.number & "= " & error.description
Next

else
maxpagina=cint(rsc.pagecount)
maxregistros=cint(rsc.pagesize)
contreg=0
%>

<%rsc.absolutepage=cint(session("pagina"))
inicio=1+(session("pagina")-1)*rsc.pagesize
fin=inicio+2
if fin > rsc.recordcount then
fin =rsc.recordcount
end if
%>
<center><h3>Paginación de registros</h3></center>
<table border="0" width="100%" bgcolor="#C0C0C0">
<tr>
<td width="50%" align="center">Registros <font color="#FF0000"><%=inicio%> </font>
al <font color="#FF0000"><%=fin%></font> de un total de
<font color="#FF0000"><%=rsc.recordcount%></font></td>
<td width="50%" align="center">Página <font color="#FF0000"><%=session("pagina")%>
</font> de <font color="#FF0000"><%=rsc.pagecount%></font></td>
</tr>
</table>

<table border="3" BGCOLOR="GRAY">
<CAPTION>FICHAJES</CAPTION>
<tr bgcolor="GRAY"><td>NOMBRE</td><td>APELLIDO</td><td>Nº TARJETA</td><td>MATRICULA</td><td>DEPARTAMENTO</td></TR>
<% do while not rsc.EOF and contreg < maxregistros
j = j+1
f=j mod 2
if f = 0 then
%>
<tr bgcolor="WHITE" bordercolor="#CCCCCC"><td><%= rsc("NOM_SALARIE") %></td><td><%= rsc("PRENOM_SALARIE") %></td><td><%= rsc("CODE_DU_BADGE") %></td><td><%= rsc("CLE_SALARIE") %></td><td><%= rsc("LIBELLE_SERVICE") %></td>
</tr>
<%
i=i+1
else
%>
<tr bgcolor="#CCCCCC"><td><%= rsc("NOM_SALARIE") %></td><td><%= rsc("PRENOM_SALARIE") %></td><td><%= rsc("CODE_DU_BADGE") %></td><td><%= rsc("CLE_SALARIE") %></td><td><%= rsc("LIBELLE_SERVICE") %></td>
</tr>
<% end if
i=i+1
rsc.movenext
contreg=contreg+1
loop
%>
</table>

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

<%
rsc.close
set rsc=Nothing
conec.close
Set conec = Nothing

%>
<% End If %>

</body>
</html>

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar