Predefined values :
Zero length string - no compress
1 - pkzip, pkzip.exe -a <output> <input>
2 - arj, arj.exe a -e <output> <input>
| ||
'Create Recordset and DBF objects
Set ADORS = CreateObject("ADODB.Recordset")
Set DBF = CreateObject("RSConvert.DBF")
ADORS.Open "Payments", "DSN=ADOSamples"
DBF.Compress = 1
'Write zipped DBF file to the client
Response.BinaryWrite DBF.GetFile(ADORS) |