<input type="file" name="Bild:=" size="30">$Bild

$cistfile = length $f_ns_bild > 3 ? "checked=checked" : "";
   $cnofile = length $f_ns_bild < 3 ? "checked=checked" : "";
   $feld1_datei=<<EOF;
   <input type=radio name="_filec_ns_bild=" value=0 $cistfile> Bild behalten&nbsp;($f_ns_bild)</input>
   <input type=radio name="_filec_ns_bild=" value=1 $cnofile> Kein Bild&nbsp;</input>
   <input type=radio name="_filec_ns_bild=" value=2> Neues Bild&nbsp;</input><br>
EOF

out<<EOF;
Bild:<br>$feld1_datei
 <input type=file name="ns_bild:=" size=30 maxlength=15000 onfocus="a=this.form.elements; for(i=0; i<a.length; i++) if(a[i].name==this.name) break; a[i-1].checked=1;"></input>
EOF

sub get_options { ################################################################
$a_debug.= "<b>A sub get_options(@_)</b><br>";
# Syntax: get_options($db_daten, $feldname,"sort"|"")
my ($db_daten, $feldname, $sort) = @_; # &Uuml;bergabewerte
my ($a_options,$option_temp);
my (@l_multioption,@l_o);
   if ($db_daten ne "" && $feldname ne "") {
      get "Field==$feldname","$db_daten.fields", "show_option";
      if ($Type =~ /\Aoption/) {
         @l_o = split/\n/,$Params; #Werte Optionen in Liste
         $l_o[0] = substr $l_o[0], rindex ($l_o[0], '#')+1; #
         $l_o = sort @l_o if sort eq "sort";
         @l_multioption = split /\n/,${"f_$feldname"}; # Werte aus Optionfeld splitten um zu vergleichen
         foreach $topt (@l_o) {
            if (scalar @l_multioption > 0){ # wenn Multi-Optionfeld
               for $zl(0..$#l_multioption) {
                  if ($l_multioption[$zl] eq $topt){ # wenn optionwert vorh.
                  $option_temp =  "<option selected 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
      # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
      } else {
      $a_options = "<option style='font:sans-serif red bold'>Fehler!</option>";
      } # e if/else type option
   } else {
   $a_options = "<option style='font:sans-serif red bold'>Fehler!</option>";
   }
$a_debug.= "<b>E sub get_options</b><br>";
return $a_options;
} ################################################################