<!----- einfache Volltext-Suche über "include scr=suchen"---------->
<form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">

<tr>
<td width="215" colspan="2"><div align="center"><center><p>$db-Suche nach Name :</td></tr>

<td width="113"><font size="2" face="arial,helvetica">
<input type="Name" name="Such=" size="15" value></font></td>
<td width="102">&nbsp;&nbsp;&nbsp;
<input type="submit" value="Suchen"></td>
</table>
</form>

my @Daten;

#---------------- und das Eingabefeld [Such] nicht leer ist
{
out "Suchbegriff =<b>[$Such]</b><br>";
my $i=0;

while(get_next)
#----------- gesucht wird in dem Feld [Name , Nachname] -------------------------------
{if (index($Name,$Such)>=0 or index($Nachname,$Such)>=0)
{$i++;
$Daten[$i]="$i.<a href='http://baseportal.de/cgi-bin/baseportal.pl?
htx=$htx&Id==$_id'>$Nachname</a><br>"; 
#----------- als Link wird das Feld [Nachname] ausgegeben ----------------------

}
out "Treffer: $i<br>";

while ($y < $i+1){out $Daten[$y]; 
$y++ ;}
}