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