get "Id==$dsn", $db, "vergleich";
      if (!$workdb_feldliste) {
       while(get_next("vergleich")){
        foreach my $fname(%_loop){
    $a_debug.= "\$fname($fname) - Wert($_loop{$fname})<br>";
        $workdb_feldliste .= "$fname,";
        }
       }
      }
      $workdb_feldliste =~ s/,$//;