|
\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_Autori%>
<%
Dim SQLListBox, RSListBox, SQLAutori, RSAutori, RecordPerPagina, Pagina, I, Temp, FiltroAutore, ArrayFiltroAutore, Z
SQLAutori = " SELECT * FROM [Autori] WHERE [ID] <> 0"
If Session("BLOGAdmin") = True Then
If Request.QueryString("a") <> "" Then
SQLAutori = SQLAutori & " AND [Nick] = '"& ControlloSQLInjection(Request.QueryString("a")) &"'"
End If
Else
SQLAutori = SQLAutori & " AND [Nick] = '"& Session("BLOGNick") &"'"
End If
SQLAutori = SQLAutori & " ORDER BY [ID] DESC "
Set RSAutori = Server.CreateObject("ADODB.Recordset")
RSAutori.Open SQLAutori, Conn, 1, 3
%>
<%
If Session("BLOGAdmin") = True Then
%>
<%=Testo_Autori_IntroduzioneElenco%> <%=Testo_Modulo_PulsanteAggiungi%>.
<%
End If
%>
<%=Testo_Autori_IntroduzioneTotaleAutori%>: <%=RSAutori.RecordCount%>
|
<%
RecordPerPagina = 10
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 RSAutori.EOF = False OR RSAutori.BOF = False Then
RSAutori.PageSize = RecordPerPagina
RSAutori.AbsolutePage = Pagina
For I = 1 To RecordPerPagina
If NOT RSAutori.EOF Then
%>
"><%=RSAutori("Nick")%> ("><%=Testo_TabellaAutori_IdentificaAdmin%>)
<%=Testo_TabellaAutori_RigaMail%> <%If RSAutori("Mail") <> "" Then%>"><%=RSAutori("Mail")%><%Else%><%=Testo_TabellaAutori_eMailNonDisponibile%><%End If%>
<%=Testo_TabellaAutori_RigaOperazioni%> "><%=Testo_TabellaAutori_LinkModifica%><%If Session("BLOGAdmin") = True Then%> | " onclick="return confirm('<%=Testo_Conferma_CancellazioneFileJavascript%>?');"><%=Testo_TabellaAutori_LinkCancella%><%End If%> | " target="_blank"><%=Testo_TabellaAutori_LinkVisualizzazione%>
|
<%
RSAutori.MoveNext
End If
Next
FiltroAutore = ""
SQLListBox = " SELECT [Nick] FROM [Autori] WHERE [ID] <> 0"
If Session("BLOGAdmin") = False Then
SQLListBox = SQLListBox & " AND [Nick] = '"& Session("BLOGNick") &"'"
End If
SQLListBox = SQLListBox & " ORDER BY [Nick] ASC"
Set RSListBox = Server.CreateObject("ADODB.Recordset")
RSListBox.Open SQLListBox, Conn, 1, 3
Do While NOT RSListBox.EOF
If InStr(FiltroAutore, "|" & RSListBox("Nick")) = False Then
FiltroAutore = FiltroAutore & "|" & RSListBox("Nick")
End If
RSListBox.MoveNext
Loop
Set RSListBox = Nothing
ArrayFiltroAutore = Split(FiltroAutore, "|", -1, 1)
%>
|
<%
If Session("BLOGAdmin") = True Then
%>
<%
End If
%>
|
<%
Else
%>
|
<%=Testo_TabellaAutori_ErroreNessunAutoreTrovato%>, <%=Testo_LinkTornaElenco%>.
|
<%
End If
%>
|
|