Leer RSS XML de Blogger con ASP

28/12/2009 - 18:17 por Enrique Maldonado | Informe spam
Hola a todos,

Necesito un código que me permita leer el RSS de los blogs de blogger
que tienen sus blogs (os pongo dos ejemplos):

http://marketing-digital.blogspot.c...ts/default
http://onthecornerstreetstyle.blogs...ts/default

He probado con este codigo (pero parece que no siempre es el subnodo 6
el que tiene el título, es como si cambiase la estructura y no se como
acceder al titulo de cada blog)

<%
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("La URL del blo deseada de las del ejemplo")


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("entry")

For Each objItem In objItemList
'OBTENEMOS LOS DISTINTOS NODOS
Titulo = objItem.childNodes(6).text
Response.Write ("Titulo: " & titulo & "<br>")
Next

Set objXML = Nothing
Set objItemList = Nothing


%>
 

Preguntas similares