Ayuda con paginación

[Adler]

Hola

Prueba con esto

Código asp:

mostrar = 26
 
rs.PageSize = mostrar
rs.CacheSize = mostrar
 
cant_paginas = rs.PageCount
cant_registros = rs.RecordCount
 
'La consulta
 
' Si el pedido de página cae afuera del rango, lo modificamos para que caiga adentro
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
 
BarraDePaginacion(cant_paginas, pagina_actual)%>
 
rs.AbsolutePage = pagina_actual
 
Dim registros
registros=rs.getrows()
 
For i=0 to UBound(registros,2)
registros_mostrados = 0
If registros_mostrados > (mostrar-1) then
Exit For
Else
 
' Imprimo la lista
 
End If
registros_mostrados = registros_mostrados + 1
Next ' i
 

Función

Código asp:

Function BarraDePaginacion(PaginasTotales, PaginaActual)
    'Modificar el contenido de las constantes para cambiar el aspecto de la barra de navegación
    const EstiloDeLaTabla = "border: 1px solid #A4A4A4; font-family: Arial, Helvetica, sans-serif; font-size: 10px;"
    const EstiloCeldaPaginaXdeY = "background-color: #000000; color: #FFFFFF;"
    const LinkDelEnlace = "resultado"
    const LinkDelEnlace2 = "resultado_flecha"
    const LinkDelEnlace3 = "resultado_textoflecha"
    const EstiloDeLaCeldaPaginaActual = "background-color:#FFFFFF; color:#000000; font-weight:bold;"
 
 
    if PaginasTotales > 1 then
        if PaginasTotales > 7 then MostrarUltima = true    
        TablaConBarraDeNavegacion = "</td><td><div class=""alineacion"" align=""right""><table border=""0"" cellpadding=""2"" cellspacing=""1"" style=""" & EstiloDeLaTabla & """><tr><td style=""" & EstiloCeldaPaginaXdeY & """>&nbsp; P&aacute;gina " & PaginaActual & " de " & PaginasTotales & "&nbsp;&nbsp;</td>"
        if PaginaActual >= 6 then
            TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td class=""" & LinkDelEnlace3 & """><a href="""& PaginaActualBarraDeNavegacion & "?f="&f&"&amp;pagina=1""><strong>« </strong>Primero</a></td><td class=""" & LinkDelEnlace2 & """><a href="""& PaginaActualBarraDeNavegacion & "?f="&f&"&amp;pagina="&pagina_actual -1&""" ><strong>«</strong></a></td>"
 
            CantidadAMostrarDeAnterioresYPosteriores = 3
            'Indicamos la celda central como activa, y sin link
            '(la 3ª, de las 7 mostradas), y el resto con link
            for i = 1 to 7
                'No mostramos link si estamos en la 3ª celda de las 7 mostradas
                if i = 4 then
                    TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center"" style=""" & EstiloDeLaCeldaPaginaActual & """>" & PaginaActual & "</td>"
                else
                'Mostramos el link si estamos en las celdas distintas de la 3ª (la central)
                    TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center"" class=""" & LinkDelEnlace & """><a href="""& PaginaActualBarraDeNavegacion & "?f="&f&"&amp;pagina=" & PaginaActual - CantidadAMostrarDeAnterioresYPosteriores &""">" & PaginaActual - CantidadAMostrarDeAnterioresYPosteriores & "</a></td>"
                end if
 
                if PaginaActual - CantidadAMostrarDeAnterioresYPosteriores = PaginasTotales then
                    MostrarUltima = False
                    Exit For
                end if
 
                CantidadAMostrarDeAnterioresYPosteriores = CantidadAMostrarDeAnterioresYPosteriores - 1
            next
        else
            if PaginasTotales < 7 then
                for i = 1 to PaginasTotales
                    if i <> PaginaActual then
                        TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center""  class=""" & LinkDelEnlace & """><a href="""& PaginaActualBarraDeNavegacion & "?f="&f&"&amp;pagina=" & i & """>" & i & "</a></td>"
                    else
                        TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center"" style="""& EstiloDeLaCeldaPaginaActual &""">" & i & "</td>"
                    end if
                next
            else
                For i = 1 to 7
                    if i <> PaginaActual then
                        TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center"" class=""" & LinkDelEnlace & """><a href="""& PaginaActualBarraDeNavegacion & "?f="&f&"&amp;pagina=" & i & """>" & i & "</a></td>"
                    else
                        TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center"" style="""& EstiloDeLaCeldaPaginaActual &""">" & i & "</td>"
                    end if
                next
            end if
        end if
 
 
        if MostrarUltima = true then TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td class=""" & LinkDelEnlace2 & """><a href="""& PaginaActualBarraDeNavegacion & "?f="&f&"&amp;pagina=" & pagina_actual +1& """><strong>»</strong></a></td><td class=""" & LinkDelEnlace3 & """><a href="""& PaginaActualBarraDeNavegacion & "?f="&f&"&amp;pagina=" & PaginasTotales & """>&Uacute;ltimo <strong>»</strong></a></td>"
        TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "</tr></table></div>"
        BarraDePaginacionTemas = TablaConBarraDeNavegacion
    end if
End Function
 

Suerte