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
%>
Leer las respuestas