<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 %>

\\ <%=Testo_Path_Pannello%> : <%=Testo_Sezione_LinkLog%>

<% Dim SQLLinkLog, RSLinkLog, RecordPerPagina, Pagina, I, Temp, FiltroAutore, ArrayFiltroAutore, SQLListBox, RSListBox SQLLinkLog = " SELECT ID, Introduzione, Data, URL FROM LinkLog" If Session("BLOGAdmin") = True AND Request.QueryString("a") <> "" Then SQLLinkLog = SQLLinkLog & " WHERE LinkLog.Autore = '"& ControlloSQLInjection(Request.QueryString("a")) &"'" End If SQLLinkLog = SQLLinkLog & " ORDER BY LinkLog.Data DESC " Set RSLinkLog = Server.CreateObject("ADODB.Recordset") RSLinkLog.Open SQLLinkLog, Conn, 1, 3 %> <% 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 RSLinkLog.EOF = False OR RSLinkLog.BOF = False Then RSLinkLog.PageSize = RecordPerPagina RSLinkLog.AbsolutePage = Pagina For I = 1 To RecordPerPagina If NOT RSLinkLog.EOF Then %> <% RSLinkLog.MoveNext End If Next FiltroAutore = "" SQLListBox = " SELECT [Autore] FROM [LinkLog] " Set RSListBox = Server.CreateObject("ADODB.Recordset") RSListBox.Open SQLListBox, Conn, 1, 3 Do While NOT RSListBox.EOF If InStr(FiltroAutore, "|" & RSListBox("Autore")) = False Then FiltroAutore = FiltroAutore & "|" & RSListBox("Autore") End If RSListBox.MoveNext Loop ArrayFiltroAutore = Split(FiltroAutore, "|", -1, 1) Set RSListBox = Nothing %> <% Else %> <% End If %>
<%=Testo_LinkLog_IntroduzioneElenco%> <%=Testo_Modulo_PulsanteAggiungi%>.
<%=Testo_LinkLog_IntroduzioneTotaleLink%>: <%=RSLinkLog.RecordCount%>
<%=Testo_TabellaLinkLog_RigaIntroduzione%> <%=RSLinkLog("Introduzione")%>
<%=Testo_TabellaLinkLog_RigaData%> <%=StrToData(RSLinkLog("Data"))%>
<%=Testo_TabellaLinkLog_RigaOperazioni%> "><%=Testo_TabellaLinkLog_LinkModifica%> | " onclick="return confirm('<%=Testo_Conferma_CancellazioneFileJavascript%>?');"><%=Testo_TabellaLinkLog_LinkCancella%> | " target="_blank"><%=Testo_TabellaLinkLog_LinkVisualizza%>
<%=Testo_TabellaLinkLog_Paginazione%>: <% For Temp = 1 To RSLinkLog.PageCount Response.Write "" Response.Write Temp Response.Write " " Next %>
<% If Session("BLOGAdmin") = True Then %>
<%=Testo_TabellaLinkLog_FiltriPer%>
<%=Testo_TabellaLinkLog_FiltroPerAutori%> 
<% End If %>
<%=Testo_TabellaLinkLog_ErroreNessunLinkTrovato%>, <%=Testo_LinkTornaElenco%>.
<% Set RSLinkLog = Nothing Conn.Close Set Conn = Nothing %>