Ragazzi scusate se ritorno sull'argomento ma non sono ancora riuscito a risolvere il problema.

Come faccio ad inserire questo elenco di dati presi da xml in db?

senza l'insert legge tutto bene, ma poi non va

codice:
' 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 "

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

'---Inserisco i codici promo nella tabella cambio
Dim SQL2, RS2
SQL2 = "INSERT INTO cambio  (currency ,rate) VALUES ( '"currency"', "rate")"
Set RS2 = conn.Execute (SQL2) 

Set currNode = Nothing
Set xmlDom = Nothing
Grazie