Hola chicos, mi problemas es el mismo, lo único que yo sí que veo los links de "10 siguientes" y "10 anteriores". Pero algo tengo mal puesto en las variables de los links por que me da error de: NO ENCUENTRA LA PAGINA.
Mi BD esta hecha en Acces y tiene el nombre imagenes.mdb y la tabla: Tabla1.
El codigo de la página es el siguiente:
<%
Dim oConn
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos
'cuantos resultados por pagina
TamPagina=15
'Leemos qué página mostrar. La primera vez será la inicial
if Request.Querystring("galeria.asp")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("galeria.asp "))
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("imagenes.mdb")&";"
sql="SELECT Id, nombre, titulo FROM Tabla1;"
' MOSTRAR TODO EL CONTENIDO DE LA BD ORDENADO POR LA ID
sql = "SELECT * FROM Tabla1 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
'Si no existen Fotografias devuelve este mensaje
if PaginasTotales=0 then
Response.Write("No se Encontraron Fotografias.")
else
CuantosRegistros=0
do while not rs.EOF and CuantosRegistros < TamPagina
'Pinto una línea de la tabla por cada registro
Response.Write("<div class=""img"">")
Response.Write("<div class=""titular"">")
Response.Write(""&rs.Fields("Id")&" "&r s.Fields("nombre"))
Response.Write("</div>")
Response.Write("<a href="""&rs.Fields("titulo")& """target=""_blank""><img border=""0"" src="""&rs.Fields("titulo")&"""width=""100"" height=""100"">")
Response.Write("</div>")
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
end if
rs.Close
oConn.Close
set rs=nothing
set oConn=nothing
'Muesta los enlaces de a 10 Resultados
Response.Write("<hr>")
if PaginaActual > 1 then
Response.Write("<A HREF=rspagina.asp?pagina="& PaginaActual-1 &" class=""blanco""> 10 Anteriores</A> ")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=rspagina.asp?pagina=" & PaginaActual+1 &" class=""blanco""> 10 Siguientes</A>")
end if
%>
Gracias de antemano cracks!