<% %> <%=Testo_Sottotitolo_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 %>

<% Else %> <%=Testo_AreaLinklog_ErroreNessunRecord%> <% End If %>

<% End If %> <%=Testo_Titolo_AreaWeblog_HomePage%> <% %> <%=Testo_Sottotitolo_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.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 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 %>

" 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 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 %>