\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Statistiche%>

<%=Testo_Sezione_Articoli%> <% Dim SQLArticoli, RSArticoli, TotaleArticoli, TotaleArticoliLetture SQLArticoli = " SELECT COUNT(ID) AS TotaleArticoli, [Sezione], SUM(Letture) AS TotaleArticoliLetture FROM [Articoli] GROUP BY [Sezione] " Set RSArticoli = Server.CreateObject("ADODB.Recordset") RSArticoli.Open SQLArticoli, Conn, 1, 3 TotaleArticoli = 0 TotaleArticoliLetture = 0 If NOT RSArticoli.EOF Then Do While NOT RSArticoli.EOF %>
<%=Testo_Modulo_CampoSezione%> "><%=RSArticoli("Sezione")%> (<%=Testo_Articoli_IntroduzioneTotaleArticoli%>: <%=RSArticoli("TotaleArticoli")%>, <%=Testo_Modulo_CampoLetture%>: <%=RSArticoli("TotaleArticoliLetture")%>) <% TotaleArticoli = TotaleArticoli + RSArticoli("TotaleArticoli") TotaleArticoliLetture = TotaleArticoliLetture + RSArticoli("TotaleArticoliLetture") RSArticoli.MoveNext Loop End If %>

<%=Testo_Articoli_IntroduzioneTotaleArticoli%>: <%=TotaleArticoli%>
<%=Testo_Modulo_CampoLetture%>: <%=TotaleArticoliLetture%>

<%=Testo_Sezione_Fotografie%> <% Dim SQLFotografie, RSFotografie, TotaleFotografie, TotaleFotografieLetture SQLFotografie = " SELECT COUNT(ID) AS TotaleFotografie, [Sezione], SUM(Letture) AS TotaleFotografieLetture FROM [Fotografie] GROUP BY [Sezione] " Set RSFotografie = Server.CreateObject("ADODB.Recordset") RSFotografie.Open SQLFotografie, Conn, 1, 3 TotaleFotografie = 0 TotaleFotografieLetture = 0 If NOT RSFotografie.EOF Then Do While NOT RSFotografie.EOF %>
<%=Testo_Modulo_CampoSezione%> "><%=RSFotografie("Sezione")%> (<%=Testo_Fotografie_IntroduzioneTotaleFotografie%>: <%=RSFotografie("TotaleFotografie")%>, <%=Testo_Modulo_CampoLetture%>: <%=RSFotografie("TotaleFotografieLetture")%>) <% TotaleFotografie = TotaleFotografie + RSFotografie("TotaleFotografie") TotaleFotografieLetture = TotaleFotografieLetture + RSFotografie("TotaleFotografieLetture") RSFotografie.MoveNext Loop End If %>

<%=Testo_Fotografie_IntroduzioneTotaleFotografie%>: <%=TotaleFotografie%>
<%=Testo_Modulo_CampoLetture%>: <%=TotaleFotografieLetture%>

<%=Testo_Sezione_LinkLog%> <% Dim SQLLinkLog, RSLinkLog, TotaleLinkLog SQLLinkLog = " SELECT COUNT(ID) AS TotaleFotografie FROM [LinkLog] " Set RSLinkLog = Server.CreateObject("ADODB.Recordset") RSLinkLog.Open SQLLinkLog, Conn, 1, 3 If NOT RSLinkLog.EOF Then TotaleLinkLog = RSLinkLog.RecordCount Else TotaleLinkLog = 0 End If %>
<%=Testo_LinkLog_IntroduzioneTotaleLinkLog%>: <%=TotaleLinkLog%>

