<%
  'sub lettura file rss
  Sub RSS (URL)
  Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") 
  objXML.async = False 
  objXML.setProperty "ServerHTTPRequest", True 
  objXML.validateOnParse = False 
  objXML.preserveWhiteSpace = False 
  objXML.Load(URL) 
  If (objXML.readyState <> 4) Then 
    Response.Write "Problemi nella connessione" 
  Else 
    'Response.Write Server.HTMLEncode(objXML.xml) 
    
    Set objNodeList = objXML.getElementsByTagName("item")
  
    For Each objNode In objNodeList
      For Each objNode2 In objNode.childNodes
        Select Case objNode2.nodeName
          Case "name"
            strTitle = objNode2.firstChild.nodevalue
          Case "url"
            strURL = objNode2.firstChild.nodevalue
           Case "description"
            strDescription = objNode2.firstChild.nodevalue
        End Select
      Next
  
      ' mostro a video
      Response.write "<a href=" &strURL &" title="""&strtitle &""">" &strTitle &"</a><br>" &strDescription
      strTitle = ""
      strURL = ""
      strDescription = ""
      Next
  
    set objNodeList = Nothing
    End if
  End sub
  call RSS("file.xml")
%>