RSS se ha convertido en una utilidad muy habitual no solo en los blog’s sino también en muchos portales de noticias y demás Web’s
Si necesitas profundizar sobre RSS, ojea los enlaces al final de este artículo o a través de Internet es muy fácil encontrar amplia información.

Una breve descripción de la terminología que engloba este servicio, seria la siguiente:

• Feed: conjunto de información que se pretende distribuir.
• RSS (Really Simple Syndication – Sindicación Realmente Simple): formato basado en el estándar XML en el que se distribuye el feed.
• Sindicar contenido: proceso mediante el que un software cliente RSS obtiene el feed
• Aggregator: software cliente RSS, como RSSBandit o NewsDesk

Y tras esta rápida reseña vamos al tema que nos ocupa.

Mantener un archivo .rss de manera manual con las nuevas actualizaciones que vamos publicando, es tarea fácil para un pequeño Sitio Web, pero si esas actualizaciones son frecuentes, o se trata de una Web algo más grande, esa tarea se convierte en un proceso algo tedioso.

Cuando decidí incorporar RSS a esta Web, dado mí bajo nivel en programación, en principio era mi intención hacerlo de manera manual, ya que la estructura de un archivo .RSS es realmente sencilla, aparte que soy bastante cabezota y de los que aun pica HTML “a pelo”.
Pero, analizando un poco la estructura de mi Web, documentándome sobre el soporte XML de ASP.NET y poco más, pronto me di cuenta que no era tan difícil automatizar totalmente este proceso, por lo que básicamente sería:

• Mediante la clase XmlTextWriter generar el contenido XML con el esquema que RSS necesita.
• Crear un DataSet con el contenido de la tabla de anuncios (ahí guardo los posts que aparecen en la página principal de esta Web)
• XmlTextWriter debe iterar sobre el DataSet para crear los correspondientes Ítems
• Por último mostrar los resultados en formato XML.

Conociendo el planteamiento veamos el código generado para ello con los comentarios sobre el mismo:

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Declara el escritor
Dim Escritor = New XmlTextWriter(Response.OutputStream, System.Text.Encoding.UTF8)

'Genera el encabezado del archivo RSS con la información de nuestro Sitio Web
Escritor.WriteStartDocument()
Escritor.WriteComment("www.raulserrano.net - RSS generado automáticamente")
Escritor.WriteStartElement("rss")
Escritor.WriteAttributeString("version", "2.0")
Escritor.WriteStartElement("channel")
Escritor.WriteElementString("title", "www.raulserrano.net")
Escritor.WriteElementString("link", "http://www.raulserrano.net")
Escritor.WriteElementString("description", "Portal sobre tecnologias Microsoft y actualidad informática")

'Conecta a la BD y vuelca los datos a un DataTable
Dim Conexion As OleDbConnection
Dim Comando As OleDbDataAdapter
Dim ds As DataSet
Dim tblPost As DataTable
Dim registro, numrows As Integer
Dim strSQL As String

strSQL = "SELECT titulo, link, descripcion, fecha FROM posts ORDER BY fecha_pub DESC;"
Conexion = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=x:\archvo.mdb")
Comando = New OleDbDataAdapter(strSQL, Conexion)
ds = New DataSet
Comando.Fill(ds)
tblPost = New DataTable
tblPost = ds.Tables(0)
numrows = tblPost.Rows.Count

'Itera por el DataTable para crear los correspondientes Items
For registro = 0 To numrows - 1
AgregarRSS(Escritor, tblPost.Rows(registro).Item("titulo"), _
tblPost.Rows(registro).Item("link"), _
tblPost.Rows(registro).Item("descipcion"), _
tblPost.Rows(registro).Item("fecha"))
Next registro

'Finaliza el archivo RSS
Escritor.WriteEndElement()
Escritor.WriteEndElement()
Escritor.WriteEndDocument()
Escritor.Flush()
Escritor.Close()

'Codifica y envía el archivo RSS
Response.ContentEncoding = System.Text.Encoding.UTF8
Response.ContentType = "text/xml"
Response.Cache.SetCacheability(HttpCacheability.Public)
Response.End()
End Sub

Public Function AgregarRSS(ByVal Escritor As XmlTextWriter, ByVal titulo As String, ByVal link As String, ByVal descripcion As String, ByVal fecha As String)
'Crea un nuevo elemento
Escritor.WriteStartElement("item")

'Añade subelementos
Escritor.WriteElementString("title", titulo)
Escritor.WriteElementString("link", link)
Escritor.WriteElementString("description", descripcion)
Escritor.WriteElementString("pubDate", fecha)

'Finaliza el elemento
Escritor.WriteEndElement()
Return Escritor
End Function

Más información

Para la realizar este artículo me he basado en la documentación disponible en Internet, especialmente útil el artículo de Carlos Carmona de Scour Design:

RSS 2.0 Dinámicamente. XmlTextWriter (Visual C#)

Documentación adicional:

• Todo acerca de Blogs y RSS
• How to Create an RSS Feed With Notepad, a Web Server, and a Beer
• MSDN Library: XmlTextWriter (Clase)
• MSDN Library: Crear y utilizar DataSets
• MSDN Library: Agregar DataTable a DataSet
• CÓMO: Llenar un objeto DataSet desde una base de datos mediante Visual Basic .NET

MSDN de nuevo nos trae el programa de capacitación sobre Tecnología .NET con el que podrás introducirte en esta tecnología o bien, si ya eres un usuario avanzado profundizar sobre la materia.

Como promoción a este programa, en caso de conseguir tu segunda estrella antes del 7 de Noviembre de 2005, te regalan la version Standard de Visual Studio 2005.

Más Información
Desarrollador 5 estrellas

• Para sistemas:

Mantenga su Infraestructura Segura…Contra Hackers

Organizado por Technet como parte de la Gira de Seguridad y contando con la presencia del MVP Chema Alonso.

• Para desarrolladores:

Desarrollo de aplicaciones Web y Windows con Visual Basic 2005

Organizado por MSDN Taller y con la presencia entre otros del también MVP Miguel Egea

Ambos eventos necesita inscripción previa, a la que podéis acceder desde los enlaces que os he dejado.