<% 'dBlog 2.0 CMS Open Source 'Versione file 2.0.0 'FUNZIONE: questo script si occupa di generare il feed ATOM 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 " " & VbCrLf Response.Write " "& Nome_Blog &"" & VbCrLf Response.Write " "& URL_Blog &"" & VbCrLf Response.Write " "& Nome_Blog &" 2.0" & VbCrLf Response.Write " " & VbCrLf Response.Write " "& Nome_Blog &"" & VbCrLf Response.Write " "& URL_Blog &"" & VbCrLf Response.Write " " & VbCrLf 'Cerco tutti gli articoli e li visualizzo in formato xml SQLArticoli = " SELECT TOP "& Num_Max_Articoli &" Articoli.ID, Articoli.Autore, Articoli.Titolo, Articoli.Testo, Articoli.Data, Articoli.Ora, Count(Commenti.ID) AS TotaleCommenti FROM Commenti RIGHT JOIN Articoli ON Commenti.IDArticolo = Articoli.ID GROUP BY Articoli.ID, Articoli.Autore, Articoli.Titolo, Articoli.Testo, Articoli.Data, Articoli.Ora, Articoli.Bozza HAVING Articoli.Data <= '"& DataToStr(Date()) &"' AND Articoli.Bozza = False 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 RSArticoli.MoveFirst 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 Do While NOT RSArticoli.EOF If Now() > cDate(StrToData(RSArticoli("Data")) & " " & StrToOra(RSArticoli("Ora"))) Then 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 " " & VbCrLf Response.Write " " & 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 " "& 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("TotaleCommenti") &"" & VbCrLf Response.Write " "& URL_Blog &"articolo.asp?articolo="& RSArticoli("ID") &"#commenti" & VbCrLf Response.Write " " & VbCrLf End If RSArticoli.MoveNext Loop End If Response.Write "" set RSArticoli = Nothing Conn.Close Set Conn = Nothing %>