Lector RSS con ASP

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

<item>
<title></title>
<link></link>
<description></description>
<pubDate></pubDate>
<guid isPermaLink="true"></guid>
<digg:diggCount></digg:diggCount>
</item>

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 "<pre>" & vbCrLf
Response.Write "<strong>Error:</strong> " & objXML.parseError.reason
Response.Write "<strong>Linea:</strong> " & objXML.parseError.line & vbCrLf
Response.Write "<strong>Texto:</strong> " & Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
Response.Write "</pre>" & 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 ("<span class=""titulo_rss""><a
href=’" & LinkRSS & "’>" & TituloRSS & "</a></span>")
Response.Write ("<span class=""fecha_rss"">" & FechaRSS & "</span>")
Response.Write ("<span class=""descripcion_rss"">" & DescripcionRSS & "</span>")
Next

Set objItemList = Nothing

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

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

Deja un comentario