<% 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=8 '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 actweb where id_client=53 ORDER BY data 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 %>
NOTICIAS   (<%=registros%> Noticias / Página <%=PaginaActual%> de <%=PaginasTotales%>)
<% 'Muestro los enlaces if PaginaActual > 1 then Response.Write(" Noticias anteriores   ") end if if PaginaActual < PaginasTotales then Response.Write(" Noticias siguientes ") end if %>
<% pathR = "http://www.msportservices.com/intranet/Fotos_PublicacioWeb/fotosr/" CuantosRegistros=0 do while not TBL.EOF and CuantosRegistros < TamPagina if TBL("Id_Galeria")<>0 then 'if not IsNull(TBL("Id_Galeria")) or TBL("Id_Galeria")=0 then Id_Galeria=TBL("Id_Galeria") set TBL2=Server.CreateObject("ADODB.Recordset") SQL2 = "SELECT Arxiu_Contacte, Arxiu_Ampliacio FROM ActWebFotos where Id_Galeria="&TBL("Id_Galeria") On Error Resume Next TBL2.Open SQL2, DB, 1, 2 TBL2.movefirst Arxiu_Contacte=TBL2("Arxiu_Contacte") Arxiu_Ampliacio=TBL2("Arxiu_Ampliacio") TBL2.Close Set TBL2 = Nothing else Id_Galeria=0 Arxiu_Contacte="" Arxiu_Ampliacio="" end if %>
<% if Arxiu_Contacte<>"" then%> width="106" height="72" border="1"> <%else%> <%end if%> <%=TBL("titular")%>
<%=TBL("data")%>. <%=TBL("subtitular")%>
[Más información] <% if Id_Galeria<>0 then%>    [Galería de Fotos] <%end if%>
<% CuantosRegistros=CuantosRegistros+1 'Movemos el puntero al siguiente registro del Recordset TBL.MoveNext 'Finalizamos el bucle Loop 'Cerramos el Recordset y lo destruimos TBL.Close Set TBL = Nothing 'Cerramos la conexión y la destruimos DB.Close Set DB = Nothing %>