Help for this page
#!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.