Generar RSS usando ASP y una BD

Generar RSS usando ASP y una BD

Muchos hemos necesitado o deseado crear archivos RSS con el contenido de nuestros sitios, la verdad es mas facil de lo que pareciera, claro, despues de leer e investigar me di cuenta de ello, aqui pretendo compartir el como

Primero creamos el archivo RSS que puede incluso tener la extension ASP, por ejemplo rss.asp y pegamos algo asi:

 <!--#include file="conexion.inc" --> <%' ARCHIVO CON LA CONEXION A LA BD%>

<%
'DSN-Less database connection
Query="SELECT * from tabla ORDER by ID desc"   'CREAMOS EL QUERY
RS.Open Query, conexion,1,1    'ABRIMOS EL QUERY

'XML OUTPUT
'AQUI CREAMOS LA SALIDA XML NECESARIA DANDOLE EL FORMATO Y ENCABEZADO

Dim fldF
Response.ContentType = "text/xml"
Response.Write "<?xml version=""1.0"" encoding=""iso-8859-1"" ?>" & vbCrlf
Response.Write "<rss version=""2.0"" xmlns:dc=""http://purl.org/dc/elements/1.1/"" xmlns:content=""http://purl.org/rss/1.0/modules/content/"">" & vbCrlf
Response.Write "<channel>" & vbCrlf
Response.Write "<title>TITULO</title>" & vbCrlf
Response.Write "<link>http://www.TUWEB.com</link>" & vbCrlf
Response.Write "<description>DESCRIPCION</description>" & vbCrlf
REsponse.Write "<language>es</language>" & vbCrlf


'A loop to collect all the articles
do while not RS.EOF and cuenta&lt;10 'LIMITO A 10 EL DESPLIEGUE, SI USAR MYSQL PUEDES HACERLO DESDE EL QUERY CON LIMIT

'REALIZO UNOS REPLACES PARA BORRAR CONTENIDO DEL CAMPO

comentario=replace(comentario,"á","&aacute;")
comentario=replace(comentario,"é","&eacute;")
comentario=replace(comentario,"í","&iacute;")
comentario=replace(comentario,"ó","&oacute;")
comentario=replace(comentario,"ú","&uacute;")

cuenta=cuenta+1

Response.Write "<item>" & vbCrlf       
Response.Write "<title>" & RS("title") & "</title>" & vbCrlf
Response.Write "<link>http://www.TUWEB.com/articulos.asp?id="&rs("id")&"</link>" & vbCrlf
Response.Write "<description>"  & vbCrlf
Response.Write "<![CDATA[" & vbCrlf
Response.Write comentario & "]]>" & vbCrlf
Response.Write "</description>" & vbCrlf
Response.Write "<guid isPermaLink=""true"">http://www.TUWEB.com/articulos.asp?id="&rs("id")&"</guid>" & vbCrlf
Response.Write "</item>" & vbCrlf 

RS.MoveNext
Loop
Response.Write "</channel>" & vbCrlf
Response.Write "</rss>" & vbCrlf
 
RS.Close
set RS = nothing
%>
Y listo, ese es el archivo ASP que debemos crear, no se si necesite mas explicaciones, si es asi, espero sus comentarios.

El anterior es una pequeña modificacion del original en http://www.cristovivo.com/rss.asp