Select Code to Download

#!perl -w
use strict;
...
while(my@row=$s->fetchrow_array){ print "@row\n"; }

$D->disconnect;

1,18-Oct-04,29-Oct-04,29-Oct-04
2,18-Oct-04,26-Oct-04,26-Oct-04
...
4,20-Oct-04,11-Jun-04,27-Oct-04
5,18-Oct-04,3-Sep-04,24-May-04
6,17-Oct-04,15-Oct-04,15-Oct-04

DBD::SQLite2: :st execute failed: no such column: Oct(1) at dbdimp.c l
+ine 412 at C:\WINNT\Profiles\toms\Desktop\createdb.pl line 26, <CSV> 
+line 1.
DBD::SQLite2: :st execute failed: no such column: Oct(1) at dbdimp.c l
+ine 412 at C:\WINNT\Profiles\toms\Desktop\createdb.pl line 27, <CSV> 
+line 1.
DBD::SQLite2: :st execute failed: no such column: Oct(1) at dbdimp.c l
+ine 412 at C:\WINNT\Profiles\toms\Desktop\createdb.pl line 28, <CSV> 
+line 1.