function exp_query($sql)
{
$rs = dbExec($sql);
header('Content-Type: text/csv');
header("Content-Disposition: attachment; filename=\"export.csv\"");
// Dump column names
$fc = $rs->FieldCount();
for ($i = 0; $i < $fc; $i++) {
$f = $rs->FetchField($i);
$fn = $f->name;
if ($i != 0) {
print ",";
}
print csv_encoded($fn);
}
print "\n";
// Dump data
$rc = $rs->RecordCount();
while (!$rs->EOF) {
for ($i = 0; $i < $fc; $i++) {
$v = $rs->Fields($i);
if ($i != 0) {
print ",";
}
print csv_encoded($v);
}
print "\n";
$rs->MoveNext();
}
}
//header('Content-Type: text/plain');
// Dump column names
$fc = $rs->FieldCount();
for ($i = 0; $i < $fc; $i++) {
$f = $rs->FetchField($i);
$fn = $f->name;
if ($i != 0) {
print ",";
}
print csv_encoded($fn);
}
print "\n";
// Dump data
$rc = $rs->RecordCount();
while (!$rs->EOF) {
for ($i = 0; $i < $fc; $i++) {
$v = $rs->Fields($i);
if ($i != 0) {
print ",";
}
print csv_encoded($v);
}
print "\n";
$rs->MoveNext();
}
print "{$rc},records\n";
$msg = enquote($sql);
log_event("Records exported: {$msg}");
} else {
print "Error,{$sql}\n";
}
