sono riuscito finalmente!

ho utilizzato però un altro script:



<%
'Inizializzo le Variabili
Dim xmlDoc, root
Dim xmlContent, success
Dim xmlData
Dim i

'Creo l' oggetto MsXML2.DOMDocument
Set xmlDoc = Server.CreateObject("msxml2.DOMDocument")

'Creo il Documento XML
xmlContent = "<villa>"
sql="SELECT * FROM VILLE"
aprirs sql
do until rs.eof
nome=rs("nome")
nome = Replace(nome, "&rsquo;", "'")
xmlContent = xmlContent & "<nome>" & nome & "</nome>" & VbCrLf &""
rs.movenext
loop
xmlContent = xmlContent & "</villa>"
'Fine Creazione XML

'Controllo se il File XML sia stato caricato Correttamente
success = xmlDoc.loadXML(xmlContent)
If success = True Then
Response.redirect("")
Else
Response.Write "Impossibile caricare il File XMl... " & Server.HTMLEncode(xmlContent)
End If

'Salviamo il File XML
xmlDoc.save Server.Mappath("/public/database.xml")

'Pulizia degli oggetti
Set xmlDoc = Nothing
%>

grazie lo stesso...ciao!