<%

' creo un'istanza dell'oggetto XMLDOM 
set xmlDom = Server.CreateObject("Msxml2.DOMDocument")
xmlDom.async = False 
xmlDom.setProperty "ServerHTTPRequest", True

' leggo il file 
xmlDom.Load("http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml") 

'importo il namespace del nodo Cube. Questo è importante altrimenti non riuscirei a selezionarlo
xmlDom.setProperty "SelectionNamespaces", "xmlns:ns='http://www.ecb.int/vocabulary/2002-08-01/eurofxref'"
'imposto il linguaggio di selezione su XPath, nel caso non fosse già quello di default
xmlDom.setProperty "SelectionLanguage", "XPath"

' seleziono qualsiasi nodo <Cube> contenga l'attributo currency
Dim currNode
Set currNode = xmlDom.SelectNodes("//ns:Cube[@currency]")

' ciclo per tutti i nodi <Cube> così ottenuti
For i = 0 To (currNode.Length - 1) 
  Response.Write "<p>1.00 ¤ = " 
  'Leggo gli attributi rate e currency
  Response.Write currNode(i).GetAttribute("rate") 
  Response.Write " "
  Response.Write currNode(i).GetAttribute("currency")
  Response.Write "</p>" & vbCrLf
Next

Set currNode = Nothing
Set xmlDom = Nothing 
%>

 For i = 1 To nome.length - 1
     valuta = nome(i).getAttribute("currency")  
     cambio = nome(i).getAttribute("rate")
 
SQL2 = "INSERT INTO cambio (currency ,rate) VALUES ('"valuta"', "cambio")"
Set RS2 = conn.Execute (SQL2)

    Next

<%
'Connessione DB Access o SQL SERVER 



FUNCTION FixQuotes( theString )
FixQuotes = REPLACE( theString, "'", "''" )
END FUNCTION


' Dichiaro le variabili che mi servono nello script
    Dim file, objXmlHttp, objXmlDom, nome, cognome, i

    ' Specifico il file XML da utilizzare
   ' file = Server.MapPath("rubrica.xml")
     file = "http://www.ecb.europa.eu/stats/eurofxref/eurofxref-daily.xml"
    ' Imposto l'oggetto XMLHTTP e recuper il file XML
    Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
        objXmlHttp.Open "GET", file, False
        objXmlHttp.Send

    ' Imposto l'oggetto XMLDOM e carico il file XML come stringa
    Set objXmlDom = Server.CreateObject("Microsoft.XMLDOM")
        objXmlDom.async = False
        objXmlDom.loadXML(objXmlHttp.responseText)

    ' Recupero i nodi del file XML
    Set nome = objXmlDom.getElementsByTagName("Cube/Cube")

    ' Inizializzo il contatore per il ciclo
    i = 1
    ' Estraggo tutti i dati
    For i = 1 To nome.length - 1
     valuta = nome(i).getAttribute("currency")
  cambio = nome(i).getAttribute("rate") 
     Response.Write "Valuta:" & valuta &" - Cambio:" & cambio &"<br>"
     
     
     

SQL = "INSERT INTO cambiovaluta (currency,cambio)"
SQL = SQL & " VALUES('" 
SQL = SQL & FixQuotes(valuta)        & "','"
SQL = SQL & FixQuotes(cambio)     & "')"
conn.Execute(SQL)
       
     
     
     
     
     Next



    ' Un po di pulizia...
    Set nome = Nothing
    Set objXmlDom = Nothing
    Set objXmlHttp = Nothing
    conn.close
    set conn = nothing 
%>