<%
If Request.QueryString("categoria") = "" Then
CategoriaCorrente = 1
Else
CategoriaCorrente = CInt(Request.QueryString("categoria"))
End If
If Request.QueryString("pagina") = "" Then
PaginaCorrente = 1
Else
PaginaCorrente = CInt(Request.QueryString("pagina"))
End If
If Request.QueryString("gpagina") = "" Then
GrandPagina = 6
Else
GrandPagina = CInt(Request.QueryString("gpagina"))
End If
%>
Album Fotografico <%=CategoriaCorrente%>/<%=PaginaCorrente%> - Associazione Pro Loco Dama in Casentino: panorama, scorci del paese, immagini, natura, feste estive, eventi, bosco, naturali, chiusi della verna, montagna, centro storico, paesino, manifestazioni, associazioni, casentino, natura, vacanze, relax, dama, pro loco, toscana, italia, chiusi, verna, arezzo, vota
<%
strSQL = "SELECT * FROM Immagini, Utenti, Categorie WHERE ([Immagini].[Categoria]=" & CategoriaCorrente & ") AND ([Immagini].[Visibile] = true) AND ([Utenti].[ID_Utente]=[Immagini].[Utente_Upload]) AND ([Immagini].[Categoria]=[Categorie].[ID_Categoria]) ORDER BY [Immagini].[Bellezza], [Immagini].[Data] desc"
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 = GrandPagina
RSimmagini.CacheSize = GrandPagina
RSimmagini.Open strSQL, objPagingConn, 3, 1, &H0001
reccount = RSimmagini.recordcount
TotPagine = RSimmagini.PageCount
If PaginaCorrente > TotPagine Then PaginaCorrente = TotPagine
If PaginaCorrente < 1 Then PaginaCorrente = 1
if RSimmagini.EOF then%>
Ci spiace, data-base in costruzione, non abbiamo ancora inserito questo articolo.
Riprovi fra qualche giorno.<%
Else
if TotPagine=0 then
Response.Write "
Il DataBase è vuoto!
"
Else
sqlcategorie = "SELECT * FROM Categorie WHERE ((([Categorie].[ID_Categoria]) In (select distinct([Immagini].[Categoria]) from Immagini where ([Immagini].[Visibile] = true))))"
Set RScategorie = Server.CreateObject("ADODB.Recordset")
RScategorie.Open sqlcategorie, objPagingConn, 3, 1, &H0001
%>
