<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 'FUNZIONE: questo script si occupa di mostrare i contributi pubblicati in una data specifica %> <% Sub Contenuto() %>

\\ <%=Sezione_HomePage%> : <%=Sezione_Pubblicazioni%>

<% Dim SQLArticoli, RSArticoli, DataRicerca, SQLFotografie, RSFotografie, FSTFotografia, ArticoloTrovato, FotografiaTrovata 'Effettuo il controllo sul parametro data If Request.QueryString("d") = "" OR IsNull(Request.QueryString("d")) OR IsNumeric(Request.QueryString("d")) = False OR Len(Request.QueryString("d")) <> 8 OR IsDate(StrToData(Request.QueryString("d"))) = False OR Request.QueryString("d") > DataToStr(Date()) Then DataRicerca = DataToStr(Date()) Else DataRicerca = Request.QueryString("d") End If %>

<%=Testo_Seguono_Contributi%>

<%=Testo_Segue_Articoli%> <%=StrToData(Server.HTMLEncode(DataRicerca))%>

<% 'Cerco gli articoli pubblicati nella data richiesta SQLArticoli = "SELECT Articoli.ID, Articoli.Sezione, Count(Commenti.ID) AS ConteggioID, Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture, Articoli.Podcast FROM Commenti RIGHT JOIN Articoli ON Commenti.IDArticolo = Articoli.ID WHERE Articoli.Data = '"& DataRicerca &"' AND NOT Articoli.Bozza GROUP BY Articoli.ID, Articoli.Sezione, Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture, Articoli.Podcast ORDER BY Articoli.Ora DESC" Set RSArticoli = Server.CreateObject("ADODB.Recordset") RSArticoli.Open SQLArticoli, Conn, 1, 3 'E visualizzo gli eventuali articoli trovati If RSArticoli.EOF = False Then ArticoloTrovato = False Do While NOT RSArticoli.EOF If Now() > cDate(StrToData(RSArticoli("Data")) & " " & StrToOra(RSArticoli("Ora"))) Then ArticoloTrovato = True %>

"><%=RSArticoli("Titolo")%>

<%=Contributo_Di%> "><%=RSArticoli("Autore")%> <%=Pubblicato_alle_singola%> <%=StrToOra(RSArticoli("Ora"))%> <%=Pubblicato_In%> "><%=RSArticoli("Sezione")%>, <%=Pubblicato_Clic%> <%=RSArticoli("Letture")%> <%=Pubblicato_Clic_chiudi%>

<%=Trailer(FileToVar(Path_DirPublic & RSArticoli("Testo"), 0), "articolo.asp?articolo="& RSArticoli("ID") &"", False)%> <% If RSArticoli("Podcast") <> "" AND NOT IsNull(RSArticoli("Podcast")) Then Call PodcastPlayer(RSArticoli("Podcast"), RSArticoli("Podcast")) End If %>

<%=Link_Articolo_permalink%> <%If Abilita_Commenti Then%>');<%Else%>articolo.asp?articolo=<%=RSArticoli("ID")%>#commenti<%End If%>"> <%=ALT_Ico_Commenti%>

<%=Link_Commenti%> (<%=RSArticoli("ConteggioID")%>)<%End If%> <%=ALT_Ico_Storico%>

<%=Link_Storico%> "> <%=ALT_Ico_Stampa%>

<%=Link_Stampa%>

<% End If RSArticoli.MoveNext Loop If ArticoloTrovato = False Then %>

<%=Errore_Articolo_NonTrovato%>

<% End If Else %>

<%=Errore_Articolo_NonTrovato%>

<% End If %>

<%=Testo_Segue_Fotografie%> <%=StrToData(Server.HTMLEncode(DataRicerca))%>

<% 'Cerco le fotografie pubblicate nella data richiesta 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 = '"& DataRicerca &"' GROUP BY Fotografie.ID, Fotografie.NomeFile, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture ORDER BY Fotografie.Ora DESC" Set RSFotografie = Server.CreateObject("ADODB.Recordset") RSFotografie.Open SQLFotografie, Conn, 1, 3 'E visualizzo le eventuali fotografie trovate If RSFotografie.EOF = False Then FotografiaTrovata = False Do While NOT RSFotografie.EOF 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_alle_singola%> <%=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%>"> <%=ALT_Ico_Commenti%>

<%=Link_Commenti%> (<%=RSFotografie("ConteggioID")%>)<%End If%> <%=ALT_Ico_Storico%>

<%=Categorie_Fotografie%>

<% Set FSTFotografia = Nothing End If RSFotografie.MoveNext Loop If FotografiaTrovata = False Then %>

<%=Errore_Fotografia_NonTrovata%>

<% End If Else %>

<%=Errore_Fotografia_NonTrovata%>

<% End If End Sub Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), "", "", "") Conn.Close Set Conn = Nothing %>