<% '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_HomePage%> : <%=Sezione_Fotografie%>
<% Else %>
\\ <%=Sezione_HomePage%> : <%=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%>" /> <% Else %> "><%=Path_DirPublic%><%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin%>T-nd.gif<%End If%>&opx=<%=Num_ResizeASPNET_LarghezzaFotoThumbnail%>" alt="<%=ALT_Immagine_Thumbnail%>" /> <% 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")%> ">...
"><%=ALT_Ico_Fotografia%> <%=Link_Fotografie%> <%If Abilita_Commenti Then%>');<%Else%>fotografia.asp?fotografia=<%=RSFotografie("ID")%>#commenti<%End If%>"><%=ALT_Ico_Commenti%> <%=Link_Commenti%> (<%=RSFotografie("ConteggioID")%>)<%End If%> <%=ALT_Ico_Sezioni%> <%=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%>
<% Else %>
<%=Errore_Categorie_NonTrovate%>
<% End If End If End Sub Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), "", "", "") Conn.Close Set Conn = Nothing %>