sub  speichern
{
# Objekt erstellen falls noch nicht geschehen
my $cgi = CGI->new();
# Alle Parameter ins Hash %v
my %v = $cgi->Vars();
my $dbh;
my $sth;
my $ref;
my ($IDA) = @_;
print $IDA; # hier kommt noch der Richtige wert an.

$dbh = WebDB::connect();
$dbh->do ("REPLACE INTO shop1_artikel_1 (Reihenfolge, ArtNr, ArtGruppe, ArtNGruppe, ArtTitel, ArtText, ArtPreis, ArtMWSt, ArtRabatt, ArtEigenschaften, ArtBildklein, ArtBildgross) 
VALUES ('$v{name}','$v{name}','$v{name}','$v{name}','$v{name}','$v{name}','$v{name}','$v{name}','$v{name}','$v{name}','$v{name}','$v{name}')") or die DBI::errstr;
# use DBI muss vorhanden sein damit errstr ausgegenben werden kann oder muss durch das
# Package WebDB implementiert sein.
$sth = $dbh->prepare ( "SELECT * FROM shop1_artikel_1 WHERE ArtID = $IDA ");
   $sth->execute ();
   $ref = $sth->fetchrow_hashref ();
   $sth->finish ();
   $dbh->disconnect ();

}
#--------------------------------------------------------------------------