<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 'FUNZIONE: questo script si occupa di visualizzare tutti i link (LinkLog) pubblicati nel tempo %> <% Sub Contenuto() %>

\\ <%=Sezione_HomePage%> : <%=Sezione_StoricoLinkLog%>

<%=Testo_Seguono_TuttiLink_LinkLog%>

<% Dim SQLLinkLog, RSLinkLog, Pagina, Z, Temp, RecordPerPagina 'Costruisco la query in base al passaggio di parametri SQLLinkLog = " SELECT * FROM LinkLog ORDER BY LinkLog.Data DESC " Set RSLinkLog = Server.CreateObject("ADODB.Recordset") RSLinkLog.Open SQLLinkLog, Conn, 1, 3 RecordPerPagina = Num_Max_LinkPerPagina 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 'Visualizzo gli eventuali articoli trovati If RSLinkLog.EOF = False OR RSLinkLog.BOF = False Then RSLinkLog.PageSize = RecordPerPagina RSLinkLog.AbsolutePage = Pagina For Z = 1 To RecordPerPagina If NOT RSLinkLog.EOF Then If RSLinkLog("Data") =< DataToStr(Date()) Then %>

<%=StrToData(RSLinkLog("Data"))%> - <%=RSLinkLog("Introduzione")%> - " onclick="this.target='_blank';"><%=RSLinkLog("TestoLinkato")%>

<% End If RSLinkLog.MoveNext End If Next %>

<%=Testo_Paginazione%>: <% For Temp = 1 To RSLinkLog.PageCount Response.Write "" Response.Write Temp Response.Write " " Next %>

<% Else %>

<%=Errore_Link_NonTrovato%>

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