HuberBlog ::Jason Huber

Public Class CIS410rss
Inherits System.Web.UI.Page

#Region ” Web Form Designer Generated Code “

‘This call is required by the Web Form Designer.
Private Sub InitializeComponent()

End Sub

‘NOTE: The following placeholder declaration is required by the Web Form Designer.
‘Do not delete or move it.
Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
‘CODEGEN: This method call is required by the Web Form Designer
‘Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘Put user code to initialize the page here
Response.ContentType = “text/xml”
Response.ContentEncoding = Encoding.UTF8

‘ build up the cache dynamically
Dim articleData As DataSet = CreateDataSource()
Dim i As Integer
‘ Use an XmlTextWriter to write the XML data to a string…
Dim sw As New StringWriter
Dim writer As New XmlTextWriter(sw)

‘ write out
writer.WriteStartElement(“rss”)
writer.WriteAttributeString(“version”, “2.0″)

‘ write out
writer.WriteStartElement(“channel”)

‘ write out -level elements
writer.WriteElementString(“title”, “Jasncab Video Blog”)
writer.WriteElementString(“link”, “http://www.jasncab.com/cis410″)
writer.WriteElementString(“description”, “Janscab Video Blog for CIS 349 (database Intro)”)
writer.WriteElementString(“ttl”, “60″)

‘ write out an element for each of the first X articles
For i = 0 To articleData.Tables(0).Rows.Count – 1
‘ write out
writer.WriteStartElement(“item”)

‘ write out -level information
writer.WriteElementString(“title”, articleData.Tables(0).Rows(i).Item(“name”).ToString())
If Not Left(Request.ServerVariables(“remote_addr”), = “204.249.” Then
writer.WriteElementString(“link”, String.Format(“http://www.jasncab.com/devry/cis410/{0}”, articleData.Tables(0).Rows(i).Item(“relativelink”)))
Else
writer.WriteElementString(“link”, String.Format(“{0}{1}”, Application(“devryvideolocation”), articleData.Tables(0).Rows(i).Item(“relativelink”)))
End If
writer.WriteElementString(“description”, articleData.Tables(0).Rows(i).Item(“longdescription”).ToString())
writer.WriteElementString(“author”, “Jason Huber “)
‘ use DateTimeFormatInfo “r” to use RFC 1123 date formatting (same as RFC 822)
writer.WriteElementString(“pubDate”, articleData.Tables(0).Rows(i).Item(“pubdate”).ToString())

‘ write out
writer.WriteEndElement()
Next
‘ write out
writer.WriteEndElement()

‘ write out
writer.WriteEndElement()

writer.Close()

‘ write out the cached value
Response.Write(sw.ToString())
End Sub

Private Function CreateDataSource() As DataSet