Select Code to Download

                my $sth_cs = $dbh->prepare(q~update script_run_rules s
+et running=1,run_user=? where NAME='InvDispute'~) or die "Couldn't pr
+epare statement: " . $dbh->errstr;
                $sth_cs->execute($u_email);
...
                </table></body></HTML>
HTML

my $sth = $dbh_o->prepare(q~GIANT MIGHTY SQL STATEMENT~)
    or die "Couldn't prepare statement: " . $dbh_o->errstr;
...
        }
        $dbh_o->disconnect;
        close(OUT);

                binmode $filehandle;
                open OUT, "> c:\\Apache2.2\\script_run\\BV_on_acc.txt"
+ or die $!;
...
                </table></body></HTML>
HTML
            }

system('sqlldr.exe CREDS CONTROL=C:\Apache2.2\script_run\bv_on_acc_loa
+der.ctl');

...
$dbh_o->disconnect;
close(OUT);