sub datenbank
{
   if ($anfrage eq "") { $message = "Keine MySQL-Anfrage"; &error_end; }
   use DBI;
   my $dbh = DBI->connect("DBI:$dbdriver:$dbdatabase:$dbhost:$dbport", $dbuser, $dbpassword, { PrintError => 0, RaiseError => 0 } );
   $sth = $dbh->prepare($anfrage) || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
   $sth->execute() || die "Kann Statement nicht vorbereiten: $DBI::errstr\n";
}