Forums Últimos mensajes - Powered by IBM
 

Ayuda con mostrar RSS

01/02/2007 - 10:11 por Javi | Informe spam
Hola a todos,

Tengo que crear una página asp que muestre el contenido de la siguiente url:

http://alerta-antivirus.red.es/susc...ss.php?c=a

Me pueden orientar como coger esa información e ir mostrándola en mi web
asp, dando un formato, colores, etc etc

Se lo agradezco mucho,

Un cordial saludo y muchas gracias,
 

Leer las respuestas

#1 Javi
01/02/2007 - 11:34 | Informe spam
Tengo este código:

<%
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://alerta-antivirus.red.es/susc...?c=a")


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
DescripcionRSS = objItem.childNodes(1).text

Response.Write (TituloRSS & "<br>")
Response.Write (DescripcionRSS)
Next


Set objItemList = Nothing

%>


Ejecuto la página asp y siempre sale este error:


Error: System error: -2147012867.
Linea: 0
Texto:


Que puede pasar?, estoy haciendo algo mal?.

Saludos y gracias





"Javi" wrote:


Hola a todos,

Tengo que crear una página asp que muestre el contenido de la siguiente url:

http://alerta-antivirus.red.es/susc...ss.php?c=a

Me pueden orientar como coger esa información e ir mostrándola en mi web
asp, dando un formato, colores, etc etc

Se lo agradezco mucho,

Un cordial saludo y muchas gracias,

Preguntas similares