%
url="feedrss.asp.html"
Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
objXML.async = false
objXML.setProperty "ServerHTTPRequest", True
objXML.validateOnParse =false' true
objXML.preserveWhiteSpace = false
blnLoaded = objXML.Load(url)
If Not blnLoaded Then
Response.write "Nessuna news da visualizzare"
Else
set objNodeList = objXML.getElementsByTagName("channel")
For Each objNode In objNodeList
For Each objNode2 In objNode.childNodes
Select Case objNode2.nodeName
Case "title"
html = html + ""
html = html + objNode2.firstChild.nodevalue
html = html + "
"
Case "link"
html = html + ""
html = html + objNode2.firstChild.nodevalue
html = html + "
"
Case "description"
html = html + ""
html = html + objNode2.firstChild.nodevalue
html = html + ""
End Select
Next
html = html + "
"
Next
html = html + "
"
Set objNodeList = objXML.getElementsByTagName("item")
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
End Select
Next
html = html + "
" + strTitle + "
" + strDescription +"
"
strTitle = ""
strURL = ""
strDescription = ""
Next
set objNodeList = Nothing
End if
%>