Distribute Your Sites Content With RSS 2.0 Using ASP.NET/VB.NET/MS SQL 2005

Introduction

This is an easy way to distribute your sites content using RSS 2.0. The code pulls the items from a MS SQL database and dynmaicly creates the XML using the XmlTextWriter Object. You can filter the resuling items by create date with your T-SQL, or use the time to live.

If you do not understand the xml that is being created please check out the following link for detailed information on the RSS 2.0 Standards

http://cyber.law.harvard.edu/rss/rss.html

If you prefer to code in C# there in an example posted below that from a CP member that will create the items, You would still need to create the parent XML tags by using the RSS 2.0 standard though.

Using the code

The .aspx page only requires these two lines of code.

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="rssFeed.aspx.vb" Inherits="rssFeed" %>
<%@ OutputCache Duration="1" VaryByParam="none" %>

Here is the code behind.

Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Text
Imports System.Web
Imports System.Xml

Partial Class rssFeed
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Response.Clear()
        Response.ContentType = "text/xml"
        Dim objX As New XmlTextWriter(Response.OutputStream, Encoding.UTF8)

        objX.WriteStartDocument()
        objX.WriteStartElement("rss")
        objX.WriteAttributeString("version", "2.0")
        objX.WriteStartElement("channel")
        objX.WriteElementString("title", "RedChip News")
        objX.WriteElementString("link", "http://www.redchip.com")
        objX.WriteElementString("description", "The latest headlines and articles from RedChip.")
        objX.WriteElementString("ttl", "5")


        Dim objConnection As New SqlConnection(ConfigurationManager.ConnectionStrings("DatabaseConnectionString1").ToString)
        objConnection.Open()
        Dim sql As String = "SELECT Title, Summary, ArticleID, PostTime FROM tblArticles ORDER BY PostTime DESC"
        'Dim sql As String = "SELECT * FROM tblArticles"
        Dim objCommand As New SqlCommand(sql, objConnection)
        Dim objReader As SqlDataReader = objCommand.ExecuteReader()


        While objReader.Read()
            objX.WriteStartElement("item")
            objX.WriteElementString("title", objReader.GetString(0))
            objX.WriteElementString("description", objReader.GetString(1))
            objX.WriteElementString("link", "http://www.redchip.com/Articles/research.aspx?ArticleID=" & CStr(objReader.GetInt16(2)))
            objX.WriteElementString("pubDate", objReader.GetDateTime(3).ToString("R"))
            objX.WriteEndElement()
        End While


        objReader.Close()
        objConnection.Close()

        objX.WriteEndElement()
        objX.WriteEndElement()
        objX.WriteEndDocument()
        objX.Flush()
        objX.Close()
        Response.End()

    End Sub
End Class