Send two recordsets in MDB

Examples

Send two recordsets in MDB
<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>

<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>

Other links for Send two recordsets in MDB

RSConvert

Recordset converter is a library for converting DAO or ADO recordsets to MDB or DBF files. It enables direct binary output of MDB or DBF files from ASP pages with one row of code. The object also supports on-the-fly compression by zip/arj.