<%
'dBlog 2.0 CMS Open Source
'Versione file 2.0.0
'FUNZIONE: questo script si occupa di visualizzare gli ultimi N articoli inviati ed il linklog
%>
<%
Sub Contenuto()
%>
<%=Sezione_HomePage%>
<%=Testo_Intro_HomePage%>
<%=Testo_Titolo_AreaWeblog_HomePage%>
<%
Dim SQLArticoli, RSArticoli, ArticoloTrovato
'Cerco gli ultimi N articoli
SQLArticoli = "SELECT TOP "& Num_Max_Articoli &" 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 ORDER BY Articoli.Data DESC, Articoli.Ora DESC"
Set RSArticoli = Server.CreateObject("ADODB.Recordset")
RSArticoli.Open SQLArticoli, Conn, 1, 3
'E visualizzo gli eventuali risultati
ArticoloTrovato = False
If NOT RSArticoli.EOF Then
Do While NOT RSArticoli.EOF
If Now() > cDate(StrToData(RSArticoli("Data")) & " " & StrToOra(RSArticoli("Ora"))) Then
ArticoloTrovato = True
%>
<%=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") &"", True)%>
<%
If RSArticoli("Podcast") <> "" AND NOT IsNull(RSArticoli("Podcast")) Then
Call PodcastPlayer(RSArticoli("Podcast"), RSArticoli("Podcast"))
End If
%>
<%
End If
RSArticoli.MoveNext
Loop
If ArticoloTrovato = False Then
%>
<%=Errore_Articolo_NonTrovato%>
<%
End If
Else
%>
<%=Errore_Articolo_NonTrovato%>
<%
End If
Set RSArticoli = Nothing
End Sub
Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), Sezione_HomePage, "", "")
Conn.Close
Set Conn = Nothing
%> 
<%=Link_Articolo_permalink%> <% If Abilita_Commenti Then %>');<% Else %>articolo.asp?articolo=<%=RSArticoli("ID")%>#commenti<% End If %>">
<%=Link_Commenti%> (<%=RSArticoli("ConteggioID")%>)<% End If %> 
<%=Link_Storico%> ">
<%=Link_Stampa%>