questo e un modo pre crearlo esattamete il primo della lista di baol74
il problema di questo metodo gia te l'ha detto baol...ma io gli altri non li conosco bene....
cmq ti posto un esempio...

<%
'assegno il nome al file XML che voglio creare
Dim filename
filename = "titty.xml"

'verifico se esiste già un file XML con lo stesso nome
Dim fso
Set fso = Server.CreateObject("Scripting.FileSystemObject")
'se esiste eliminalo
if fso.FileExists(Server.MapPath(filename)) then
fso.DeleteFile(Server.MapPath(filename))
end if
Set fso = Nothing

Dim cn, rs, sql

'apro la connessione al database myDataBase.mdb
Set cn = server.createobject("ADODB.Connection")
cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&_
Server.MapPath("rubrica.mdb"))

'seleziono tutti i records della tabella myTable
sql = "SELECT * FROM rubrica"
Set rs = cn.Execute(sql)

'salvo il recordset in un file XML
rs.Save Server.MapPath(filename), 1

'chiudo il recordset, la connessione al database e libero le risorse
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

'creo il link per visualizzare il file XML appena creato
Response.Write("Per visualizzare il file XML appena creato <a href="&_
filename&">clicca qui</a>.")
%>