| DatabaseTypeEnum | MDB Database types. |
| ||
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
'Sets the content type
Response.ContentType = "application/vnd.ms-excel"
'Specify filename for download
Response.AddHeader "Content-Disposition", "attachment;filename=Orders.DBF"
'Create RecordSet and DBF objects
Set ADORS = CreateObject("ADODB.Recordset")
Set DBF = CreateObject("RSConvert.DBF")
'Open table
ADORS.Open "Orders", "DSN=ADOSamples"
'Write DBF file to the client
Response.BinaryWrite DBF.GetFile(ADORS)
'Close recordset
ADORS.Close
</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> |