elsif ($aktion eq "speichern")
{         my $ArtIDA = param('ArtIDA');
          my $dat1 = param{'ArtNr'};
          my $dat2 = param{'ArtGruppe'};
          my $dat3 = param{'ArtNGruppe'};
          my $dat4 = param{'ArtTitel'};
          my $dat5 = param{'ArtText'};
          my $dat6 = param{'ArtPreis'};
          my $dat7 = param{'ArtMWSt'};
          my $dat8 = param{'ArtRabatt'};
          my $dat9 = param{'ArtEigenschaften'};
          my $dat10 = param{'ArtBildklein'};
          my $dat11 = param{'ArtBildgross'};
         speichern("$dat1","$dat2","$dat3","$dat4","$dat5","$dat6","$dat7","$dat8","$dat9","dat10","dat11","$ArtIDA");