# ------------------------------------------------------------
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
# ------------------------------------------------------------