<% '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 Else 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_IconimmaginiPerPagina 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 '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%>" border="0" style="border: 1px solid #FFFFFF; " hspace="2" vspace="2" width="90" height="68" />    <% Else %> "> <%=Path_DirPublic%><%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin%>T-nd.gif<%End If%>&opx=<%=Num_ResizeASPNET_LarghezzaFotoThumbnail%>" alt="<%=ALT_Immagine_Thumbnail%>" style="border: 2px solid #FFFFFF" hspace="2" vspace="2" width="90" height="68" /> <% End If %>
<% End If RSFotografie.MoveNext Set FSTFotografia = Nothing End If Next If FotografiaTrovata = False Then %>
<%=Errore_Iconimmagine_NonTrovata%>
<% End If %> <% Else %>
<%=Errore_Iconimmagini_NonTrovate%>
     <% Else %>
<%=Errore_Categorie_NonTrovate%>
<% End If End If End Sub Call GeneraPagina(Server.MapPath(Path_Template & "iconimmagini.htm"), "", "", "") Conn.Close Set Conn = Nothing %>