|
GIURAMENTO A CASSOLA in collaborazione con il comune di Cassola e l'Esercito Italiano
<%
RecordsPerPagina=10
page=Request("page")
if page="" then page=1
Dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("bittante_data/foto.mdb")
%>
<%
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * from [foto] ;",conn,1,3
rs.PageSize=RecordsPerPagina
rs.AbsolutePage = page
%>
<%
Response.write" Pagina corrente - "
Response.write page
Response.write" Seleziona Pagina:"
For pag=1 to rs.PageCount
Response.write""
Response.write pag
Response.Write" "
Next
Response.write" Nessuna Immagine Trovata
|