abelar, he adaptado tu codigo a el mio, pero la paginacion no me la hace bien. me podrias ayudar?
<%
Dim oConn, rs, SQL
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' la cuenta que os he mencionado
'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=2
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
set oConn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
' Conexión por OLEDB
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source="&Server.MapPath("galeria.mdb")&";"
SQL="SELECT * FROM galeria ORDER BY id DESC"
' Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
' Abro el recordset
rs.Open SQL, oConn, 1, 2
'Cuento las páginas
PaginasTotales=rs.PageCount
'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Por si la consulta no devuelve registros!
if PaginasTotales=0 then
Response.Write("No se encontraron resultados.")
else
'Vamos a paginar
rs.AbsolutePage=PaginaActual
Response.Write("<font size=2 face=verdana>Página " & PaginaActual & " de " & PaginasTotales)
Response.Write("<br><br>")
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
Response.Write ("<tr>")
For i = 1 To 3
Response.Write ("<td>")
If Not rs.EOF Then
Response.Write ("<img src="&rs.Fields("foto")&" width=150>")
rs.MoveNext
End If
Response.Write("</td>")
Next
Response.Write("</tr>")
Loop
Response.Write(" ")
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
'Muestro los enlaces
Response.Write("<br><br>")
if PaginaActual > 1 then
Response.Write("<A HREF=?pagina="& PaginaActual-1& _
">siguientes</A> ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=?pagina=" & PaginaActual+1 & _
">anteriores</A>")
end if
%>
