<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 'FUNZIONE: questo script si occupa di visualizzare la classifica degli articoli e delle fotografie più letti %> <% Sub Contenuto() %>

\\ <%=Sezione_HomePage%> : <%=Sezione_Classifica%>

<% 'Se la classifica non è abilitata visualizzo il messaggio If Abilita_PiuLetti = False Then %>

<%=Errore_Classifica_NonAbilitata%>

<% Else Dim SQLArticoli, RSArticoli, SQLFotografie, RSFotografie, ArticoloTrovato, FotografiaTrovata, Parole, FSTFotografia %>

<%=Testo_Segue_classifica%>

<%=Titolo_Classifica_Articoli%>

<% 'Cerco gli articoli più letti SQLArticoli = "SELECT TOP "& Num_Max_PiuLetti &" Articoli.ID, Articoli.Sezione, Count(Commenti.ID) AS ConteggioID, Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture 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 ORDER BY Articoli.Letture DESC" Set RSArticoli = Server.CreateObject("ADODB.Recordset") RSArticoli.Open SQLArticoli, Conn, 1, 3 'E visualizzo gli eventuali risultati If RSArticoli.EOF = False Then ArticoloTrovato = False Do While NOT RSArticoli.EOF If Now() > cDate(StrToData(RSArticoli("Data")) & " " & StrToOra(RSArticoli("Ora"))) Then If InStr(FileToVar(Path_DirPublic & RSArticoli("Testo"), 0), Parole) > 0 Then ArticoloTrovato = True %>

"><%=RSArticoli("Titolo")%>

<%=Contributo_Di%> "><%=RSArticoli("Autore")%> <%=Pubblicato_alle_singola%> <%=StrToOra(RSArticoli("Ora"))%> <%=Pubblicato_In%> "><%=RSArticoli("Sezione")%>, <%=Pubblicato_Clic%> <%=RSArticoli("Letture")%> <%=Pubblicato_Clic_chiudi%>

<%=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 End If RSArticoli.MoveNext Loop If ArticoloTrovato = False Then %>

<%=Errore_Articolo_NonTrovato%>

<% End If Else %>

<%=Errore_Articolo_NonTrovato%>

<% End If Set RSArticoli = Nothing %>

<%=Titolo_Classifica_Fotografie%>

<% 'Cerco le fotografie più lette SQLFotografie = "SELECT TOP "& Num_Max_PiuLetti &" Fotografie.ID, Fotografie.NomeFile, Count(Commenti.ID) AS ConteggioID, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture FROM Commenti RIGHT JOIN Fotografie ON Commenti.IDFotografia = Fotografie.ID WHERE Fotografie.Data <= '"& DataToStr(Date()) &"' GROUP BY Fotografie.ID, Fotografie.NomeFile, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture ORDER BY Fotografie.Letture DESC" Set RSFotografie = Server.CreateObject("ADODB.Recordset") RSFotografie.Open SQLFotografie, Conn, 1, 3 'E visualizzo gli eventuali risultati If RSFotografie.EOF = False Then FotografiaTrovata = False Do While NOT RSFotografie.EOF If Now() > cDate(StrToData(RSFotografie("Data")) & " " & StrToOra(RSFotografie("Ora"))) Then FotografiaTrovata = True Set FSTFotografia = CreateObject("Scripting.FileSystemObject") %>

<% If NOT Abilita_ResizeASPNET Then %> ">

<%=Path_DirPublic%>T-<%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin%>T-nd.gif<%End If%>" alt="<%=ALT_Immagine_Thumbnail%>" /> <% Else %> ">

<%=Path_DirPublic%><%=RSFotografie("NomeFile")%><%Else%><%=Path_Skin%>T-nd.gif<%End If%>&opx=<%=Num_ResizeASPNET_LarghezzaFotoThumbnail%>" alt="<%=ALT_Immagine_Thumbnail%>" /> <% End If %>

<%=Contributo_Di%> "><%=RSFotografie("Autore")%> <%=Pubblicato_alle_singola%> <%=StrToOra(RSFotografie("Ora"))%>, <%=Pubblicato_Letture%> <%=RSFotografie("Letture")%> <%=Pubblicato_Letture_chiudi%>

<%=RSFotografie("Descrizione")%> ">...

<%=Link_Fotografie%> <%If Abilita_Commenti Then%>');<%Else%>fotografia.asp?fotografia=<%=RSFotografie("ID")%>#commenti<%End If%>"> <%=ALT_Ico_Commenti%>

<%=Link_Commenti%> (<%=RSFotografie("ConteggioID")%>)<%End If%> <%=ALT_Ico_Sezioni%>

<%=Categorie_Fotografie%>

<% Set FSTFotografia = Nothing End If RSFotografie.MoveNext Loop If FotografiaTrovata = False Then %>

<%=Errore_Fotografia_NonTrovata%>

<% End If Else %>

<%=Errore_Fotografia_NonTrovata%>

<% End If Set RSFotografie = Nothing End If End Sub Call GeneraPagina(Server.MapPath(Path_Template & "pagina.htm"), Sezione_Classifica, "", "") Conn.Close Set Conn = Nothing %>