CARTAZES DE FILMES
Coloco à disposição uma parte de minha coleção. Sempre que possível, adicionarei outros cartazes.
<%
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 %>