<%
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
'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=10
'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 TBL=Server.CreateObject("ADODB.Recordset")
ssql = "Select * From ActWebGaleries where id_client=53 ORDER BY Data_Galeria DESC"
' Defino el tamaño de las páginas
TBL.PageSize=TamPagina
TBL.CacheSize=TamPagina
' Defino el cursor en el cliente: adUseClient
TBL.CursorLocation = 3
TBL.CursorType=1
TBL.Open ssql, DB, 1, 2
registros = TBL.recordcount
'Cuento las páginas
PaginasTotales=TBL.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
on error resume next
TBL.AbsolutePage=PaginaActual
%>
GALERÍAS DE FOTOS (<%=registros%> Galerías /
Página <%=PaginaActual%> de <%=PaginasTotales%>)
<%
'Muestro los enlaces
if PaginaActual > 1 then
Response.Write("Galerías anteriores ")
end if
if PaginaActual < PaginasTotales then
Response.Write(" Galerías siguientes")
end if
%>
<%
CuantosRegistros=0
do while not TBL.EOF and CuantosRegistros < TamPagina
On Error Resume Next %>
<%enlace="fotosgaleria.asp?id_Galeria="&TBL("id_Galeria")&"&Nom_galeria="&TBL("nom_galeria")%>
<%
Num_Fotos =0
pathR = "http://www.msportservices.com/intranet/Fotos_PublicacioWeb/fotosr/"
set TBL2=Server.CreateObject("ADODB.Recordset")
ssql2 = "Select * From ActWebFotos WHERE Id_galeria="&TBL("Id_galeria")
TBL2.Open ssql2, DB, 1, 2
Num_Fotos = TBL2.recordcount
TBL2.movefirst
Arxiu_Contacte=TBL2("Arxiu_Contacte")
TBL2.Close
set TBL2 = Nothing
%>
