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("

") CuantosRegistros=0 do while not rs.EOF and CuantosRegistros < TamPagina 'Pinto una línea de la tabla por cada registro Response.Write(""&VbCrLf) Response.Write(" ") Response.Write("") Response.Write("") CuantosRegistros=CuantosRegistros+1 rs.MoveNext loop Response.Write("

"&rs.Fields("nombre")&"
") end if rs.Close oConn.Close set rs=nothing set oConn=nothing 'Muestra los enlaces de a 30 Resultados Response.Write("
") if PaginaActual > 1 then Response.Write("30 Anteriores   ") end if if PaginaActual < PaginasTotales then Response.Write("30 Siguientes") end if %>