$htm_dbwork .= &i_get_showlist(listdb => $listdb, fname => $fname, fwert => 

$fwert, fsort => $fsort, limit => "0,50");

  %iparas = @_;
  if ( defined $iparas{'listdb'} ){ # wenn Datenbankname vorh.
  # ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #
     if ( defined $iparas{'fname'} && defined $iparas{'fwert'} ) { # wenn Feldname(n) und Feldwert(e)
      @l_fnames = split /,/, $iparas{'fname'}; # Feldnamen in Liste (mit Komma getrennt übergeben!)
      @l_fwerte = split /,/, $iparas{'fwert'}; # Feldwerte in Liste (dito.)
 if ($#l_fnames >=0){ # nur wenn tats. Feldnamen da
   for (0.. $#l_fnames){
     if ($l_fwerte[$_] eq "-"){ #wenn "-" für "kein Inhalt"
   $get_filter .= "$l_fnames[$_]<) ";
            } elsif ($l_fwerte[$_] ne "-"){ # Feldnamen-Wert-Paar als Filter
  $get_filter .= "$l_fnames[$_]==$l_fwerte[$_] ";
            } # e if/elsif
   } # e for
      } #e if l_fnames
      #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .#
      if (defined $iparas{'fsort'}) { #wenn Sortier-Para vorh.
       $get_sort = "sort=$fsort";
      }
      #. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .#
      if (defined $iparas{'limit'}) {
       $get_range = "range=$iparas{'limit'}";
      } else {
 $get_range = "range=$ra,$ra_l";
      }
      $a_debug.= "\$get_filter($get_filter)<br>
      $get_sort($get_sort)<br>
      \$get_range($get_range)<br>";
      get "$get_filter $get_sort $get_range", $iparas{'listdb'}, "list_db";
     # + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +  #
  } else {
    # + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +  #
  $a_debug.= "Alle Id's \$sort($sort)<br>\$limit($limit)<br>";
  get "Id=* $sort $limit", $iparas{'listdb'}, "list_db";
  }