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


Autor Temas
ander
Starting Member

España
24 Posts
Mensajes - 26 Aug 2004 :  11:56:45  Ver Perfil  Enviar Email
Buenas. Esto de ser novatillo es lo que tiene. A ver si a alguien le suena esto.
Utilizando el codigo del ejemplo de paginación sencilla, consigo que me realice la consulta bien, que me coja bien los datos de la primera página (si pongo de 5 en 5 registros, si pongo de 3 en 3).
Lo que pasa es q me numera mal los registros, me marca que tengo -1 páginas. Y en vez de decir "mostrados del registro 1 al 9" (p.ej), me marca "del -9 al -1". A alguien le ha pasado algo parecido? Es que meto el código en un orden que no es? Alguna ayudita por favor.Muchas gracias a todos.
Ahi va el código (Los nombres de los campos a mi también se me hacen un poco raros, pero es que se trabaja sobre una base de datos en francés):
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

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

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

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

<head>
<title>Fichajes Mes</title>
</head>
<body>

<% cbasedatos=request.form("basedatos")
cnombre=request.form("nombre")
cfecha=request.form("fecha")
cfechaf=request.form("fechaf")

mesi=mid(cfecha,1,2)
diai=mid(cfecha,4,2)
anoi=mid(cfecha,7,4)

mesf=mid(cfechaf,1,2)
diaf=mid(cfechaf,4,2)
anof=mid(cfechaf,7,4)

cfechaini=diai&"/"&"01"&"/"&anoi
cfechafin=diaf&"/"&"01"&"/"&anof

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


response.write Server.MapPath("data\"&cbasedatos&".mdb") & "<br><br>"

set rsc=Server.CreateObject("ADODB.Connection")

sql="Select distinct LIBELLE_SERVICE,NOM_SALARIE,PRENOM_SALARIE,CODE_DU_BADGE,TSALARIE.NUM_SERVICE,TBADGEAGE.DATE_BADGEAGE,TBADGEAGE.HEURE,TBADGEAGE.TYPE_BADGEAGE,TCUMUL_JOUR.CUMUL_THEORIQUE,TCUMUL_JOUR.CUMUL_EFFECTIF,TCUMUL_JOUR.CUMUL_PAYE,TCUMUL_JOUR.CUMUL_H_NORM,TCUMUL_JOUR.CREDIT_DEBIT,TCUMUL_JOUR.CD_A_REPORTER from TSALARIE,TSERVICE,TBADGEAGE,TCUMUL_JOUR WHERE TSALARIE.NUM_SERVICE=TSERVICE.NUM_SERVICE AND TBADGEAGE.CLE_SALARIE=TSALARIE.CLE_SALARIE AND TCUMUL_JOUR.CLE_SALARIE=TSALARIE.CLE_SALARIE AND TSALARIE.NOM_SALARIE like '%"&cnombre&"%' AND TBADGEAGE.DATE_BADGEAGE between #"&cfechaini&"# AND #"&cfechafin&"#"
set rsc=conec.execute(sql)


if conec.Errors.Count > 0 then

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

else

rsc.pagesize=5

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

%>

<%rsc.absolutepage=session("pagina")
inicio=1+(session("pagina")-1)*rsc.pagesize
fin=inicio+9
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>
<br>
<table BORDER="1" CELLSPACING="0" BORDERCOLOR="#000000" CELLPADDING="2" width="100%">
<tr>
<td BGCOLOR="#C0C0C0"><b>NOMBRE</b></td>
<td BGCOLOR="#C0C0C0"><b>APELLIDO</b></td>
<td BGCOLOR="#C0C0C0"><b>TARJETA</b></td>
<td BGCOLOR="#C0C0C0"><b>DEPARTAMENTO</b></td>
<td BGCOLOR="#C0C0C0"><b>FECHA_FICHAJE</b></td>
<td BGCOLOR="#C0C0C0"><b>HORA</b></td>
<td BGCOLOR="#C0C0C0"><b>TIPO</b></td>
<td BGCOLOR="#C0C0C0"><b>TEÓRICO</b></td>
<td BGCOLOR="#C0C0C0"><b>EFECTIVO</b></td>
<td BGCOLOR="#C0C0C0"><b>PAGADO</b></td>
<td BGCOLOR="#C0C0C0"><b>NORMAL</b></td>
<td BGCOLOR="#C0C0C0"><b>BALANCE_DIA</b></td>
<td BGCOLOR="#C0C0C0"><b>BALANCE_PERIODO</b></td>

<td BGCOLOR="#C0C0C0" align="right"><b>Precio por unidad</b></td>
</tr>
<% contreg=0
do while not rsc.EOF and contreg < rsc.pagesize %>
<tr><td><input type="text" value=<%= rsc("NOM_SALARIE") %>></td><td><input type="text" value=<%= rsc("PRENOM_SALARIE") %>></td><td><input type="text" value=<%= rsc("CODE_DU_BADGE") %>></td><td><input type="text" value=<%= rsc("LIBELLE_SERVICE") %>></td><td><input type="text" value=<%= rsc("DATE_BADGEAGE") %>></td><td><input type="text" value=<%= rsc("HEURE") %>></td><td><input type="text" value=<%= rsc("TYPE_BADGEAGE") %>></td><td><input type="text" value=<%= rsc("CUMUL_THEORIQUE") %>></td><td><input type="text" value=<%= rsc("CUMUL_EFFECTIF") %>></td><td><input type="text" value=<%= rsc("CUMUL_PAYE") %>></td><td><input type="text" value=<%= rsc("CUMUL_H_NORM") %>></td><td><input type="text" value=<%= rsc("CREDIT_DEBIT") %>></td><td><input type="text" value=<%= rsc("CD_A_REPORTER") %>></td>
</tr>
<% rsc.movenext
contreg=contreg+1
loop
%>
</table>
<div align="center">
<center>

<table border="0" width="38%" height="5">
<tr><%if session("pagina")<> 1 then %>
<td width="50%" height="1" align="center">
<form method="POST" action="fichajesmesresultados.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" name="fichajesmesresultados.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>


ander
Starting Member

España
24 Posts
Posted - 26 Aug 2004 :  11:58:23  Ver perfil  Enviar e-mail
Ah, y además no me pasa de pantalla cuando pulso el botón de "Adelante" y "Atrás", se queda colgado.
Gracias.

Inicio Pagina

   
 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