Paginando con GetRows

[vgaray]

Esta técnica utiliza el método GetRows del objeto Recordset. Getrows te entrega un arreglo de dos dimensiones. La primer dimensión de este arreglo guarda la información de las columnas y la segunda guarda los renglones.

Ok, para sacarle provecho al siguiente código debes usarlos de la siguiente manera:

http://www.tuservidor.com/GetRows.asp?Start=0&Offset=15

Start será desde donde empezará a mostrar los registros y offset será cuantos registros mostrará por página.

<%@ Language = VBSCRIPT %>
<% Option Explicit %>
<%
'code by: [email protected]
Dim iStart, iOffset
iStart = Request("Start")
iOffset = Request("Offset")

if Not IsNumeric(iStart) or Len(iStart) = 0 then
iStart = 0
else
iStart = CInt(iStart)
end if
if Not IsNumeric(iOffset) or Len(iOffset) = 0 then
iOffset = 10
else
iOffset = Cint(iOffset)
end if

Response.Write "Viewing " & iOffset & " records starting at record " & iStart & "<BR>"

Dim objConn, objRS
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DSN=MP3"

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open "SELECT * FROM Mp3List", objConn

Dim aResults
aResults = objRS.GetRows
objRS.Close
Set objRS = Nothing

objConn.Close
Set objConn = Nothing
Dim iRows, iCols, iRowLoop, iColLoop, iStop
iRows = UBound(aResults, 2)
iCols = UBound(aResults, 1)

If iRows > (iOffset + iStart) Then
iStop = iOffset + iStart - 1
Else
iStop = iRows
End If

For iRowLoop = iStart to iStop
For iColLoop = 0 to iCols
Response.Write aResults(iColLoop, iRowLoop) & " "
Next
Response.Write "<BR>"
Next
Response.Write "<P>"
if iStart > 0 then
'Show Prev link
Response.Write "<A HREF=""GetRows.asp?Start=" & iStart-iOffset & _
"&Offset=" & iOffset & """>Previous " & iOffset & "</A>"
end if
if iStop < iRows then
'Show Next link
Response.Write " <A HREF=""GetRows.asp?Start=" & iStart+iOffset & _
"&Offset=" & iOffset & """>Next " & iOffset & "</A>"
end if
%>

[elsabio]

He revisado tu mensaje y tengo una duda como paginar en dos columnas o mas mediante GetRows.

Gracias

[tarlipes]

Disculpa mi ignorancia, pero suponiendo que yo tengo:

por ej:

while not objrs.eof
objrs("texto1")&"<br>"
objrs("imagen1")
wend

En que lugar de tu código debería colocar lo anterior para que funcione?


He probado varias formas, pensé que era mas sencillo, pero hace agua...


saludos

[richardinj]

se ve horrible.. no salen los >>>>> <<<<<<<... no se puede simplemente copiar y pegar.... el responsable de este foro deberia arreglarlo...

Saludos.

[u_goldman]

Sera porque tiene como 3 anyos este post? por lo tanto supongo que asi se guardaba en la base de datos... si, AZ deberias arreglar todos los post de mas de 2 anyos

[AlZuwaga]

Efectivamente, cuando éste foro era basado en ASP, antes de su migración a vBulletin, los código se guardaban así y los mensajes anteriores a la migración quedaron de esa manera.

Como no soy el responsable de éste foro, no lo voy a arreglar
(Pero, haciendo un terrible esfuerzo mental para llegar a una fácil solución , te voy a dar una pista: Copiá ese código que está mal, pegalo en la vista código de tu editor HTML favorito, guardá la página, visualizala en un navegador, seleccioná todo, copiá y finalmente pegás en el mismo editor HTML)

Saludos.

PD: Este es uno de esos casos en donde uno se arrepiente de dejar mensajes como este

[richardinj]

Precisamente eso fue lo que hice

(haciendo un terrible esfuerzo mental para llegar a una fácil solución , : Copié ese código que está mal, y lo pegé en la vista código de mi editor HTML favorito, guardé la página, visualizé en un navegador, seleccioné todo, copié y finalmente pegé en el mismo editor HTML)

Pero, haciendo un terrible esfuerzo mental para llegar a una fácil solución a todo esto , te voy a dar una pista: Copiá ese código que está mal, pegalo en la vista código de tu editor HTML favorito, guardá la página, visualizala en un navegador, seleccioná todo, copiá y finalmente pegás todo en el POST de Victor Garay