Perl/mySQL - INSERT INTO - Es klappt nicht...

["Portal Internet GmbH" <th.barth_(at)_portal.de>]

Hallo,
ich finde einfach den Fehler in dem folgenden Script nicht. Ich bekomme
wieder eine Server Fehler Meldung.
Meine Scripts mit Datenbankanfragen funtionieren dagegen.
Wer kann mir einen Hinweis auf eine mögliche Fehlerquelle geben?

Gruß,

Thomas Barth...


#! /usr/bin/perl -w
# Einträge in den Datenbank

# Vorspann
use DBI;
use CGI qw(:standard);
use strict;

##########################################
###Variablen
##########################################

my ($anbieter_id) = (param('anbieter_id'));
my ($art) = (param('art'));
my ($standort) =(param('standort));
my ($jahr) =(param('jahr'));
my ($quadrat) = (param('quadrat'));
my ($immer) = (param('immer'));
my ($extras) = (param('extras'));
my ($preisangabe) = (param('preisangabe'));

# Vorbereitung zur Datenbankanbindung
my ($host_name, $user_name, $password) = ("XXX", "XXX", "XXX");
my ($db_name) = "XXX_db";

# Datenquelle erzeugen
my ($dsn) = "DBI:mysql:$db_name:$host_name";

# Verbindung zum Server herstellen
my (%attr) = ( RaiseError => 1 );
my ($dbh) = DBI->connect ($dsn, $user_name, $password, \%attr);

# Datenbankeintrag verarbeiten
my ($sth) = $dbh->prepare (qq{
  INSERT INTO angebote
(anbieter_id,art,standort,jahr,quadrat,immer,extras,preisangabe)
  VALUES
('$anbieter_id','$art','$standort','$jahr','$quadrat','$immer','$extras','$p
reisangabe')});

$sth->execute;

print "Daten eingetragen";

$sth->finish;
$dbh->disconnect;


---
*** Weitere Infos zur Mailingliste und MySQL unter www.4t2.com/mysql