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


%>
 

Leer las respuestas

#1 David D
15/01/2010 - 20:44 | Informe spam
Si sólo quieres los títulos no recogas los tags "entry" sino los tags
"title", cambiando
-
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
-
por
-
Set objItemList = objXML.getElementsByTagName("title")
For Each objItem In objItemList
'OBTENEMOS LOS DISTINTOS NODOS
Titulo = objItem.text
Response.Write ("Titulo: " & titulo & "<br>")
Next
-
tendrás el listado de los títulos, si lo que quieres es recoger los
tags "entry" y uno por uno ver su contenido puedes hacer lo siguiente:
-
Set objItemList = objXML.getElementsByTagName("entry")
For Each objItem In objItemList
'OBTENEMOS LOS DISTINTOS NODOS
Titulo = objItem.selectSingleNode("title").text
Resumen = objItem.selectSingleNode("summary").text
Response.Write (Ucase(titulo) & ": " & Resumen & "<hr>")
Next
-

Un saludo
Visita www.perros-pastoraleman-requena.com
Busca en los-apuntes.com

On 28 dic 2009, 18:17, Enrique Maldonado
wrote:
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...efaulthttp://onthecornerstreetstyle.blogspot.com/feeds/posts/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