Allora prova con questo:
codice:
<html>
<title>CodeAve.com(Create XML from Access)</title>
<body bgcolor="#FFFFFF">
<%
' Name of the access db being queried
accessdb="tuo_database"
' Connection string to the access db
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
' Create a server recordset object
Set rs = Server.CreateObject("ADODB.Recordset")
' Query the states table from the tuo_database db
sql = "select state,statename,capital,year,order from states order by states.order "
' Execute the sql
rs.Open sql, cn
' Move to the first record
rs.MoveFirst
' Name for the ouput document
file_being_created= "states.xml"
' create a file system object
set fso = createobject("scripting.filesystemobject")
' create the text file - true will overwrite any previous files
' Writes the db output to a .xml file in the same directory
Set act = fso.CreateTextFile(server.mappath(file_being_created), true)
' All non repetitive xml on top goes here
act.WriteLine("<?xml version=""1.0""?>")
act.WriteLine("<states>")
'Loop to output all the query results to the xml document
do while not rs.eof
' counter to give each record a sequential listing
counter=counter+1
act.WriteLine("<state id="""& counter &""">")
act.WriteLine("<state_abbrev>" & rs("state") & "</state_abbrev>" )
act.WriteLine("<state_name>" & rs("statename") & "</state_name>" )
act.WriteLine("<state_capital>" & rs("capital") & "</state_capital>")
act.WriteLine("<year_admitted>"& rs("year") & "</year_admitted>")
act.WriteLine("<order_admitted>"& rs("order") & "</order_admitted>")
act.WriteLine("</state>")
' move to the next record
rs.movenext
loop
' All non repetitive xml on bottom goes here
act.WriteLine("</states>")
' close the object (xml)
act.close
' Writes a link to the newly created xml document in the browser
response.write "States (.xml) has been created
"
response.write "on " & now() & "
"
%>
</body>
</html>
questo script preleva i dati da un database e li salva in un file xml e lo chiama "states.xml"