<perl>
  #Erstellen des Dropdown1 Feldes
  $DropDown1 = '<select name="LFELD1~=">';
  get "","KATEGORIEN";
  while (get_next("KATEGORIEN"))
  {
    $DropDown1 .= "<option value=\"$KFELD2\">$KFELD</option>";
  }
  $DropDown1 .= "</select>"; 

  #Ausgabe des Suchformulars

   <form action="baseportal.pl?htx=/USER/TEMPLATE-ERGEBNIS&cmd=search" method="post" enctype="multipart/form-data">
   <input type=hidden name="htx=" value="/USER/TEMPLATE-ERGEBNIS">
   <input type=hidden name="cmd=" value="search">
   $DropDown1
   <input type="text" name="LFELD2~=" size=40 value="">
   <input type="text" name="LFELD3~=" size=40 value="">
   <input type="text" name="LFELD4~=" size=40 value="">
   <input type=submit value="Eingabe senden">&nbsp;<input type=reset value="Eingabe löschen">
   </form></table>

</perl>

<do db=LINKS action=input>
     <loop db=LINKS sort^=LFELD1,LFELD2 code=perl>

     out <<EOF;

     $LFELD1
     $LFELD2
     ><a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/USER/TEMPLATEDETAIL&cmd=all&Id==$_id">$LFELD4</a>

     </loop>

     <perl>
     init "LINK";
     out "$_amount_query";
     out " Einträge von ";
     out "$_amount_all";
     out " gefunden";
     out "</font>";
     </perl>