<?xml version="1.0" encoding="ISO-8859-1" ?>
<rss version="0.91">

<channel>
<title>Titulo de Nuestro Sitio Web</title>
<link>http://www.dotnetcr.com.com</link>
<description>Aqui podríamos poner una breve descripción de nuestro sitio</description>
<language>es-ES</language>
<copyright>2005 todos los derechos reservados</copyright>
<webMaster>webmaster@dotnetcr.com</webMaster>

<image>
<title>Imagen o Logo
<url>http://www.dotnetcr.com/logo.gif
<link>http://www.dotnetcr.com
<width>100
<height>12
</image>

<item>
<dc:creator>nombre o código del autor</dc:creator>
<title>Titulo del artículo</title>
<link>http://www.dotnetcr.com/articulo/21.html</link>
<description>

    Descripcion del artículo, podría ser resumida
    para obligar a nuestro lector a ir a nuestro sitio web

</description>
<pubDate>05/05/2005</pubDate>
</item>

</channel>
</rss>

<%@ Import Namespace=DotNetCR._Conexion %>
<%@ Import Namespace=System.Data %>
<%@ Page Language="vb" %>

< script runat="server">

'Load de página, aqui se llaman todos los métodos que crean el RSS
private sub Page_Load(sender as object, e as System.EventArgs)
    Dim writer as new System.Xml.XmlTextWriter(Response.OutputStream, System.Text.Encoding.UTF8)
    Dim iRecursos as new Negocios.Recursos
    Dim dtRecursos as DataTable
    Dim drRecurso as DataRow

    escribirInicioRSS(writer)
    dtRecursos = iRecursos.TraerRecursosRSS.Tables("Recursos")

    for each drRecurso in dtRecursos.Rows
        agregarItemRSS(writer,drRecurso("NombreRecurso"), _
                "http://www.mipaginaweb.com/recursos.aspx?art=" & drRecurso("CodigoRecurso"), _
                 drRecurso("DescripcionRecurso"), drRecurso("CodigoUsuario"))
    next

    escribirFinalRSS(writer)
    writer.Flush()
    writer.Close()

    Response.ContentEncoding = System.Text.Encoding.UTF8
    Response.ContentType = "text/xml"
    Response.Cache.SetCacheability(HttpCacheability.Public)
    Response.End()
end sub

'metodo que escribe los requirimientos iniciales del archivo e informacion general del canal
private function escribirInicioRSS(writer as System.Xml.XmlTextWriter) as System.Xml.XmlTextWriter
    writer.WriteStartDocument()
    writer.WriteStartElement("rss")
    writer.WriteAttributeString("version","2.0")
    writer.WriteAttributeString("xmlns:blogChannel", "http://backend.userland.com/blogChannelModule")
    writer.WriteStartElement("channel")
    writer.WriteElementString("title", "MiPagina.COM - Ultimos artículos publicados")
    writer.WriteElementString("link", "http://www.mipagina.com")
    writer.WriteElementString("description", "MiPagina.com, Descripción de la pagina web")
    writer.WriteElementString("language", "es-CR")
    writer.WriteElementString("copyright", "Copyright 2005 MiPagina.com")
    writer.WriteElementString("webMaster", "webmaster@mipagina.com")
    writer.WriteElementString("managingEditor","webmaster@mipagina.com")
    writer.WriteElementString("generator","Creador de RSS por Roy Rojas v1.1")
    return writer
end function

'funcion que escribe el item en el archivo xml
private function agregarItemRSS(writer as System.Xml.XmlTextWriter, _
    sTitulo as string , sLink as string, _
    sDescripcion as string, sAutor as string) as System.Xml.XmlTextWriter
    writer.WriteStartElement("item")
    writer.WriteElementString("dc:creator", sAutor)
    writer.WriteElementString("title", sTitulo)
    writer.WriteElementString("link", sLink)
    writer.WriteElementString("description", sDescripcion)
    writer.WriteElementString("pubDate", DateTime.Now.ToString("r"))
    writer.WriteEndElement()
    return writer
end function

'metodo que escribe el final del archivo xml. lo cierra.
private function escribirFinalRSS(writer as System.Xml.XmlTextWriter) as Sysem.Xml.XmlTextWriter
    writer.WriteEndElemenem.Xml.XmlTextWriter
    writer.WriteEndElement()
    writer.WriteEndElement()
    writer.WriteEndDocument()
    return writer
end function

< /script>