<% '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() %> <% 'Cerco gli ultimi N link If Abilita_LinkLog Then Dim SQLLinkLog, RSLinkLog SQLLinkLog = " SELECT TOP "& Num_Max_LinkLog &" * FROM LinkLog WHERE LinkLog.Data <= '"& DataToStr(Date()) &"' ORDER BY LinkLog.Data DESC " Set RSLinkLog = Server.CreateObject("ADODB.Recordset") RSLinkLog.Open SQLLinkLog, Conn, 1, 3 %> <%=Testo_Titolo_AreaLinklog_HomePage%>
 
<% 'E visualizzo gli eventuali risultati If NOT RSLinkLog.EOF Then Do While NOT RSLinkLog.EOF %> <%=StrToData(RSLinkLog("Data"))%> - <%=RSLinkLog("Introduzione")%> - " onclick="this.target='_blank';"><%=RSLinkLog("TestoLinkato")%>
<% RSLinkLog.MoveNext Loop %>
<%=ALT_Ico_StoricoLinkLog%> <%=Link_StoricoLinkLog%>
<% Else %> <%=Testo_AreaLinklog_ErroreNessunRecord%> <% End If %>
<% End If %> <%=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 %>
"><%=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") &"", True)%> <% 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 %> <%=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 Set RSArticoli = Nothing End Sub Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), Sezione_HomePage, "", "") Conn.Close Set Conn = Nothing %>