<%@LANGUAGE="VBSCRIPT"%>
<% Option Explicit %>
<%
'Al hacer un include tiene que definir obligatoriamente todas las variables que vayas a utilizar
Dim Conn, rs, sSQL, contador
Dim PaginaActual ' en qu pagina estamos
Dim PaginasTotales ' cuntas pginas 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=3
'Leemos qu pgina mostrar. La primera vez ser la inicial
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if
'Ahora conectamos con la base de datos
Conectar
Registro RS
'Ahora creamos la sentencia SQL
sSQL="Select nombre,imagen From imagenes"
' Defino el tamaño de las páginas
rs.PageSize=TamPagina
rs.CacheSize=TamPagina
' Abro el recordset
rs.Open sSQL, Conn, 1
'Cuento las pginas
PaginasTotales=rs.PageCount
'Compruebo que la pagina actual esta en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
'Vamos a entrar ya en la paginacion propiamente dicha.
'Primero comprobamos que la consulta nos ha devuelto datos, y luego paginamos.
'Llevamos en CuantosRegistros la cuenta del n de filas que hemos sacado.
'Cuando llevemos TamPagina filas (10 en este caso), nos detenemos. Por si la consulta no devuelve registros!
if PaginasTotales=0 then
mensaje = "no se encontraron resultados."
Response.Write(mensaje)
else
'Vamos a paginar
rs.AbsolutePage=PaginaActual
Response.Write("
")
CuantosRegistros=0
contador=0
do while not rs.EOF and CuantosRegistros < TamPagina
' Visualizo una tabla por cada registro
Response.Write("
"&rs.Fields("nombre")&" ")
Response.Write("
")
contador=contador+1
if contador=3 then
Response.Write("
")
'para que empiece a contar desde cero en la siguiente fila
contador=0
end if
CuantosRegistros=CuantosRegistros+1
rs.MoveNext
loop
Response.Write("
")
end if
rs.Close
Conn.Close
set rs=nothing
set Conn=nothing
'Ya hemos terminado, nos falta poner los enlaces para avanzar o retroceder. Vamos a ello:
'Muestro los enlaces
if PaginaActual = 1 then
'para que centre el hipervinculo en el primer registro
Response.Write("