paginar leyendo varias tablas

[NA1TM3R]

Saludos!

Antes que otra cosa . . . aclaremos . . . paginaremos nuestro RecordSet (MySQL) con ASP . . .

Código asp:

<&#37;
Function PaginarGR (iRegsPorPag, iPag, vector)
 
    Dim I, J 
 
    Dim iPaginas, iPagActual
 
    Dim iTotal, iComienzo, iFin
    
    iTotal = UBound(xDatos,2)+1
    
    iPaginas = (iTotal \ iRegsPorPag)
    
    if iTotal mod iRegsPorPag > 0 then
        iPaginas = iPaginas + 1
    end if
    
    if iPag < 1 then
        iPag = 1
    end if
    
    if iPag > iPaginas then
        iPag = iPaginas
    end if
    
    iComienzo = (iPag-1)*iRegsPorPag
    
    iFin = iComienzo + (iRegsPorPag-1)
    
    if iFin > UBound(vector, 2) then
        iFin = UBound(vector, 2)
    end if
    
    Response.Write("Comienzas a dibujar tu tabla . . . con los encabezados de columna solamente ! ! !")
    x = iComienzo + 1
    
    for I= iComienzo to iFin
        Response.Write("Comienzas a imprimir los datos . . . ojo . . . estoy utilizando Get.Rows ! ! ! ")
    x = x + 1     
    Next
    if iPag > 1 then
        Anterior = "<A HREF=""blahblahblah.asp?P="&iPag-1&"""><b>Anterior</b></A>&nbsp;&nbsp;"
    end if
    if iPag < iPaginas then
        Siguiente = "<A HREF=""blahblahblah.asp?P="&iPag+1&"""><b>Siguiente</b></A>&nbsp;"
    end if
    Response.Write(Anterior&Siguiente)
    Response.Write("Página: " & iPag & " de " & iPaginas & "")
    
    PaginarGR = 0
 
 
End Function
%>
 

Ahora sólo nos queda llamar nuestra función . . .

Código asp:

<% iEstado = PaginarGR (10, pag, xDatos) %>
 

Donde 10 es el numero de datos que nos mostrará . . . lo cual es 100% modificable . . .

Tampoco olvidemos nuestra QueryString (al inicio de nuestro doc.) . . .

Código asp:

pag = CInt(Request.QueryString("P"))
 

para saber en qué página estamos . . .

Disculpa por no explicarlo al 100 . . . pero justo ahora tengo prisa . . . haha . . . se acaba mi hora de comida . . . . . .

Espero te sirva a ti y a muchos mas . . . y recuerda que siempre se puede mejorar el código . . .