How to run application.exportxml from VBScript in ASP

I have an application in ASP VBScript running on a web server using an Access 2003 database.  I need to export a table from that Access database to XML.

I jknow that the appropriate Access method is application.exportXML.  However, the way in which I have formatted the command in VBScript appears to be incorrect, as the command will not run: although I don't get an error message, no XML file is produced.  

Further details are as follows.

The ASP application is running on a web server, and the code is VBScript.  The database is Access2003.  The objective of the code is:

>  within ssrc.mdb , to create a table called xgeolog from a table called geolog (this works), and
>  to export the table called xgeolog as an XML file called xxrc.xml (this doesn't work).
 
Within Access this code DOES work:

Private Sub grabx_Click()
DoCmd.RunSQL "SELECT geolog.* INTO cwg_dl FROM geolog IN 'F:\data_webserver\geocoder_log.mdb'"
Application.ExportXML ObjectType:=acExportTable, DataSource:="cwg_dl", DataTarget:="F:\data_webserver\cwg_dl.xml"
End Sub
----------------------------
 
However, in ASP VBScript there's something wrong with the second last line (and maybe other lines that set it up):
thisdb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath("/database/ssrc.mdb")
set dbx  = server.createobject("adodb.connection")
dbx.open thisdb
set db_rs = dbx.execute("SELECT geolog.* INTO xgeolog FROM geolog")
set dax = server.CreateObject("Access.Application")
dax.ExportXML "ObjectType = acExportTable, DataSource =  xgeolog, DataTarget = "& Server.MapPath("/exports/xxrc.xml")
db_rs.close
----------------------------
 
Any ideas please?  Note that I have seen similar questions in Experts Exchange, but they have not been satisfactorily answered, and I believe that many people could use the answer to this question.Start Free Trial

1:
2:
3:
4:
5:
6:
7:

thisdb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath("/database/ssrc.mdb")
set dbx  = server.createobject("adodb.connection")
dbx.open thisdb
set db_rs = dbx.execute("SELECT geolog.* INTO xgeolog FROM geolog")
set dax = server.CreateObject("Access.Application")
dax.ExportXML "ObjectType = acExportTable, DataSource =  xgeolog, DataTarget = "& Server.MapPath("/exports/xxrc.xml")
db_rs.close