<%
strSQL="SELECT ID_Immagine FROM Immagini WHERE [Immagini].[Visibile] = true"
Set objPagingConn = Server.CreateObject("ADODB.Connection")
objPagingConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/immagini.mdb")
Set RSimmagini = Server.CreateObject("ADODB.Recordset")
RSimmagini.PageSize = 1
RSimmagini.CacheSize = 1
RSimmagini.Open strSQL, objPagingConn, 3, 1, &H0001
reccount = RSimmagini.recordcount
TotPagine = RSimmagini.PageCount
If Request.Cookies("immagini")("PRIMA")="True" Then 'controlla se c è
NewImg=cint(RSimmagini.recordcount)-cint(request.cookies("immagini")("num"))
Response.Cookies("immagini").Expires=date+(365*5)
Response.Cookies("immagini").Secure=FALSE
Response.Cookies("immagini")("PRIMA")=True
response.cookies("immagini")("num")=cstr(RSimmagini.recordcount)
if NewImg > 0 then
saluto="Dall'ultima visita sono state aggiunte "&NewImg&" immagini."
else
saluto="Dall'ultima visita non sono state aggiunte immagini."
end if
Else
Response.Cookies("immagini").Expires=date+(365*5)
Response.Cookies("immagini").Secure=FALSE
Response.Cookies("immagini")("PRIMA")=True
response.cookies("immagini")("num")=cstr(RSimmagini.recordcount)
saluto="E' la prima volta che vieni, hai "&RSimmagini.recordcount&" immagini da vedere!"
End If
RSimmagini.Close
Set RSimmagini = Nothing
sqlcategorie = "SELECT * FROM Categorie WHERE ((([Categorie].[ID_Categoria]) In (select distinct([Immagini].[Categoria]) from Immagini where ([Immagini].[Visibile] = true))))"
%>
Album Fotografico di Dama in Casentino: foto, immagini, scorci del paese, panorama, feste estive, eventi,Anghiari,Arezzo,Badia Tedalda,Bibbiena,Bucine,Capolona,Caprese Michelangelo,Castel Focognano,Castel San Niccolò,Castelfranco di Sopra,Castiglion Fibocchi,Castiglion Fiorentino,Cavriglia,Chitignano,Chiusi della Verna,Civitella in Val di Chiana,Cortona,Foiano della Chiana,Laterina,Loro Ciuffenna,Lucignano,Marciano della Chiana,Monte San Savino,Montemignaio,Monterchi,Montevarchi,Ortignano Raggiolo,Pergine Valdarno,Pian di Scò,Pieve Santo Stefano,Poppi,Pratovecchio,San Giovanni Valdarno,Sansepolcro,Sestino,Stia,Subbiano,Talla,Terranuova Bracciolini, montagna, centro storico
<%
Set RScategorie=objPagingConn.Execute(sqlcategorie)
Do while NOT RScategorie.EOF%>
