<%
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))))"
%>
Images of Dama in Casentino ( Tuscany Italy )
<%
Set RScategorie=objPagingConn.Execute(sqlcategorie)
Do while NOT RScategorie.EOF%>
