| Send database table as DBF | |
|---|---|
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>
'Sets the content type
Response.ContentType = "application/x-msdownload"
'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 "Customers", "DSN=ADOSamples"
'Write DBF file to the client
Response.BinaryWrite DBF.GetFile(ADORS)
'Close recordset
ADORS.Close
</SCRIPT> | |