Help for this page

Select Code to Download


  1. or download this
    #/usr/bin/perl -w
    use DBI; 
    use CGI ':standard'; 
    ...
    or die "Connection Error: $DBI::errstr\n";
    ##DELETE FROM my table WHERE DATE(NOW(), date) >30;
    DELETE FROM my table where now()-d >interval '30days';
    
  2. or download this
    Undefined subroutine &main::NOW called at e:\owner\website \cgi-bin\se
    +arch_ specialty.pl line 13
    
    ...
    Syntax error at e:\owner\website \cgi-bin\search_ specialty.pl line 14
    +, near ")-d "
    
    Execution of e:\pinnacle\website\cgi-bin\search_specialty.pl aborted d
    +ue to compilation errors.