<%@language=vbscript%>

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"

" %> <% If rs.EOF=true or rs.Bof=true then response.write"

Nessuna Immagine Trovata

" Else For i=1 to RecordsPerPagina if not rs.EOF then %>

" & vbCrLf %>

<%rs.MoveNext end if next end if %>

<%response.write "" & _ "

Rif. Foto per Ordinazione: <%response.write rs.fields("descrizione") %>



 Copyright © 2001 COMPUTER SYSTEM - foto ottica Bittante 2002