<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 'FUNZIONE: questo script si occupa di visualizzare tutti gli articoli pubblicati nel tempo %> <% Sub Contenuto() Dim SQLArticoli, RSArticoli, Pagina, Z, Temp, RecordPerPagina, MeseDelloStorico, QSSezioneStorico, QSOrdinamento 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 QSOrdinamento = Request.QueryString("ordinamento") If QSOrdinamento = "" OR (LCase(QSOrdinamento) <> "asc" AND LCase(QSOrdinamento) = "desc") Then QSOrdinamento = "desc" End If MeseDelloStorico = Request.QueryString("m") QSSezioneStorico = Request.QueryString("s") If QSSezioneStorico = "" Then If MeseDelloStorico <> "" Then %>

  <%=Sezione_HomePage%> » <%=Sezione_Storico_Mese%> ("><%=Link_InvertiOrdineCronologia%>)

<%=Testo_Seguono_TuttiContributi_Sito%>
<% Else %>

<%=Sezione_HomePage%> » <%=Sezione_Storico%> ("><%=Link_InvertiOrdineCronologia%>)

<%=Testo_Seguono_TuttiContributi_Sito%>
<% End If Else %>

<%=Sezione_HomePage%> » <%=Sezione_Storico%> » <%=Server.HTMLEncode(QSSezioneStorico)%> ("><%=Link_InvertiOrdineCronologia%>)

<%=Testo_Seguono_TuttiContributi_Sezione%>
<% End If If IsDate(StrToData(MeseDelloStorico)) = False Then MeseDelloStorico = "" End If 'Costruisco la query in base al passaggio di parametri If QSSezioneStorico = "" Then If MeseDelloStorico <> "" Then SQLArticoli = "SELECT Articoli.ID, Articoli.Sezione, Count(Commenti.ID) AS ConteggioID, Articoli.Titolo, Articoli.Sottotitolo, 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 LIKE '"& Mid(MeseDelloStorico, 1, 6) &"%' AND NOT Articoli.Bozza GROUP BY Articoli.ID, Articoli.Sezione, Articoli.Titolo, Articoli.Sottotitolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture, Articoli.Podcast " Else SQLArticoli = "SELECT Articoli.ID, Articoli.Sezione, Count(Commenti.ID) AS ConteggioID, Articoli.Titolo, Articoli.Sottotitolo, 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 <= '"& DataToStr(Date()) &"' AND NOT Articoli.Bozza GROUP BY Articoli.ID, Articoli.Sezione, Articoli.Titolo, Articoli.Sottotitolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture, Articoli.Podcast " End If Else SQLArticoli = "SELECT Articoli.ID, Articoli.Sezione, Count(Commenti.ID) AS ConteggioID, Articoli.Titolo, Articoli.Sottotitolo, 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 <= '"& DataToStr(Date()) &"' AND Articoli.Sezione = '"& DoppioApice(QSSezioneStorico) &"' AND NOT Articoli.Bozza GROUP BY Articoli.ID, Articoli.Sezione, Articoli.Titolo, Articoli.Sottotitolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture, Articoli.Podcast " End If If LCase(QSOrdinamento) = "desc" Then SQLArticoli = SQLArticoli & " ORDER BY Articoli.Data DESC, Articoli.Ora DESC " Else SQLArticoli = SQLArticoli & " ORDER BY Articoli.Data ASC, Articoli.Ora ASC " End If Set RSArticoli = Server.CreateObject("ADODB.Recordset") RSArticoli.Open SQLArticoli, Conn, 1, 3 RecordPerPagina = Num_Max_ArticoliPerPagina 'Visualizzo gli eventuali articoli trovati If RSArticoli.EOF = False OR RSArticoli.BOF = False Then RSArticoli.PageSize = RecordPerPagina RSArticoli.AbsolutePage = Pagina For Z = 1 To RecordPerPagina If NOT RSArticoli.EOF Then If Now() > cDate(StrToData(RSArticoli("Data")) & " " & StrToOra(RSArticoli("Ora"))) Then %>
" target="_self"> .jpg style="border:2px solid #505880" align="middle"> <%=StrToData(RSArticoli("Data"))%>
" onclick="this.target='_self';"><%=RSArticoli("Titolo")%>»
<%=RSArticoli("Sottotitolo")%>
Sezione: " onclick="this.target='_self';"> <%=RSArticoli("Sezione")%> -<% If Abilita_Commenti Then %>');<% Else %>articolo.asp?articolo=<%=RSArticoli("ID")%>#commenti<% End If %>"> <%=Link_Commenti%> (<%=RSArticoli("ConteggioID")%>) <% End If %> <%=Pubblicato_Clic%> <%=RSArticoli("Letture")%> <%=Pubblicato_Clic_chiudi%>
<% End If RSArticoli.MoveNext End If Next %>
<%=Testo_Paginazione%>: <% For Temp = 1 To RSArticoli.PageCount Response.Write "" Response.Write Temp Response.Write " " Next %>
<% Else %>
<%=Errore_Articolo_NonTrovato%>
<% End If End Sub Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), "", "", "") Conn.Close Set Conn = Nothing %>