# ------------------------------------------------------------
sub FireSql { # fire an sql-statement to database: prepare and execute
    my ($dbh, $cgi, $statement, @placeholders) = @_;

    my $sth = $dbh->prepare($statement);
    unless ($sth) { # Errorhandling
    my $message = "Error in preparing SQL:\n\t$statement: $DBI::errstr";
    $dbh->disconnect();

    &PBoard::Subs::PrintErrorAndGoBack($dbh, $cgi, $message);
    } # unless

    unless ($sth->execute(@placeholders)) { # Errorhandling
    my $message = "Error in executing SQL:\n\t$statement: $DBI::errstr";
    $dbh->disconnect();

    &PBoard::Subs::PrintErrorAndGoBack($dbh, $cgi, $message);
    } # unless

    return ($sth);
} # FireSql
# ------------------------------------------------------------

sub DoSql { # fire an sql-do-statement
    my( $dbh, $cgi, $statement, $message, @placeholders ) = @_;

    my $result = $dbh->do($statement, undef, @placeholders);
    unless( $result ) {
        $message .= "\n\t$DBI::errstr";
        &PBoard::Subs::PrintErrorAndGoBack($dbh, $cgi, $message);
    } # unless

} # DoSql