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