'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, valuta, cambio

    ' 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 = "UPDATE cambio SET rate = " & cambio & " WHERE currency = '" & valuta & "'" 
  conn.Execute(SQL)  

     Next

  SQL = "UPDATE cambio SET rate = " & cambio & " WHERE currency = '" & valuta & "'" 
  'conn.Execute(SQL)  
  Response.Write SQL