Ayuda con Paginar resultados (función de 3pies)

[3pies]

Antes de nada, comentar que la función original es del master Al_Zuwaga. Yo solo la afiné un poquillo...

Laika, para paginar correctamente, te faltan bastantes cosas. No he podido probar tu código, pero más o menos sería esto (perdón si falta algo). Creo que lo que está en rojo, es lo que debes poner para paginar, y lo que está en verde, es la barra de navegación que se verá al pie de la página.

Yo pondría la función en un include, pero en este ejemplo, está todo junto...

Código:

 
<%
'Si se busca con la caja de texto vacia
if request.QueryString("criterio") = "" then
     response.Write("Debe escribir algún criterio de búsqueda")
'Si hay datos en el criterio de selección...
else
 
     'Ponemos la función para la barra de navegación
     Function BarraDeNavegacion(PaginasTotales, PaginaActual)
           'Modificar el contenido de las constantes para cambiar el aspecto de la barra de navegación
const EstiloDeLaTabla = "border: 1px solid #D6AD6B; font-family: Arial, Helvetica, sans-serif; font-size: 10px;"
           const EstiloCeldaPaginaXdeY = "color: #846B42; background-color: #D6AD6B;"
           const LinkDelEnlace = "link1"
           const EstiloDeLaCeldaPaginaActual = "background-color:#EFD6AD; font-weight:bold;"
           const EstiloDeLaCeldaPaginaConLink = "background-color:#F7E7C6"
 
           if PaginasTotales > 1 then
                 if PaginasTotales > 5 then MostrarUltima = true      
                 TablaConBarraDeNavegacion = "<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 >= 4 then
                       TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td style="""& EstiloDeLaCeldaPaginaConLink &"""><a href="""& PaginaActualBarraDeNavegacion & "?pagina=1"" class=""" & LinkDelEnlace & """><strong>«</strong> Primera</a></td>"
CantidadAMostrarDeAnterioresYPosteriores = 2
                       'Indicamos la celda central como activa, y sin link
                       '(la 3ª, de las 5 mostradas), y el resto con link
                       for i = 1 to 5
                            'No mostramos link si estamos en la 3ª celda de las 5 mostradas
                            if i = 3 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"" style=""" & EstiloDeLaCeldaPaginaConLink & """><a href="""& PaginaActualBarraDeNavegacion & "?pagina=" & PaginaActual - CantidadAMostrarDeAnterioresYPosteriores & """ class=""" & LinkDelEnlace & """>" & PaginaActual - CantidadAMostrarDeAnterioresYPosteriores & "</a></td>"
                            end if
 
                            if PaginaActual - CantidadAMostrarDeAnterioresYPosteriores = PaginasTotales then
                                  MostrarUltima = False
                                  Exit For
                            end if
 
                            CantidadAMostrarDeAnterioresYPosteriores = CantidadAMostrarDeAnterioresYPosteriores - 1
next
                 else
                       if PaginasTotales < 5 then
                            for i = 1 to PaginasTotales
                                  if i <> PaginaActual then
                                        TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center"" style="""& EstiloDeLaCeldaPaginaConLink &"""><a href="""& PaginaActualBarraDeNavegacion & "?pagina=" & i & """ class=""" & LinkDelEnlace & """>" & i & "</a></td>"
else
                                        TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center"" style="""& EstiloDeLaCeldaPaginaActual &""">" & i & "</td>"
end if
                            next
                       else
                            For i = 1 to 5
                                  if i <> PaginaActual then
                                        TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "<td width=""15"" align=""center"" style="""& EstiloDeLaCeldaPaginaConLink &"""><a href="""& PaginaActualBarraDeNavegacion & "?pagina=" & i & """ class=""" & LinkDelEnlace & """>" & 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 style="""& EstiloDeLaCeldaPaginaConLink &"""><a href="""& PaginaActualBarraDeNavegacion & "?pagina=" & PaginasTotales & """ class=""" & LinkDelEnlace & """>&Uacute;ltima <strong>»</strong></a></td>"
TablaConBarraDeNavegacion = TablaConBarraDeNavegacion & "</tr></table>"
                 BarraDeNavegacion = TablaConBarraDeNavegacion
end if
     end Function