<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Option Explicit%> Coto Cruz del Viso
<% Dim conexion : Set conexion = Server.CreateObject("ADODB.Connection") conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/bd/bd.mdb") & ";User Id=admin;Password=;" Dim sql : Set sql = New cSql Set sql.Connection = conexion %> <% Dim imagenesPorPag : imagenesPorPag = 16 Dim imagenesPorFila : imagenesPorFila = 4 Dim pager : Set pager = New cPaginacion Dim i : i = 0 sql.CommandText = "SELECT * FROM Imagenes;" pager.TotalPaginas = sql.NumberOfPages(imagenesPorPag) Dim rsImagenes : Set rsImagenes = sql.ExecuteRange((pager.PaginaActual-1)*imagenesPorPag,imagenesPorPag) While Not rsImagenes.EOF If i Mod imagenesPorFila = 0 Then %><% End If %><% If i Mod imagenesPorFila = 3 Then %><% End If i = i + 1 rsImagenes.MoveNext() WEnd If i Mod imagenesPorFila <> 3 Then Response.Write("") End If rsImagenes.Close() Set rsImagenes = Nothing %>
" target="_blank">" style="width:125px;height:100px;margin:20px;border:solid 1px black;padding:1px;" />
<% pager.EscribirNavegacion("") %>
inicio quiénes sómos servicios galería de imágenes cómo llegar contacto