warn("1st call Connection-database handle: '$dbh' dsn: '$dsn'");	

##</code><code>##

warn("2nd call Connection-database handle: '$dbh' dsn: '$dsn'");

##</code><code>##

sub ExecuteQuery
{
	my ($SQL) = @_;

	my $sth = $dbh->prepare($SQL) or die $dbh->errstr;
	$sth->execute() or die $dbh->errstr;
#	$dbh->commit or die $dbh->errstr;


#	my $sth = $dbh->prepare($SQL) || ErrorMessage($SQL);
#	$sth->execute() || ErrorMessage($SQL);
	return $sth;
	$session->flush(); 
}


##</code><code>##

sub OpenSession{
  my ($dbh, $sid)= @_;
  $session  = new CGI::Session("driver:MySQL", $sid, {Handle=>$dbh, LockHandle=>$dbh});
  return $session;
}