- Codice: Seleziona tutto
<item>
<enclosure url="http://www.sito.it/2007/10/ARCHIVE/immagine.jpg" length="326" type="image/jpeg" />
<link>http://www.sito.it/speciale/2007/index.html</link>
</item>
<item>
<title>......</title>
<link>http://www.sito.it/2007/10/index.html</link>
<guid isPermaLink="true">http://www.sito.it/2007/10/index.html</guid>
<description><![CDATA[ bla, bla bla, bla, bla....... ]]></description>
</item>
Io leggo e valorizzo a video i valori delle variabili "strTitle", "strURL", "strDescription" tramite il codice (perfettamente funzionante) che segue:
- Codice: Seleziona tutto
Sub RSS (URL)
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
' validazione
objXML.validateOnParse =false' true
' non conservare spazi
objXML.preserveWhiteSpace = false
blnLoaded = objXML.Load(URL)
If Not blnLoaded Then
Response.write "<P>ERRORE<br>codice: " & objXML.parseError.errorCode & "<br>Linea/Col: " & objXML.parseError.line & "/" & objXML.parseError.linepos & "</P>"
Else
Set objNodeList = objXML.getElementsByTagName("item")
contatore = 0
For Each objNode In objNodeList
For Each objNode2 In objNode.childNodes
Select Case objNode2.nodeName
Case "title"
strTitle = objNode2.firstChild.nodevalue
Case "link"
strURL = objNode2.firstChild.nodevalue
Case "description"
strDescription = objNode2.firstChild.nodevalue
Case "enclosure"
strEnclosure = "***"
End Select
Next
Response.Write strTitle & "<br>"
Response.Write strURL & "<br>"
Response.Write strDescription & "<br>"
Response.Write strEnclosure & "<br>"
strTitle = ""
strURL = ""
strDescription = ""
Next
set objNodeList = Nothing
End if
End sub
L'assegnazione di "***" alla variabile "strEnclosure" è voluta al fine di controllare se il nodo <enclosure> fosse visibile. Evento che si verifica senza errori. A questa variabile vorrei invece assegnare il valore "url" di <enclosure> (nel nostro caso "http://www.sito.it/2007/10/ARCHIVE/immagine.jpg"). E qui purtroppo casca l'asino (io) perchè non riesco a trovare l'istruzione coretta per risolvere il mio problema.