Ce script est à insérer dans la procédure page_load de votre document.

Nous utilisons une base de données Sql server 2000, et du XML. Nous aurons donc besoin d'importer en entête du document les espaces de noms suivants :

Imports System.Data.SqlClient
Imports System.Xml

L'objet XmlTextWriter utilisé dans ce script, permet de générer des élements XML à la volée : un fichier RSS étant un XML particulier, celui-ci est particulièrement adapté à la situation.

Première chose créer l'entête du fichier RSS - L'objet XmlTextWriter n'est ici pas intialisé sur un fichier mais directement sur la réponse - page qui sera renvoyée par ASP.NET - Response.OutputStream.

Début du script :

        Dim rss As New XmlTextWriter(Response.OutputStream, System.Text.Encoding.UTF8)
        rss.WriteStartDocument()
        rss.WriteStartElement("rss")
        rss.WriteAttributeString("version", "2.0")
        rss.WriteStartElement("channel")

Ce qui donnera :

 <?xml version="1.0" encoding="utf-8" ?> 
   <rss version="2.0">
   <channel>
        
Les données utilisées sont ensuite renvoyées par l'intermédiaire d'une procédure stockée zactus_rss.
Nous utilisons un objet DataSqlReader pour les lire - Conn représentant la connexion ouverte sur notre base de données :

        Dim dr As SqlDataReader
        Dim oCom As SqlCommand
        oCom = New SqlCommand("zactus_rss", conn)
        oCom.CommandType = Data.CommandType.StoredProcedure
        dr = oCom.ExecuteReader()

Le premier élément ajouté au feed, concerne l'entete du fichier RSS. Il est intégré à la boucle de lecture des données afin de récupérer quelques infos de notre table - ici le numéro de lettre ainsi que la date de la lettre (vous l'aurez remarqué, il s'agit du Feed RSS de notre lettre journalière les Z'actus)

Nous fermons ensuite les tag respectivement </channel> et </rss>, puis nous marquons la fin du document.

        rss.WriteEndElement()
        rss.WriteEndElement()
        rss.WriteEndDocument()

Le fichier rss est exposé puis fermé.

        rss.Flush()
        rss.Close()

Il suffit enfin de modifier l'entête de la page renvoyée vers le navigateur du client, afin que celui-ci comprenne qu'il s'agit d'un fichier XML :

        Response.ContentEncoding = System.Text.Encoding.UTF8
        Response.ContentType = "text/xml"
        Response.End()

 Finalement ce qui donne le Feed suivant : cliquez ici