Public Shared Function ProcessRSS(ByVal rssURL As String, ByVal feed As String) As String
Dim request As WebRequest = WebRequest.Create(rssURL)
Dim response As WebResponse = request.GetResponse()
Dim sb As New StringBuilder("")
Dim rssStream As Stream = response.GetResponseStream()
Dim rssDoc As New XmlDocument()
rssDoc.Load(rssStream)
Dim rssItems As XmlNodeList = rssDoc.SelectNodes("rss/channel/item")
Dim title As String = ""
Dim link As String = ""
Dim upperlimit As Integer = rssItems.Count
If upperlimit > 5 Then
upperlimit = 5
End If
If upperlimit > 0 Then
sb.Append("<p>" + feed + "</p><ul>")
Dim i As Integer = 0
While i < upperlimit
Dim rssDetail As XmlNode
rssDetail = rssItems.Item(i).SelectSingleNode("title")
If rssDetail <> Nothing Then
title = rssDetail.InnerText
Else
title = ""
End If
rssDetail = rssItems.Item(i).SelectSingleNode("link")
If rssDetail <> Nothing Then
link = rssDetail.InnerText
Else
link = ""
End If
sb.Append("<li><a href='" + link + "' target='_blank'>" + title + "</a></li>")
i+=1
End While
sb.Append("</ul>")
End If
Return sb.ToString()
End Function
Then to call the method:
Feed1.Text = ProcessRSS("http://weblogs.asp.net/scottgu/rss.aspx", "ScottGu")
Where Feed1 is an asp:Literal control.
All I did was take the C# code from this article, and shove it into www.codechanger.com