atom2rss.asp

%
' atom2rss.asp
' Author: Francesco Passantino
' Email: francesco@iteam5.net
' Blog: www.iteam5.net/blog
' Start date: 17 Sep 2004


Sub atom2rss(URL)
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse = true
objXML.preserveWhiteSpace = false

If Not objXML.Load(URL) Then

Response.write "P>ERRORbr>code: "  _
objXML.parseError.errorCode  _
"br>Linea/Col: "  _
objXML.parseError.line  "/"  _
objXML.parseError.linepos  "/P>"

Else

rsstitle="iteam5.net/blog"
rssdescription="Blog sulle novit?del settore Information  Communication Technologies"
rsslink="http://www.iteam5.net/blog"
rsslanguage="it"

xml= "?xml version=""1.0"" encoding=""UTF-8""?>rss version=""0.91"">channel>title>"server.htmlencode(rsstitle)"/title>description>"server.htmlencode(rssdescription)"/description>link>"server.htmlencode(rsslink)"/link>language>"server.htmlencode(rsslanguage)"/language>"

Set objNodeList = objXML.getElementsByTagName("entry")
For Each objNode In objNodeList
    For Each objNode2 In objNode.childNodes

    Select Case objNode2.nodeName
    Case "issued"
    strdate= left(objNode2.firstChild.nodevalue,10)
    Case "link"
    strURL = objNode2.GetAttribute("href")
    Case "title"
    strTitle = objNode2.firstChild.nodevalue

    'instead of Case "content"
    Case "summary"

    strDescription = objNode2.firstChild.data
    For Each objNode3 In objNode2.childNodes
        Select Case objNode3.nodeName
            Case "div"
            StrDescription = objNode3.text
            For Each objNode4 In objNode3.childNodes
            Select Case objNode4.nodeName
                Case "a"
                linkable=objNode4.firstChild.text
                htmlink=" a href='" _
                objNode4.GetAttribute("href")"'>" _
                linkable"/a>"
                StrDescription = replace(StrDescription,linkable,htmlink)
            end select
            next
        end select
    next
    End Select
Next

xml= xml  "item>"
xml=xml  "title>![CDATA["  server.htmlencode(strTitle)  "]]>/title>"
xml=xml  "description>![CDATA["  server.htmlencode(strDescription)  "]]>/description>"
xml=xml  "link>![CDATA["  server.htmlencode(strURL)  "]]>/link>/item>"

strTitle = ""
strURL = ""
strDescription = ""

Next

xml = xml  "/channel>/rss>"
response.ContentType = "text/xml"
response.write xml

set objNodeList = Nothing

End if
End sub

call atom2rss("http://www.iteam5.net/blog/feed.xml")

%>