<%
'assegno il nome al file XML che voglio creare
Dim filename
filename = "DB_to_XML.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("myDataBase.mdb"))

'seleziono tutti i records della tabella myTable
sql = "SELECT * FROM myTable"
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>.")
%>