<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 'FUNZIONE: questo script si occupa di generare il feed RSS in un formato utilizzabile da programmi e siti esterni ' *** Acor3 Mod - www.acor3.it *** '27 gen 2007 aggiunto filtro per sezione dim filtroSezione filtroSezione="" filtroSezione=Request.QueryString("s") Dim SQLLinkLog, RSLinkLog Response.ContentType = "text/xml" Response.Charset = "windows-1252" Response.Write "" Response.Write "" & VbCrLf Response.Write "" & VbCrLf Response.Write "" & URL_Blog & "" & VbCrLf Response.Write "" & Nome_Blog & "" Response.Write "it" & VbCrLf 'Cerco tutti gli articoli e li visualizzo in formato xml 'Costruisco la query in base al passaggio di parametri SQLLinkLog = " SELECT * FROM LinkLog WHERE " SQLLinkLog=SQLLinkLog & " Data <= '"& DataToStr(Date()) &"' " if filtroSezione<>"" then SQLLinkLog=SQLLinkLog & " AND Sezione='"& DoppioApice(filtroSezione) &"'" end if SQLLinkLog=SQLLinkLog & " ORDER BY Data DESC" Set RSLinkLog = Server.CreateObject("ADODB.Recordset") RSLinkLog.Open SQLLinkLog, Conn, 1, 3 If NOT RSLinkLog.EOF Then Do While NOT RSLinkLog.EOF 'If Now() > cDate(StrToData(RSLinkLog("Data")) & " " & StrToOra(RSLinkLog("Ora"))) Then Response.Write "" & VbCrLf Response.Write " " & VbCrLf Response.Write " " & RSLinkLog("URL") & "]]>" & VbCrLf Response.Write " " & VbCrLf Response.Write " " & URL_Blog & "linklog.asp" & VbCrLf Response.Write " "& Mid(RSLinkLog("Data"), 1, 4) & "-" & Mid(RSLinkLog("Data"), 5, 2) & "-" & Mid(RSLinkLog("Data"), 7, 2) & "T00:00:00+01:00" & VbCrLf Response.Write " " & VbCrLf Response.Write "" & VbCrLf 'End If RSLinkLog.MoveNext Loop End If Response.Write " " Response.Write "" set RSLinkLog = Nothing Conn.Close Set Conn = Nothing %>