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 MDB objects
Set ADORS = CreateObject("ADODB.Recordset")
Set MDB = CreateObject("RSConvert.MDB")
ADORS.Open "Payments", "DSN=ADOSamples"
MDB.Compress = 1
'Write zipped MDB file to the client
Response.BinaryWrite MDB.GetFile(ADORS) |