<% '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 Dim SQLArticoli, RSArticoli Response.ContentType = "text/xml" Response.Charset = "windows-1252" Response.Write "" Response.Write "" & VbCrLf Response.Write "" & VbCrLf Response.Write "" & URL_Blog & "" & VbCrLf Response.Write "" & Titolo_Blog & "" Response.Write "it" & VbCrLf 'Cerco tutti gli articoli e li visualizzo in formato xml SQLArticoli = " SELECT TOP "& Num_Max_Articoli &" [ID], [Autore], [Titolo], [Testo], [Data], [Ora] FROM Articoli WHERE Articoli.Data <= '"& DataToStr(Date()) &"' AND NOT Articoli.Bozza ORDER BY Articoli.Data DESC, Articoli.Ora DESC " Set RSArticoli = Server.CreateObject("ADODB.Recordset") RSArticoli.Open SQLArticoli, Conn, 1, 3 If NOT RSArticoli.EOF Then Do While NOT RSArticoli.EOF If Now() > cDate(StrToData(RSArticoli("Data")) & " " & StrToOra(RSArticoli("Ora"))) Then Response.Write "" & VbCrLf Response.Write " " & VbCrLf Response.Write " " & VbCrLf Response.Write " " & VbCrLf Response.Write " "& URL_Blog &"articolo.asp?articolo="& RSArticoli("ID") &"" & VbCrLf Response.Write " "& Mid(RSArticoli("Data"), 1, 4) & "-" & Mid(RSArticoli("Data"), 5, 2) & "-" & Mid(RSArticoli("Data"), 7, 2) & "T" & Mid(RSArticoli("Ora"), 1, 2) & ":" & Mid(RSArticoli("Ora"), 3, 2) & ":" & Mid(RSArticoli("Ora"), 5, 2) & "+01:00" & VbCrLf Response.Write " " & RSArticoli("Autore") & "" & VbCrLf Response.Write "" & VbCrLf End If RSArticoli.MoveNext Loop End If Response.Write " " Response.Write "" set RSArticoli = Nothing Conn.Close Set Conn = Nothing %>