Premetto che sono un novello nell'uso degli script per il caricamento di pagine XML.
Tuttavia fino ad oggi utilizzavo uno script che ha sempre funzionato fino a quando oggi ho deciso di far agganciare un altro RSS.
lo script è il seguente. Sapreste dirmi perchè non carica la pagina http://www.asbari.it/index.php?option=com_rd_rss&id=2
Qualsiasi altra pagina (ad es. http://www.regione.puglia.it/index.p...rp&opz=feedrss) invece funziona benissimo.
Grazieeee
------------------------------
<lu>
<%
'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
' Carico news di WebMasterPoint.org
caricoFile = objXML.Load("http://www.asbari.it/index.php?option=com_rd_rss&id=2")
' 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 "pubate"
data = objNodo.firstChild.nodevalue
data = Replace(data,"T"," alle ")
data = Replace(data,"+00:00","")
End Select
Next
' VISUALIZZO LA NOTIZIA - E' possibile modificare il codice html delle 3 righe qui sotto, per formattare le news come si desidera
Response.write ("[*]<a href=""" & link & """ title=""Leggi: " & titolo & " - Autore: Redazione di WebMasterPoint.org"" target=""_blank"">")
Response.Write (titolo & "</a> <font color=""#CCCCCC"">" & data & "</font>
" & descrizione & " (Leggi tutto...)")
Next
set Nodo = Nothing
End if
%>[/list]
---------------------------------------
Rispondi quotando
