Display the Most Recent Code from FreeVBCode.com on your Web Site (ASP.NET)

Category:

C#, VB.NET, ASP.NET

Type:

Snippets

Difficulty:

Intermediate

Author:

Intelligent Solutions Inc.

Version Compatibility: ASP.NET

More information:

The code at http://www.freevbcode.com/ShowCode.Asp?ID=5670 shows you how to display data from an RSS feed on a web site using ASP.NET. The code here adapts that sample to display FreeVBCode.com's RSS feed for recently added code.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %> 
<%@ Import Namespace="System.Xml" %> 
<script language="VB" runat="server"> 
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

Dim oDT As DataTable 
          dim i as integer

oDT = GetRSSFeed("http://www.freevbcode.com/rss_newcode.asp", "FreeVBCode.com") 
    
        If Not oDT Is Nothing Then

datagrid1.DataSource = oDT 
            datagrid1.AutoGenerateColumns = False 
             datagrid1.DataBind()

Else 
            Response.Write("Could not retrieve requested feed") 
        End If 
    End Sub

Function GetRSSFeed(ByVal rssURL As String, ByVal FeedTitle As String) _ 
  As DataTable 
        'LOGIC: 
        'get xml from remote ur and convert to dataset 
        'place into cache for an hour using ASP.nET 
        'built-in cache object 
        'set to expire in an hour

Dim oDT As DataTable

If Cache(FeedTitle) Is Nothing Then 
            Try 
                Dim reader As XmlTextReader = New XmlTextReader(rssURL)

Dim ds As DataSet = New DataSet 
                ds.ReadXml(reader)

Cache.Insert(FeedTitle, ds.Tables(2), Nothing,DateTime.Now.AddHours(1), TimeSpan.Zero) 
                oDT = ds.Tables(2) 
            Catch 
                If Not Cache(FeedTitle) Is Nothing Then oDT =Cache(FeedTitle) 
            End Try 
        Else 
            If Not Cache(FeedTitle) Is Nothing Then oDT = Cache(FeedTitle) 
        End If

Return oDT

End Function

</script> 
<p style="font-family:arial;font-size:12pt;font-weight:bold">FreeVBCode.com Most Recent Code:
 <form id="Form1" method="post" runat="server"> 
<asp:DataGrid runat="server" id="datagrid1"> 
<HeaderStyle VerticalAlign="top" font-name="arial" font-size="11pt" font-bold=true> 
</headerstyle> 
<ItemStyle VerticalAlign="top" font-name="arial" font-size="10pt"> 
</itemstyle>

</asp:datagrid> <p>

</p> 
    </form>