classic ASP RSS Feed reader
Home Code Snipits Cool Web Stuphs Links Blog Contact Me  

Set xmlObj = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
xmlObj.async = False
xmlObj.setProperty "ServerHTTPRequest", True
xmlObj.Load(url)
If xmlObj.parseError.errorCode <> 0 Then
toReturn = toReturn & "Feed temporarily unavailable & (" _
& xmlObj.parseError.reason&")"
End If
Set xmlList = xmlObj.getElementsByTagName("item")
Set xmlObj = Nothing
For Each xmlItem In xmlList
For Each xmlItem2 In xmlItem.childNodes
a = xmlItem2.nodeName
if a = "title" then title=xmlItem2.text
if a = "link" then link=xmlItem2.text
if a = "description" then description=xmlItem2.text
Next
Next
© 2009 Carl Bartlett