Leggere i feed RSS con ASP

[marcopaolo79]

Salve a tutti.......... ho poca dimestichezza con i feed rss ma avrei trovato questo script già pronto:

'Utilizzo oggetto DOM per caricare il file xml (feed rss)
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")

objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse =false
objXML.preserveWhiteSpace = false

caricoFile = objXML.Load("http://www.miositodelrss.it/index.php?format=feed&type=rss&lang=it")

' Controllo se e' stato caricato il file
If Not caricoFile Then
' In caso di errore avviso quale errore si e' verificato
Response.write "

Errore
: " & objXML.parseError.errorCode & "
"
Response.Write "Linea: " & objXML.parseError.line & "/"
Response.WRite "Colonna: " & objXML.parseError.linepos & "</p>"
Else
' In caso non vi sia nessun errore, proseguo e carico le info del file xml (feed rss)
Set Nodo = objXML.getElementsByTagName("item")

For Each objNodi In Nodo
' Sfoglio i nodi
For Each objNodo In objNodi.childNodes
Select Case objNodo.nodeName
Case "title"
titolo = objNodo.firstChild.nodevalue
Case "link"
link = objNodo.firstChild.nodevalue
Case "description"
descrizione = objNodo.firstChild.nodevalue
Case "dc:date"
data = objNodo.firstChild.nodevalue
data = Replace(data,"T"," alle ")
data = Replace(data,"+00:00","")
End Select

Next

' VISUALIZZO LA NOTIZIA
Response.write ("[*]<a href=""" & link & """ title=""Leggi: " & titolo & " - Autore: Io"" target=""_blank"">")
Response.Write (titolo & "</a> <font color=""#CCCCCC"">" & data & "</font>
" & descrizione & " (Leggi tutto...)")

Next

set Nodo = Nothing
End if
%>

però mi dà questo errore:

Errore
: -2147012867
Linea: 0/Colonna: 0

cosa è questo errore??

come risolverlo??

[tas]

Sei sicuro che il percorso del feed rss sia giusto?
http://www.miositodelrss.it/index.ph...pe=rss&lang=it

[marcopaolo79]

non so se si può postare il link, ma.... guarda tu stesso:

http://www.terresiena.it/index.php?format=feed&type=rss&lang=it

[marcopaolo79]

Quando mi hai detto in quel modo ho provato a mettere la pagina dentro un altro dominio e con mia grande sorpresa.......... baaamm funziona.

Quindi dipende non dallo script ma dal dominio.

La spiegazione è che non supporta l'oggetto msxml2.DOMDocument.3.0?!
Me lo confermate?!

[tas]

La spiegazione è che non supporta l'oggetto msxml2.DOMDocument.3.0?!

Potrebbe essere... hai provato con la versione 6?
Msxml2.DOMDocument.6.0

[marcopaolo79]

se provo a mettere Msxml2.DOMDocument.6.0

mi dà questo errore.......

Oggetto Server error 'ASP 0177 : 800401f3'

Impossibile eseguire il metodo Server.CreateObject

/it-siena-toscana/prova.asp, line 4

ProgID non valido. Per ulteriori informazioni sul messaggio, visitare il sito Internet del Servizio Supporto Tecnico Microsoft all'indirizzo: http://www.microsoft.com/contentredirect.asp.


sinceramente non so proprio cosa fare........

Consigli?

[marcopaolo79]

Dò un'altra impostazione di lettura per cercare di capire l'errore.

Ho preso un feed rss da un altro sito in xml quindi del tipo:

http://www.sitoweb.net/url.xml

e funziona alla perfezione lo script sotto anche nel dominio che diciamo mi dà problemi.

Come carico però il link del rss di terredisiena, che come vedete ha un "finale" in .php e non .xml mi dà l'errore....

cosa si può fare?

[marcopaolo79]

con questo feed va:

<lu>
<%

Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")

objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse = false
objXML.preserveWhiteSpace = false

blnLoaded = objXML.Load("http://www.valdelsa.net/url-cy92-it.xml")

' guardo se ci sono errori
If Not blnLoaded Then
   Response.write "

Errore
: " & objXML.parseError.errorCode & "
"
   Response.Write "Linea: " & objXML.parseError.line & "/" 
   Response.WRite "Colonna: " & objXML.parseError.linepos & "</p>"
Else
   ' se nn ci sono errori proseguo e carico le info del feed rss
   Set Nodo = objXML.getElementsByTagName("item")

   For Each objNodi In Nodo
      ' sfoglio i nodi
      For Each objNodo In objNodi.childNodes
         Select Case objNodo.nodeName
            Case "title"
               titolo = objNodo.firstChild.nodevalue
            Case "link"
               link = objNodo.firstChild.nodevalue
            Case "description"
               descrizione = objNodo.firstChild.nodevalue
            Case "dc:date"
               data = objNodo.firstChild.nodevalue
               data = Replace(data,"T"," alle ")
               data = Replace(data,"+00:00","")
            Case "pubDate"
               on error resume next
               data = FormatDateTime(CDate(objNodo.firstChild.nodevalue),vbLongDate)
               on error goto 0
         End Select
      Next

      ' VISUALIZZO il FEED
      Response.write ("[*]<a href=""" & link & """ title=""Leggi: " & titolo & """ target=""_blank"">")
      Response.Write (titolo & "</a> " & data & "
" & descrizione & "")

   Next

   set Nodo = Nothing
End if
%>[/list]

con questo feed non va:

<lu>
<%

Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")

objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse = false
objXML.preserveWhiteSpace = false

blnLoaded = objXML.Load("http://www.terresiena.it/index.php?format=feed&type=rss&lang=it")

' guardo se ci sono errori
If Not blnLoaded Then
   Response.write "

Errore
: " & objXML.parseError.errorCode & "
"
   Response.Write "Linea: " & objXML.parseError.line & "/" 
   Response.WRite "Colonna: " & objXML.parseError.linepos & "</p>"
Else
   ' se nn ci sono errori proseguo e carico le info del feed rss
   Set Nodo = objXML.getElementsByTagName("item")

   For Each objNodi In Nodo
      ' sfoglio i nodi
      For Each objNodo In objNodi.childNodes
         Select Case objNodo.nodeName
            Case "title"
               titolo = objNodo.firstChild.nodevalue
            Case "link"
               link = objNodo.firstChild.nodevalue
            Case "description"
               descrizione = objNodo.firstChild.nodevalue
            Case "dc:date"
               data = objNodo.firstChild.nodevalue
               data = Replace(data,"T"," alle ")
               data = Replace(data,"+00:00","")
            Case "pubDate"
               on error resume next
               data = FormatDateTime(CDate(objNodo.firstChild.nodevalue),vbLongDate)
               on error goto 0
         End Select
      Next

      ' VISUALIZZO il FEED
      Response.write ("[*]<a href=""" & link & """ title=""Leggi: " & titolo & """ target=""_blank"">")
      Response.Write (titolo & "</a> " & data & "
" & descrizione & "")

   Next

   set Nodo = Nothing
End if
%>[/list]

stesso script cambio solo il link...... qualche anima pia che mi spieghi il perchè?!
ci sto impazzendo....