Script en ASP para montar un lector de RSS. El ejemplo lee el RSS de digg, que presenta la siguiente estructura.









Esta información es la que puede variar y sólo tendríamos que recoger el nodo adecuado a nuestros propósitos con objItem.childNodes(), de acuerdo a la estructura del XML que deseasemos recoger.

CSS

.titulo_rss a{
font: bold 13px "Trebuchet MS", Verdana, Arial;
color: #676D46;
text-decoration:none;
display:block;
margin-top:30px;
}

.titulo_rss a:hover{
color: #666;
}

.descripcion_rss {
font: 11px Verdana, Arial, Helvetica, sans-serif;
color: #888;
display:block;
margin-top:10px;
}

.fecha_rss {
font: 10px "Lucida Sans Unicode", Verdana, Arial, Georgia;
color: #CC6633;
}

ASP

<%
Response.Charset = "iso-8859-1"
Dim objXML
Dim objItemList
Dim objItem
Dim strHTML

Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False

objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://www.digg.com/rss/index.xml")


If objXML.parseError.errorCode <> 0 Then
Response.Write "

" & vbCrLf

Response.Write "Error: " & objXML.parseError.reason

Response.Write "Linea: " & objXML.parseError.line & vbCrLf

Response.Write "Texto: " & Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf

Response.Write "

" & vbCrLf
End If

'OBTENEMOS TODOS LOS ITEM
Set objItemList = objXML.getElementsByTagName("item")
Set objXML = Nothing


For Each objItem In objItemList
'OBTENEMOS LOS DISTINTOS NODOS
TituloRSS = objItem.childNodes(0).text
LinkRSS = objItem.childNodes(1).text
DescripcionRSS = objItem.childNodes(2).text
FechaRSS = objItem.childNodes(3).text
Response.Write (" href='" & LinkRSS & "'>" & TituloRSS & "")
Response.Write ("" & FechaRSS & "")
Response.Write ("" & DescripcionRSS & "")
Next

Set objItemList = Nothing

Application.Lock
Application("LectorRSSContenido") = strHTML
Application("LectorRSSActualizado") = Now()
Application.UnLock
%>

<%= Application("LectorRSSContenido") %>
<%= Application("LectorRSSActualizado") %>