<%@Language=VBScript%> <%Option Explicit%> <%Response.Buffer = True%> <% 'Navigation System sub PageNavigation () Response.Write "" 'below is the page navigation using links. Response.Write "" Response.Write "

" If Current_Page = 1 Then Response.Write "primera" End If If Current_Page >= 2 Then Response.Write "primera" End If Response.Write "	" If Current_Page <> 1 Then Response.Write "previa" End If If Current_Page = 1 Then Response.Write "previa" End If Response.Write "	" If Current_Page >= Page_Count Then Response.Write "próxima" End If If Current_Page < Page_Count Then Response.Write "próxima" End IF Response.Write "	" If Current_Page <> Page_Count Then Response.Write "última" End If If Current_Page >= Page_Count Then Response.Write "última" End If Response.Write "
Página " & Current_Page & " de " & Page_Count & "

" end sub 'End Navigation System %>

c a r l a n g a . c o m   f o t o s

<% Dim Connect_String Dim Page_Size Dim Current_Page Dim Page_Count Dim MyConn, RS, SQL Dim strRowColor Dim intCurrentImage 'Connect_String="Provider={Microsoft Access Driver (*.mdb)}; DBQ=C:\Databases\paging.mdb" Connect_String="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\\premfs2\sites\premium7\catdog\database\fotos.mdb" & ";PWD=astro99bk" Page_Size = 10 'this is where you set the # of records displayed per page If Request("Page") = "" Then Current_Page = 1 Else Current_Page = CInt(Request("Page")) End If intCurrentImage = CInt((Current_Page * Page_Size) - 9) Set MyConn=Server.CreateObject("ADODB.Connection") Set RS=Server.CreateObject("ADODB.RecordSet") MyConn.Open Connect_String RS.CursorLocation = adUseClient RS.PageSize = Page_Size SQL = "SELECT * FROM location ORDER BY locdate DESC" RS.Open SQL, MyConn, adOpenStatic, adLockReadOnly, adCmdText Page_Count = RS.PageCount If 1 > Current_Page Then Current_Page = 1 If Current_Page > Page_Count Then Current_Page = Page_Count RS.AbsolutePage = Current_Page 'Call PageNavigation %>

<% strRowColor = "class=GridOddRowUnselected" Do While RS.AbsolutePage = Current_Page And Not RS.EOF %> > <% IF strRowColor = "class=GridOddRowUnselected" THEN strRowColor = "class=GridEvenRowUnselected" ELSE strRowColor = "class=GridOddRowUnselected" END IF intCurrentImage = intCurrentImage + 1 RS.MoveNext Loop RS.Close Set RS = Nothing MyConn.Close Set MyConn = Nothing %> <%=RS("locdate")%> "><%=RS("loctitle")%>

Otros links de interés en este website 4/11/2002 Mi análisis de las fotos de Puente Llaguno publicadas por Le Monde Diplomatique

Fotos en otros websites 4/11/2002 Marcha 11 de Abril 2/27/2002 Marcha 27-F 1/23/2002 Marcha 23 de Enero 1/23/2002 Marcha 23 de Enero - Washington, D.C.

<% 'Call PageNavigation %>

visitas