<%

Session.LCID = 1033
%>

<!-- #include virtual='/public/aspnuke/dataperatom.asp' -->




<%


dim Conn, SQL, rs




Set Conn = Server.CreateObject("ADODB.Connection")     
Conn.open = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/public/aspnuke/db/main.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")

'Istruzione SQL che prende le news dal Data Base; modificate il nome della vostra tabella e i vari nomi dei campi
'SQL ="SELECT TOP 1 nID, nTitle, nHeader, nText, nValid FROM news WHERE nValid=true Order by nID desc"
SQL ="SELECT TOP 10 nID, nTitle, nAuthor, nDate, nHeader, nText, nImage, nURL, nRead, nCategory, nValid FROM news WHERE nValid=true ORDER by nDate desc"

rs.Open SQL, conn,3,3

' Numero totale di records
totfiles = rs.recordcount

xml = "<?xml version=""1.0"" encoding=""iso-8859-1"" ?><feed version=""0.3"" xmlns:wfw=""http://wellformedweb.org/CommentAPI/"" xmlns:slash=""http://purl.org/rss/1.0/modules/slash/"" xmlns:trackback=""http://madskills.com/public/xml/rss/module/trackback/"" xmlns=""http://purl.org/atom/ns#"" xml:lang=""it-it""><title>Pillole.org</title><link rel=""alternate"" type=""text/html"" href=""http://www.pillole.org"" /><tagline type=""text/html"">Pillole.org</tagline><id>http://www.pillole.org</id><generator url=""http://www.pillole.org/public/aspnuke/feedatom.asp"" version=""Pillole.org"">feed.Pillole.org 0.11</generator><author><name>Pillole.org</name> <url>http://www.pillole.org</url></author><modified>" & return_RFC822_Date(Date(),"+01:00") & "</modified>" 


'Se il Record Set non è vuoto
if totfiles <>0 then
dim titolo, testata, datapil
Do while not rs.eof 
titolo= rs("nTitle")
datapil= mid(rs("ndate"),7,2)&"/"&mid(rs("ndate"),5,2)&"/"&mid(rs("ndate"),1,4)
datapil= return_RFC822_Date(datapil,"+01:00")


titolo= replace(titolo, "è",CHR(232))
titolo= replace(titolo, "à",CHR(224))
titolo = Replace(titolo, "<","&lt;")
  titolo = Replace(titolo, ">","&gt;")
  titolo = Replace(titolo,"&","&amp;")

'titolo = datapil &" - " & titolo


testata= rs("nHeader")
testata= replace(testata, "à",CHR(224))
testata= replace(testata, "è",CHR(232))

xml = xml & "<entry>"
xml = xml & "<title>" & Server.HTMLEncode(titolo) & "</title>"
xml = xml & "<id>http://www.pillole.org/public/aspnuke/news.asp?id=" & rs("nID") & "&sid="&session.sessionid & "</id>"

xml = xml & "<created>" & Server.HTMLEncode(datapil) & "</created>"

xml = xml & "<content type=""text/html"" mode=""escaped"">" & Server.HTMLEncode(testata) & "</content>"
xml = xml & "</entry>"
xml = Replace(xml, "<","&lt;")
  xml = Replace(xml, ">","&gt;")
rs.movenext
Loop

End if

xml = xml & "</feed>"
xml = Replace(xml, "<","&lt;")
  xml = Replace(xml, ">","&gt;")

' Impostazione che setta il tipo di file in output su XML
response.ContentType = "text/xml"
response.write (xml)

'Libero Risorse
rs.close
set rs=nothing
Conn.Close
set Conn=nothing
%>

<%

Session.LCID = 1033
%>

<!-- #include virtual='/public/aspnuke/dataRFC-822.asp' -->




<%


dim Conn, SQL, rs




Set Conn = Server.CreateObject("ADODB.Connection")     
Conn.open = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("/public/aspnuke/db/main.mdb")
Set rs = Server.CreateObject("ADODB.RecordSet")

'Istruzione SQL che prende le news dal Data Base; modificate il nome della vostra tabella e i vari nomi dei campi
'SQL ="SELECT TOP 1 nID, nTitle, nHeader, nText, nValid FROM news WHERE nValid=true Order by nID desc"
SQL ="SELECT TOP 10 nID, nTitle, nAuthor, nDate, nHeader, nText, nImage, nURL, nRead, nCategory, nValid FROM news WHERE nValid=true ORDER by nDate desc"

rs.Open SQL, conn,3,3

' Numero totale di records
totfiles = rs.recordcount

xml = "<?xml version=""1.0"" encoding=""UTF-8""?><rss version=""0.91""><channel><copyright>Copyright 2004 Pillole.org</copyright><title>Le Ultime Pillole</title><description>Pillole di medicina telematica </description><link>http://www.pillole.org</link><webMaster>info@pillole.org</webMaster><language>it</language>"

'Se il Record Set non è vuoto
if totfiles <>0 then
dim titolo, testata, datapil
Do while not rs.eof 
titolo= rs("nTitle")
datapil= mid(rs("ndate"),7,2)&"/"&mid(rs("ndate"),5,2)&"/"&mid(rs("ndate"),1,4)
datapil= return_RFC822_Date(datapil, "+0100")




titolo= replace(titolo, "è",CHR(232))
titolo= replace(titolo, "à",CHR(224))
'titolo = datapil &" - " & titolo

testata= rs("nHeader")
testata= replace(testata, "à",CHR(224))
testata= replace(testata, "è",CHR(232))

xml = xml & "<item>"
xml = xml & "<pubDate><![CDATA[" & Server.HTMLEncode(datapil) & "]]></pubDate>"
xml = xml & "<title><![CDATA[" & Server.HTMLEncode(titolo) & "]]></title>"
xml = xml & "<description><![CDATA[" & Server.HTMLEncode(testata) & "]]></description>"
xml = xml & "<link><![CDATA[http://www.pillole.org/public/aspnuke/news.asp?id=" & rs("nID") & "&sid="&session.sessionid & "]]></link></item>"
rs.movenext
Loop

End if

xml = xml & "</channel></rss>"

' Impostazione che setta il tipo di file in output su XML
response.ContentType = "text/xml"
response.write (xml)

'Libero Risorse
rs.close
set rs=nothing
Conn.Close
set Conn=nothing
%>