Content-type: text/html

<!-- warning: DBD::ODBC::db prepare failed: [Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'ResourceSettings.ResID=Resources.ResID and
                 ()
          if     ()'. (SQL­37000)(DBD: st_prepare/SQLPrepare err=­1) {SELECT ResType, ResLevel, ResManage, Details, Length, Source, Cost, FurtherDetails 
          FROM ResourceSettings, Resources
          WHERE ResourceSettings.ResID=Resources.ResID and
                 ()
          if     ()
          ORDER BY ResType, ResLevel, ResManage, 
                Details, Length, Source, Cost, FurtherDetails} at c:\INDIGO~1\CGI­BIN\DRIVE2.PL line 46. -->
<H1>Software error:</H1>
<PRE>No sth: ''No such file or directory at c:\INDIGO~1\CGI-BIN\DRIVE2.PL line 46.
</PRE>
<P>
For help, please send mail to the webmaster (<a href="mailto:you@your.address">you@your.address</a>), giving this error message 
and the time and date of the error.

##</code><code>##

 my $hash ={ Initiative=>'DriveInitiative', 
            ResOrientation => 'DriveResOrient',
            Creativity => 'DriveCreativity',
            ChangeOrientation => 'DriveChangeOrient',
            DecisionMaking => 'DriveDecisionMake',
            SelectLevel => 'ResLevel',
            ManagesPeople => 'ResManage'};

    my @clauses = ();
       foreach my $checkbox (keys %$hash) {
       push @clauses, $hash->{$checkbox} if validate($cgi->param($checkbox));
       }

      
    my $where_clause = join(' and ',map($_.= ' = "on"', @clauses));

    my $sql = "SELECT ResType, ResLevel, ResManage, Details, Length, Source, Cost, FurtherDetails 
          FROM ResourceSettings, Resources
          WHERE ResourceSettings.ResID=Resources.ResID and
                 ($where_clause)
          if     ($where_clause)
          ORDER BY ResType, ResLevel, ResManage, 
                Details, Length, Source, Cost, FurtherDetails";