Feed page is blank : The Official Microsoft ASP.NET Forums

Reply

deongee

Member

21 Points

Feed page is blank

Apr 15, 2012 03:47 AM|LINK

Default.aspx

<%@ Page Language="VB" AutoEventWireup="true"  CodeFile="Default.aspx.vb" Inherits="_Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Untitled Page</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
    <table cellpadding="0" cellspacing="0">
         <tr>
             <td>
                 <table class="NormalText" runat="server" id="tblNews" cellpadding="0" cellspacing="0">
                 </table>
             </td>
         </tr>
     </table>
    </div>
    </form>
</body>
</html>

Default.aspx.vb

Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.Net
Imports System.Xml
Imports System.IO

Public Partial Class _Default
	Inherits System.Web.UI.Page
    Protected Sub Page_Load(sender As Object, e As EventArgs)
        Dim rss As String = "http://localhost:2923/RssFeed/Employees.aspx".ToString()
        Try
            FetchRssFeeds(rss)
        Catch ex As Exception
        End Try
    End Sub
	Public Sub FetchRssFeeds(rss As String)
		' Read the RSS feed
		Dim rssRequest As WebRequest = WebRequest.Create(rss)
		Dim rssResponse As WebResponse = rssRequest.GetResponse()

		Dim rssStream As Stream = rssResponse.GetResponseStream()

		' Load XML Document
		Dim rssDocument As New XmlDocument()
		rssDocument.Load(rssStream)

		Dim rssList As XmlNodeList = rssDocument.SelectNodes("rss/channel/item")

		Dim title As String = ""
		Dim link As String = ""
		Dim description As String = ""

		' Loop through RSS Feed items
		For i As Integer = 0 To rssList.Count - 1
			Dim rssDetail As XmlNode

			rssDetail = rssList.Item(i).SelectSingleNode("title")
			If rssDetail IsNot Nothing Then
				title = rssDetail.InnerText
			Else
				title = ""
			End If

			rssDetail = rssList.Item(i).SelectSingleNode("link")
			If rssDetail IsNot Nothing Then
				link = rssDetail.InnerText
			Else
				link = ""
			End If

			rssDetail = rssList.Item(i).SelectSingleNode("description")
			If rssDetail IsNot Nothing Then
				description = rssDetail.InnerText
			Else
				description = ""
			End If

			' Populate the HTML table rows and cells
			Dim cell As New HtmlTableCell()
			cell.InnerHtml = "<b><a href='" & link & "' target='new'>" & title & "</a></b>"
			Dim trow As New HtmlTableRow()
			trow.Cells.Add(cell)
			tblNews.Rows.Add(trow)
			Dim cell2 As New HtmlTableCell()
			cell2.InnerHtml = "<p align='justify'>" & description & "</p>"
			Dim trow2 As New HtmlTableRow()
			trow2.Cells.Add(cell2)
			tblNews.Rows.Add(trow2)
		Next
	End Sub
End Class