Select Code to Download

    my $date_file = new IO::File;
    $date_file->open("<start_date.txt") or die "cannot find file!";
    chomp(my $date = $date_file->getline);
...
        $sth = $dbh->prepare($query);
        $sth->execute($date);
        $sth->finish();

DBD::ODBC::st execute failed: called with 1 bind variables when 0 are 
+needed at
C:\Documents and Settings\xxx\Desktop\distribute.pl line 264.

DBD::ODBC::st execute failed: [Microsoft][ODBC Microsoft Access Driver
+] Too few
parameters. Expected 1. (SQL-07002)(DBD: st_execute/SQLExecute err=-1)
+ at C:\Doc
uments and Settings\xxx\Desktop\distribute.pl line 264.