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 ($da1,$da2,$da3,$da4,$da5,$da6,$da7,$da8,$da9,$da10,$da11,$IDA) = @_;


$dbh = WebDB::connect();
$dbh->do ("UPDATE shop1_artikel_1 SET ArtNr ='$da1',ArtGruppe ='$da2',ArtNGruppe ='$da3', ArtTitel ='$da4',ArtText ='$da5',ArtPreis ='$da6',ArtMWSt ='$da7',ArtRabatt ='$da8',ArtEigenschaften ='$da9',ArtBildklein ='$da10',ArtBildgross ='$da11' WHERE ArtID = '$IDA'");

$dbh->disconnect ();
print "Der Datenstz mit der ArtikelID $IDA wurde gespeichert";
print "$da1,$da2,$da3,$da4,$da5,$da6,$da7,$da8,$da9,$da10,$da11,$IDA"; 
}
#--------------------------------------------------------------------------