<%
'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>.")
%>