Paginar

[damaGaladriel]

Estoy un poco verde en esto de las funciones....

Necesito paginar los registros de varias tablas,en páginas diferentes y me piden que en vez de repetir código lo haga con una función. ¿Me podeis dar echar una mano?

Muchas gracias

[Myakire]

Revisa las FAQ's, ahí hay ejemplos.

[damaGaladriel]

Ya las he mirado.

He encontrado algo... pero no me acaba de funcionar porque aparte de los datos de la tabla tengo un par de columnas más:
en una hay un boton por cada registro para modificar y otra con un check con un boton en la cabecera para eliminar el registro

[Myakire]

Ok, disculpa, pero, ¿exactamente cual es el problema?

Si viste la paginación con clases (http://www.forosdelweb.com/showthrea...6&page=4&pp=15)
basta modificar parte del HTML en donde despliega los registros para que agregue ahora esos controles que necesitas.

Disculpa, pero no detecto una duda específica.

saludos

[jlguerra]

' ----- Crea el RecordSet ----------------
Set rstDSN = Server.CreateObject("ADODB.RecordSet")

strSQL = Session("strSQL")

rstDSN.Cursorlocation = adUseClient

' ---- Abre el RecordSet con un cursor estatico ----
rstDSN.Open strSQL, cnnDSN, adOpenStatic, adLockReadOnly, adCmdText

' ---- Obtiene valores de Session ----------------
strUserName = Session("strLogin")
intNumReg = rstDSN.RecordCount

' ------ Registra la Transaccion ---------------------
'If Session("blnAuditoria") Then
Dim blnRegOK
blnRegOK = RegisTrans(MOD_LISTADOS_VARIOS, OPER_RPT_LISTADO_PARAMETROS, strSQL, cnnDSN, Session("strLogin"))
'End If
' -----------------------------------------------------

' ---- Determinación de la página actual ----
Select Case Request.QueryString("pag")
Case ""
Session("CurrentPage") = 1
Case "sig"
Session("CurrentPage") = Session("CurrentPage") + 1
Case "ant"
Session("CurrentPage") = Session("CurrentPage") - 1
End Select

' ---- Determina la página a la que se enlaza ----
If Request.QueryString("pagn") <> 0 Then
Session("CurrentPage") = Request.QueryString("pagn")
End If

If Not rstDSN.BOF And Not rstDSN.EOF Then
rstDSN.AbsolutePage = CLng(Session("CurrentPage"))
End If


" ********** codigo HTML QUE MUESTRA LOS REGISTROS**********


<table border="0" cellspacing="1" cellpadding="2">
<tr>
<td align="middle"><%
' ******** Enlace a la Primera Página ********
If CLng(Session("CurrentPage")) > 1 Then
Response.Write("<a href=""rptParametrosReport.asp?pagn=1""><img src=""../images/b_primero.gif"" alt=""Primera Página"" WIDTH=""22"" HEIGHT=""15"" border=""0""></a>")
End If
%>
</td>
<td align="middle"><%
' ******** Enlace a la Página Anterior ********
If CLng(Session("CurrentPage")) > 1 Then
Response.Write("<a href=""rptParametrosReport.asp?pag=ant""><img src=""../images/b_anterior.gif"" alt=""Página Anterior"" border=""0"" WIDTH=""22"" HEIGHT=""15""></a>")
End If
%>
</td>
<td align="middle"><strong><font face="Arial" size="2"><%
' ********* Muestra el Listado de todas las Páginas *********
Dim intPag, intInf, intSup

intInf= CLng(Session("CurrentPage"))
intSup= CLng(Session("CurrentPage")) + 9

If intInf < 10 Then
intInf = 1
If rstDSN.PageCount < 10 Then
intSup = rstDSN.PageCount
Else
intSup = 10
End If
Else
If intSup >= rstDSN.PageCount Then
intInf = rstDSN.PageCount - 9
intSup = rstDSN.PageCount
End if
End If

For intPag = intInf to intSup step 1

If intPag = CLng(Session("CurrentPage")) then
Response.Write "&nbsp;"
Response.Write intPag
Else
Response.Write "&nbsp;"
Response.Write("<a href=""rptParametrosReport.asp?pagn=" & intPag & """>" & intPag & "</a>")
End if
Next

%> </font></strong></td>
<td align="middle"><%
' ********* Enlace a la Página Siguiente **********
If CLng(Session("CurrentPage")) < rstDSN.PageCount Then
Response.Write("<a href=""rptParametrosReport.asp?pag=sig""><img src=""../images/b_siguiente.gif"" alt=""Página Siguiente"" border=""0"" WIDTH=""22"" HEIGHT=""15""></a>")
End If
%>
</td>
<td align="middle"><%
' ********* Enlace a la Ultima Página **********
If CLng(Session("CurrentPage")) < rstDSN.PageCount Then
Response.Write("<a href=""rptParametrosReport.asp?pagn=" & rstDSN.PageCount & """><img src=""../images/b_ultimo.gif"" alt=""Ultima Página"" border=""0"" WIDTH=""22"" HEIGHT=""15""></a>")
End If
%>
</td>
</tr>
</table>