<% '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.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.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.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.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.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.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 %>
"><%=RSArticoli("Titolo")%>
<%=Contributo_Di%> "><%=RSArticoli("Autore")%> <%=Pubblicato_il%> <% If DataToStr(Date()) = RSArticoli("Data") Then %><%=StrToData(RSArticoli("Data"))%><% Else %><%=StrToData(RSArticoli("Data"))%><% End If %> <%=Pubblicato_alle%> <%=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 %>
"><%=ALT_Ico_Articolo%> <%=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 %> <% If QSSezioneStorico = "" Then %>  <%=ALT_Ico_Storico%> <%=Link_Storico%>  <% Else %>  <%=ALT_Ico_Storico%> <%=Link_Storico%>  <% End If %> "><%=ALT_Ico_Stampa%> <%=Link_Stampa%>
 
<% 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 %>