MOTOBIT.COM - ASP upload, IIS utility Simple DBF from ADO sample

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