<table>
<tr> 
<td WIDTH="200" ALIGN="CENTER"><form action="http://unifit-daten.de/baseportal?htx=/unifit-daten.de/2003/master_unifit/master_unifit_020" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/unifit-daten.de/2003/master_unifit/master_unifit_020">
<!-- erstes Eingabefeld f. Suchwert fs1 -->
<input type="text" name="fs1=" value="" size="20"></td> 
<td WIDTH="200" ALIGN="CENTER"><input type="submit" value="Suchen"></td> 
<td WIDTH="200" ALIGN="CENTER">
<!-- zweites Eingabefeld f. Suchwert fs2 -->
<input type="text" name="fs2=" value="" size="20"></td>
<!-- Formfeld f. Aktion im aufgerufenen Template -->
<input type=hidden name="aktion=" value="suchen"> 
</tr> 
</form>
</table>

<perl>
# einfach mal die Vars deklarieren und leer definiert vorbelegen,
# falls sie nicht übergeben wurden
$fs1||=""; 
$fs2||="";
$aktion||=""
if ($aktion eq "suchen"){ #wenn für aktion der entspr. Wert übergeben wurde
  if ($fs1 ne "" && $fs2 eq ""){
  get "_fullsearch==$fs1 range=0,*", "deindbname1", "suchergebnis";
  } elsif ( ($fs1 eq "" && $fs2 ne ""){
  get "_fullsearch==$fs1 range=0,*", "deindbname", "suchergebnis";
  } elsif ($fs1 ne "" && $fs2 eq ""){
  out "Bitte nur in ein Feld einen Suchbegriff eingeben";
  } # E ifs f. $fsn
  #--- Anzahl der Suchtreffer ausgeben
   if ( $_fullsearch_amount < 1){
   out "Es wurden keine Treffer gefunden";
   } else {
   out "$_fullsearch_amount Treffer gefunden";
   }
  #---- Gefundenen Datensätze ausgeben
  while(get_next("suchergebnis")){
  ..hier jetzt deine Ausgaben rein
  } # E while_get_next
} # E if aktion