<%
'********** PERSONALIZZAZIONE RSS:
'html="http://musica.virgilio.it/news.xml"
url="http://musica.virgilio.it/news.xml"
' Creo oggetto DOM XML
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
'setTimeouts(lResolve, lConnect, lSend, lReceive);
'call objXML.setTimeouts(2000, 1000, 1000, 2000)
' validazione del documento XML
objXML.validateOnParse =false' true
' non conservare spazi
objXML.preserveWhiteSpace = true
blnLoaded = objXML.Load(url)
If Not blnLoaded Then
html=html & "Nessuna news da visualizzare "
Else
set objNodeList = objXML.getElementsByTagName("channel")
Set objNodeList = objXML.getElementsByTagName("item")
For Each objNode In objNodeList
For Each objNode2 In objNode.childNodes
'response.write objnode2.nodename
Select Case objNode2.nodeName
Case "title"
on error resume next
html = html & "» " & objNode2.firstChild.nodevalue & "
"
on error goto 0
End Select
Next
Next
set objNodeList = Nothing
End if
'********************************** FINE RSS *********************************
%>