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