<% 'Visualizzo le sezioni e gli articoli in esse contenuti Dim SQLCategorieArticoli, RSCategorieArticoli SQLCategorieArticoli = " SELECT Count(Articoli.ID) AS TotaleArticoli, Articoli.Sezione FROM Articoli WHERE Articoli.Data & Articoli.Ora <= '"& DataToStr(Date()) & OraToStr(Time()) &"' AND Articoli.Bozza = False GROUP BY Articoli.Sezione " Set RSCategorieArticoli = Server.CreateObject("ADODB.Recordset") RSCategorieArticoli.Open SQLCategorieArticoli, Conn, 1, 3 If NOT RSCategorieArticoli.EOF Then Do While NOT RSCategorieArticoli.EOF %> "><%=RSCategorieArticoli("Sezione")%> (<%=RSCategorieArticoli("TotaleArticoli")%>)
<% RSCategorieArticoli.MoveNext Loop End If RSCategorieArticoli.Close Set RSCategorieArticoli = Nothing %>
<%=Testo_Catalogati_Mese%>
<% 'Creo i link allo storico per mese Do Until StrToData(Data_Prima_Pubblicazione) > Date() Response.Write "" & UCase(Mid(MonthName(Mid(Data_Prima_Pubblicazione, 5, 2), False), 1, 1)) & Mid(MonthName(Mid(Data_Prima_Pubblicazione, 5, 2), False), 2, Len(MonthName(Mid(Data_Prima_Pubblicazione, 5, 2), False)) - 1) & " " & Mid(Data_Prima_Pubblicazione, 1, 4) & "
" Data_Prima_Pubblicazione = DataToStr(DateAdd("m", 1, StrToData(Data_Prima_Pubblicazione))) Loop 'Se la classifica articoli è abilitata eseguo il codice relativo If Abilita_PiuLetti Then %>
<% End If 'Se la visualizzazione degli ultimi Commenti è abilitata eseguo il codice relativo If Abilita_UltimiCommenti Then %>
<%=Testo_Ultimi_Commenti%>
<% Dim SQLUltimiCommenti, RSUltimiCommenti SQLUltimiCommenti = " SELECT TOP "& Num_Max_UltimiCommenti &" [ID], [IDArticolo], [IDFotografia], [Testo], [Autore], [Data], [Ora] FROM Commenti ORDER BY [Data] DESC, [Ora] DESC " Set RSUltimiCommenti = Server.CreateObject("ADODB.Recordset") RSUltimiCommenti.Open SQLUltimiCommenti, Conn, 1, 3 If NOT RSUltimiCommenti.EOF Then Do While NOT RSUltimiCommenti.EOF If RSUltimiCommenti("IDArticolo") > 0 Then If NOT Abilita_PopupCommenti Then %> #commento<%=RSUltimiCommenti("ID")%>"> <% Else %> #commento<%=RSUltimiCommenti("ID")%>');"> <% End If Else If NOT Abilita_PopupCommenti Then %> #commento<%=RSUltimiCommenti("ID")%>"> <% Else %> #commento<%=RSUltimiCommenti("ID")%>');"> <% End If End If If Len(NoHTML(RSUltimiCommenti("Testo"))) > Num_Max_UltimiCommentiCaratteri Then %> <%=Mid(NoHTML(RSUltimiCommenti("Testo")), 1, Num_Max_UltimiCommentiCaratteri) & "..."%> <% Else %> <%=NoHTML(RSUltimiCommenti("Testo"))%> <% End If %>
<%=StrToData(RSUltimiCommenti("Data"))%> <%=Pubblicato_alle%> <%=StrToOra(RSUltimiCommenti("Ora"))%>
<%=Contributo_Di%> <%=RSUltimiCommenti("Autore")%>
<% RSUltimiCommenti.MoveNext Loop End If RSUltimiCommenti.Close Set RSUltimiCommenti = Nothing %>