Foros del web, para los que viven de bits

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: mukulsabharwal@yahoo.com
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
%>

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

Gracias

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

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

Saludos.

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

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

Precisamente eso fue lo que hice

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