|
\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Articoli%>
<%
Dim SQLListBox, RSListBox, SQLArticoli, RSArticoli, RecordPerPagina, Pagina, I, Temp, FiltroAutore, FiltroSezione, ArrayFiltroAutore, ArrayFiltroSezione, Z
SQLArticoli = " SELECT Articoli.ID, Articoli.Sezione, Count(Commenti.ID) AS ConteggioID, Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture, Articoli.Bozza FROM Commenti RIGHT JOIN Articoli ON Commenti.IDArticolo = Articoli.ID WHERE Articoli.ID <> 0"
If Session("BLOGAdmin") = True Then
If Request.QueryString("a") <> "" Then
SQLArticoli = SQLArticoli & " AND Articoli.Autore = '"& ControlloSQLInjection(Request.QueryString("a")) &"'"
End If
Else
SQLArticoli = SQLArticoli & " AND Articoli.Autore = '"& Session("BLOGNick") &"'"
End If
If Request.QueryString("s") <> "" Then
SQLArticoli = SQLArticoli & " AND Articoli.Sezione = '"& ControlloSQLInjection(Request.QueryString("s")) &"'"
End If
If LCase(Request.QueryString("b")) = "si" Then
SQLArticoli = SQLArticoli & " AND Articoli.Bozza = True"
End If
SQLArticoli = SQLArticoli & " GROUP BY Articoli.ID, Articoli.Sezione, Articoli.Titolo, Articoli.Autore, Articoli.Data, Articoli.Ora, Articoli.Testo, Articoli.Letture, Articoli.Bozza ORDER BY Articoli.Data DESC, Articoli.Ora DESC "
Set RSArticoli = Server.CreateObject("ADODB.Recordset")
RSArticoli.Open SQLArticoli, Conn, 1, 3
%>
<%=Testo_Articoli_IntroduzioneElenco%> <%=Testo_Modulo_PulsanteAggiungi%>.
<%=Testo_Articoli_IntroduzioneTotaleArticoli%>: <%=RSArticoli.RecordCount%>
|
<%
RecordPerPagina = 4
Pagina = Request.QueryString("pagina")
If Pagina = "" OR Pagina = "0" OR IsNumeric(Pagina) = False Then
Pagina = 1
Else
If Pagina <= 0 Then
Pagina = 1
End If
End If
If RSArticoli.EOF = False OR RSArticoli.BOF = False Then
RSArticoli.PageSize = RecordPerPagina
RSArticoli.AbsolutePage = Pagina
For I = 1 To RecordPerPagina
If NOT RSArticoli.EOF Then
%>
<%=Testo_TabellaArticoli_RigaTitolo%> <%=RSArticoli("Titolo")%>
<%
If RSArticoli("Bozza") = True Then
%>
(<%=Testo_TabellaArticoli_CaratteristicaBozza%>)
<%
End If
%>
"><%=Testo_TabellaArticoli_RigaAutore%> <%=RSArticoli("Autore")%> (<%=StrToData(RSArticoli("Data"))%> @ <%=StrToOra(RSArticoli("Ora"))%>)
<%=Testo_TabellaArticoli_RigaSezione%> <%=RSArticoli("Sezione")%> (<%=RSArticoli("Letture")%> <%=Testo_TabellaArticoli_CaratteristicaHit%>)
<%=Testo_TabellaArticoli_RigaOperazioni%> "><%=Testo_TabellaArticoli_LinkModeraCommenti%> (<%=RSArticoli("ConteggioID")%>) | "><%=Testo_TabellaArticoli_LinkModifica%> | " onclick="return confirm('<%=Testo_Conferma_CancellazioneFileJavascript%>?');"><%=Testo_TabellaArticoli_LinkCancella%> | " target="_blank"><%=Testo_TabellaArticoli_LinkVisualizza%> | ', 560, 380, 'preview');"><%=Testo_TabellaArticoli_LinkPreview%>
|
<%
RSArticoli.MoveNext
End If
Next
FiltroAutore = ""
FiltroSezione = ""
SQLListBox = " SELECT [Autore], [Sezione] FROM [Articoli] "
Set RSListBox = Server.CreateObject("ADODB.Recordset")
RSListBox.Open SQLListBox, Conn, 1, 3
Do While NOT RSListBox.EOF
If InStr(LCase(FiltroAutore), "|" & LCase(RSListBox("Autore"))) = False Then
FiltroAutore = FiltroAutore & "|" & RSListBox("Autore")
End If
If InStr(LCase(FiltroSezione), "|" & LCase(RSListBox("Sezione"))) = False Then
FiltroSezione = FiltroSezione & "|" & RSListBox("Sezione")
End If
RSListBox.MoveNext
Loop
Set RSListBox = Nothing
ArrayFiltroAutore = Split(FiltroAutore, "|", -1, 1)
ArrayFiltroSezione = Split(FiltroSezione, "|", -1, 1)
%>
|
|
<%
Else
%>
|
<%=Testo_TabellaArticoli_ErroreNessunArticoloTrovato%>, <%=Testo_LinkTornaElenco%>.
|
<%
End If
%>
|
|