<% ' 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 "

ERROR
code: " & _ objXML.parseError.errorCode & _ "
Linea/Col: " & _ objXML.parseError.line & "/" & _ objXML.parseError.linepos & "

" Else rsstitle="iteam5.net/blog" rssdescription="Blog sulle novità del settore Information & Communication Technologies" rsslink="http://www.iteam5.net/blog" rsslanguage="it" xml= ""&server.htmlencode(rsstitle)&""&server.htmlencode(rssdescription)&""&server.htmlencode(rsslink)&""&server.htmlencode(rsslanguage)&"" 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=" "& _ linkable&"" StrDescription = replace(StrDescription,linkable,htmlink) end select next end select next End Select Next xml= xml & "" xml=xml & "<![CDATA[" & server.htmlencode(strTitle) & "]]>" xml=xml & "" xml=xml & "" strTitle = "" strURL = "" strDescription = "" Next xml = xml & "" response.ContentType = "text/xml" response.write xml set objNodeList = Nothing End if End sub call atom2rss("http://www.iteam5.net/blog/feed.xml") %>