get "Field==multioption","$db_daten.fields", "feldbau";
@l_o = split/\n/,$Params; # Werte Optionen in Liste
$l_o[0] = substr $l_o[0], rindex ($l_o[0], '#')+1; # Beschr. weg im ersten Element
@l_multioption = split /\n/,$f_multioption; # Werte in Liste zum vergleichen, in $f_multioption steht der gespeicherte Wert aus dem DS
foreach $topt (@l_o) {
   if (scalar @l_multioption > 0){
      for $zl(0..$#l_multioption) {
         if ($l_multioption[$zl] eq $topt){
         my $a_select = "selected";
         $option_temp =  "<option $a_select value=$topt>$topt</option";
         last
         } else {
         $option_temp =  "<option value=$topt>$topt</option";
         } # E if/else wert l_mult gleich $topt
      } # E for
      $a_options .= $option_temp;
   } else {
   $a_options .=  "<option value=$topt>$topt</option";
   } # e if/else liste mit werten
} # E foreach