<%
'dBlog 2.0 CMS Open Source
'Versione file 2.0.0
'FUNZIONE: questo script si occupa di visualizzare le sezioni contenenti fotografie
%>
<%
Sub Contenuto()
If Request.QueryString("s") = "" Then
%>
<%=Sezione_Fotografie%>
<%
Else
%>
<%=Sezione_Fotografie%> » <%=Server.HtmlEncode(Request.QueryString("s"))%>
<%
End If
Dim SQLFotografie, RSFotografie, FSezione, FSTFotografia, FotografiaTrovata, Pagina, Z, Temp, RecordPerPagina
'Effettuo il controllo sul parametro sezione
If Request.QueryString("s") <> "" Then
FSezione = Request.QueryString("s")
End If
'Se la sezione esiste cerco le fotografie disponibili per tale sezione
SQLFotografie = "SELECT Fotografie.ID, Fotografie.NomeFile, Count(Commenti.ID) AS ConteggioID, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture FROM [Commenti] RIGHT JOIN Fotografie ON Commenti.IDFotografia = Fotografie.ID WHERE Fotografie.Data <= '"& DataToStr(Date()) &"' AND Fotografie.Sezione = '"& ControlloSQLInjection(FSezione) &"' GROUP BY Fotografie.ID, Fotografie.NomeFile, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture ORDER BY Fotografie.Data DESC, Fotografie.Ora DESC"
Set RSFotografie = Server.CreateObject("ADODB.Recordset")
RSFotografie.Open SQLFotografie, Conn, 1, 3
RecordPerPagina = Num_Max_FotografiePerPagina
Pagina = Request.QueryString("pagina")
If Pagina = "" OR Pagina = "0" OR IsNumeric(Pagina) = False Then
Pagina = 1
Else
If Pagina <= 0 Then
Pagina = 1
End If
End If
If RSFotografie.EOF = False OR RSFotografie.BOF = False Then
RSFotografie.PageSize = RecordPerPagina
RSFotografie.AbsolutePage = Pagina
%>
<%=Testo_Seguono_Fotografie%>
<% 'E visualizzo gli eventuali risultati FotografiaTrovata = False For Z = 1 To RecordPerPagina If NOT RSFotografie.EOF Then If Now() > cDate(StrToData(RSFotografie("Data")) & " " & StrToOra(RSFotografie("Ora"))) Then FotografiaTrovata = True Set FSTFotografia = CreateObject("Scripting.FileSystemObject") %>
<%
If NOT Abilita_ResizeASPNET Then
%>
">
<%=Path_DirPublic%>T-<%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin%>T-nd.gif<%End If%>" alt="<%=ALT_Immagine_Thumbnail%>" style="border: 3px double #C0C0C0; ; background-color:#FFFFFF" />
<%
Else
%>
">
<%=Path_DirPublic%><%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin%>T-nd.gif<%End If%>&opx=<%=Num_ResizeASPNET_LarghezzaFotoThumbnail%>" alt="<%=ALT_Immagine_Thumbnail%>" style="border: 3px double #C0C0C0; background-color:#FFFFFF" />
<%
End If
%>
<%=Contributo_Di%> "><%=RSFotografie("Autore")%> <%=Pubblicato_il%> <%=StrToData(RSFotografie("Data"))%> <%=Pubblicato_alle%> <%=StrToOra(RSFotografie("Ora"))%> <%=Pubblicato_Letture%> <%=RSFotografie("Letture")%> <%=Pubblicato_Letture_chiudi%>
<%=RSFotografie("Descrizione")%> ">»»
"> <%=Link_Fotografie%> <%If Abilita_Commenti Then%>');<%Else%>fotografia.asp?fotografia=<%=RSFotografie("ID")%>#commenti<%End If%>"> <%=Link_Commenti%> (<%=RSFotografie("ConteggioID")%>)<%End If%> <%=Categorie_Fotografie%>
<%
End If
RSFotografie.MoveNext
Set FSTFotografia = Nothing
End If
Next
If FotografiaTrovata = False Then
%>
<%=Errore_Fotografia_NonTrovata%>
<%
End If
%>
<%=Testo_Paginazione%>:
<%
For Temp = 1 To RSFotografie.PageCount
Response.Write ""
Response.Write Temp
Response.Write " "
Next
%>
<%
Else
%>
<%=Errore_Fotografie_NonTrovate%>
<%=Errore_Categorie_NonTrovate%>
<%
End If
End If
End Sub
Call GeneraPagina(Server.MapPath(Path_Template & "pagina_fotografia.htm"), "", "", "")
Conn.Close
Set Conn = Nothing
%> |