my $sth_cs = $dbh->prepare(q~update script_run_rules set running=1,run_user=? where NAME='InvDispute'~) or die "Couldn't prepare statement: " . $dbh->errstr;
				$sth_cs->execute($u_email);
				my @args = ("c:\\Apache2.2\\script_run\\exec_invdispute.pl", $u_email);
				system( 1,$cmd, @args );
				print header;
				print Header_HTML();
				print<<HTML;
				<table width="745" border="0" align="center" cellpadding="0" cellspacing="0">
				$balken
				$scr_menue
				<tr><td>&nbsp;</td></tr>
				<tr><td align="center"><p>script started you will get an email when it's finished</p></td></tr>
				$logo
				</table></body></HTML>
HTML


##</code><code>##

my $sth = $dbh_o->prepare(q~GIANT MIGHTY SQL STATEMENT~)
    or die "Couldn't prepare statement: " . $dbh_o->errstr;
	
		open(OUT,'>',"c:\\Apache2.2\\script_run\\Calldetails_".$inv_nr.".txt") or die("open failed: $!");
		
		$sth->execute($inv_nr);
		while (my @data = $sth->fetchrow_array()) {
			print OUT join(';',@data),"\n";
		}
		$dbh_o->disconnect;
		close(OUT);

##</code><code>##

				binmode $filehandle;
				open OUT, "> c:\\Apache2.2\\script_run\\BV_on_acc.txt" or die $!;
				binmode OUT;
				{
					my $buffer;
					while ( read $filehandle, $buffer, 1024 ) {
						print OUT $buffer;
					}
				}
				close OUT;
				close $filehandle;
				my $sth_cs = $dbh->prepare(q~update script_run_rules set running=1,run_user=? where NAME='BVonAcc'~) or die "Couldn't prepare statement: " . $dbh->errstr;
				$sth_cs->execute($u_email);
				my @args = ("c:\\Apache2.2\\script_run\\exec_bvonacc.pl", $u_email);
				system( 1,$cmd, @args );
				print header;
				print Header_HTML();
				print<<HTML;
				<table width="745" border="0" align="center" cellpadding="0" cellspacing="0">
				$balken
				$scr_menue
				<tr><td>&nbsp;</td></tr>
				<tr><td align="center"><p>script started you will get an email when it's finished</p></td></tr>
				$logo
				</table></body></HTML>
HTML
			}

##</code><code>##

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

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

open(OUT,'>',"c:\\Apache2.2\\script_run\\$file") or die("open failed: $!");

$sth->execute();
while (my @data = $sth->fetchrow_array()) {
	print OUT join(';',@data),"\n";
}
$dbh_o->disconnect;
close(OUT);