<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
'Sets the content type
Response.ContentType = "application/vnd.ms-access"
'Specify filename for download
Response.AddHeader "Content-Disposition", "attachment;filename=Results.MDB"
'Create RecordSet and MDB objects
Set ADORS = CreateObject("ADODB.Recordset")
Set MDB = CreateObject("RSConvert.MDB")
'Open table Orders
ADORS.Open "Orders", "DSN=ADOSamples"
'Add table "Orders" to database
MDB.AddRS ADORS
ADORS.Close
'Open table Payments
ADORS.Open "Payments", "DSN=ADOSamples"
'Add table "Payments" to database
MDB.AddRS ADORS
ADORS.Close
'Write MDB file to the client
Response.BinaryWrite MDB.GetBinary
</SCRIPT> |