Simple XML RSS Parser

Simple XML/Parser is a XML parser designed for to parse most valid news and blog feeds. No database required to work with it. All you need is to include a subroutine in your code and call it.

Example Usage:
<%
rssParser "http://rss.news.yahoo.com/rss/topstories/"
%>

rssParser subroutine:
<%
Sub rssParser(rssFile)

Dim objXML, objRoot, objItems, c
c = 0
Set objXML = Server.CreateObject("Microsoft.XMLDOM")
objXML.Async = False
objXML.SetProperty "ServerHTTPRequest", True
objXML.ResolveExternals = True
objXML.ValidateOnParse = True
objXML.Load(rssFile)

If (objXML.parseError.errorCode = 0) Then
Set objRoot = objXML.documentElement
If IsObject(objRoot) = False Then
response.Write "

No Root Found in Rss File

"
End If

Set objItems = objRoot.getElementsByTagName("item")
If IsObject(objItems) = True Then
Dim objItem
For Each objItem in objItems
strTitle = objItem.selectSingleNode("title").Text
On Error Resume Next
strDesc = objItem.selectSingleNode("description").Text
On Error Resume Next
strLink = objItem.selectSingleNode("link").Text
On Error Resume Next
strDate = objItem.selectSingleNode("pubDate").Text
On Error Resume Next


response.Write(" " & vbnewline)

response.Write(" " & vbnewline )
response.Write("

" & vbnewline ) response.Write("Title: " & strTitle & " " & vbnewline ) response.Write("Link: "& strLink &" " & vbnewline ) response.Write("Date : " & strDate & " " & vbnewline ) response.Write( strDesc & " " & vbnewline ) response.Write("

")

Next
else
response.Write "

No Root Found in Rss File

"
exit sub
End If
Set objRoot = Nothing
Set objItems = Nothing
End If

Set objXML = Nothing
end sub

%>
Happy Coding

Comments:
Only members can write comments.Please, login / register to write comment.