MOTOBIT.COM - ASP upload, IIS utility 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>