<%=Testo_Sezione_Commenti%> <% Dim SQLCommenti, RSCommenti, TotaleCommentiA, TotaleCommentiF SQLCommenti = " SELECT [ID], [IDArticolo], [IDFotografia] FROM [Commenti] " Set RSCommenti = Server.CreateObject("ADODB.Recordset") RSCommenti.Open SQLCommenti, Conn, 1, 3 TotaleCommentiA = 0 TotaleCommentiF = 0 If NOT RSCommenti.EOF Then Do While NOT RSCommenti.EOF If RSCommenti("IDArticolo") <> 0 Then TotaleCommentiA = TotaleCommentiA + 1 End If If RSCommenti("IDFotografia") <> 0 Then TotaleCommentiF = TotaleCommentiF + 1 End If RSCommenti.MoveNext Loop %>
<%=Testo_Sezione_Articoli%>: <%=TotaleCommentiA%> <%=Testo_Sezione_Commenti%>
<%=Testo_Sezione_Fotografie%>: <%=TotaleCommentiF%> <%=Testo_Sezione_Commenti%> <% End If %>

<%=Testo_Commenti_TotaleCommentiRicevuti%>: <%=RSCommenti.RecordCount%>

<%=Testo_Sezione_Sondaggio%> <% Dim SQLSondaggi, RSSondaggi, TotaleSondaggi, TotaleVoti SQLSondaggi = " SELECT [ID], [Voti1], [Voti2], [Voti3], [Voti4], [Voti5], [Voti6], [Voti7], [Voti8], [Voti9], [Voti10] FROM [Sondaggio] " Set RSSondaggi = Server.CreateObject("ADODB.Recordset") RSSondaggi.Open SQLSondaggi, Conn, 1, 3 TotaleSondaggi = RSSondaggi.RecordCount TotaleVoti = 0 If NOT RSSondaggi.EOF Then Do While NOT RSSondaggi.EOF TotaleVoti = TotaleVoti + RSSondaggi("Voti1") + RSSondaggi("Voti2") + RSSondaggi("Voti3") + RSSondaggi("Voti4") + RSSondaggi("Voti5") + RSSondaggi("Voti6") + RSSondaggi("Voti7") + RSSondaggi("Voti8") + RSSondaggi("Voti9") + RSSondaggi("Voti10") RSSondaggi.MoveNext Loop End If %>
<%=Testo_Sondaggi_TotaleSondaggiProposti%>: <%=TotaleSondaggi%>
<%=Testo_Sondaggi_TotaleVotiRicevuti%>: <%=TotaleVoti%>

<%=Testo_Sezione_Citazioni%> <% Dim SQLCitazioni, RSCitazioni, TotaleCitazioni SQLCitazioni = " SELECT COUNT(ID) AS TotaleCitazioni, [Autore] FROM [Citazioni] GROUP BY [Autore] " Set RSCitazioni = Server.CreateObject("ADODB.Recordset") RSCitazioni.Open SQLCitazioni, Conn, 1, 3 TotaleCitazioni = 0 If NOT RSCitazioni.EOF Then Do While NOT RSCitazioni.EOF %>
<%=Testo_Modulo_CampoAutore%> <%=RSCitazioni("Autore")%> (<%=Testo_Citazioni_TotalePerAutore%>: <%=RSCitazioni("TotaleCitazioni")%>) <% TotaleCitazioni = TotaleCitazioni + RSCitazioni("TotaleCitazioni") RSCitazioni.MoveNext Loop End If %>

<%=Testo_Citazioni_TotaleCitazioni%>: <%=TotaleCitazioni%>

<%=Testo_Sezione_Autori%> <% Dim SQLAutori, RSAutori, TotaleAutori SQLAutori = " SELECT Autori.Nick, COUNT(Articoli.ID) AS TotaleArticoliAutore FROM ([Autori] INNER JOIN [Articoli] ON Autori.Nick = Articoli.Autore) GROUP BY Autori.Nick " Set RSAutori = Server.CreateObject("ADODB.Recordset") RSAutori.Open SQLAutori, Conn, 1, 3 TotaleAutori = 0 If NOT RSAutori.EOF Then Do While NOT RSAutori.EOF %>
"><%=RSAutori("Nick")%> (<%=Testo_Articoli_IntroduzioneTotaleArticoli%>: <%=RSAutori("TotaleArticoliAutore")%>) <% RSAutori.MoveNext Loop TotaleAutori = RSAutori.RecordCount End If %>

<%=Testo_Autori_TotaleAutori%>: <%=TotaleAutori%>