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

.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;
}

<%
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 ¨<code>¨ & 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 ¨</code>¨ & 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¨) %>