GALERIA DE ARTISTAS
<% 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 ' para imprimir solo el nº de registro por pagina que queramos 'cuantos resultados por pagina TamPagina=30 '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 Id, small, big, nombre FROM Tabla1;" ' 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 Fotografías devuelve este mensaje if PaginasTotales=0 then Response.Write("No se Encontraron Fotografías.") else 'Escribiendo la pagina en HTML con ASP rs.AbsolutePage=PaginaActual Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales) Response.Write("
") Response.Write("
"&rs.Fields("nombre")&" | ")
Response.Write("") Response.Write(" |
") if PaginaActual > 1 then Response.Write("30 Anteriores ") end if if PaginaActual < PaginasTotales then Response.Write("30 Siguientes") end if %>