<% '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") %>
<%=Contributo_Di%> "><%=RSFotografie("Autore")%> <%=Pubblicato_il%> <%=StrToData(RSFotografie("Data"))%> <%=Pubblicato_alle%> <%=StrToOra(RSFotografie("Ora"))%> <%=Pubblicato_Letture%> <%=RSFotografie("Letture")%> <%=Pubblicato_Letture_chiudi%>
<%=RSFotografie("Descrizione")%> ">»»






<% 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%>
    <% 'Altrimenti cerco tutte le sezioni disponibili in cui sono state pubblicate fotografie SQLFotografie = " SELECT [Sezione] FROM [Fotografie] WHERE Fotografie.Data <= '"& DataToStr(Date()) &"' GROUP BY [Sezione] ORDER BY [Sezione] ASC " Set RSFotografie = Server.CreateObject("ADODB.Recordset") RSFotografie.Open SQLFotografie, Conn, 1, 3 'E visualizzo gli eventuali risultati If NOT RSFotografie.EOF Then Do While NOT RSFotografie.EOF %>
  • ">

    <%=RSFotografie("Sezione")%>

  • <% RSFotografie.MoveNext Loop %>
<% Else %>
<%=Errore_Categorie_NonTrovate%>
<% End If End If End Sub Call GeneraPagina(Server.MapPath(Path_Template & "pagina_fotografia.htm"), "", "", "") Conn.Close Set Conn = Nothing %>