<% '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 %> <% End Sub Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), "", "", "") Conn.Close Set Conn = Nothing %>