<form action='baseportal.pl?htx=$htx' method='post' enctype='multipart/form-data'><input type='hidden' name='htx=' value='$htx'>Volltextsuche: <input type='text' name='_fullsearch~~' value='$_fullsearch'><input type='submit' value='Suchen'></form>

return if $_fullsearch eq "";
get "fullsearch_match=10 fullsearch_sort=- fullsearch_sort=Id", "adressen";
while(get_next("adressen"))
{
$out= <<EOF;
<b>$Vorname</b> &nbsp;<a href=http://sillyc.de/baseportal?namerein=$namerein&sid=$sid&htx=/sillyc.de/alumni/adressen&cmd=list&range=0,1000&cmd=all&Id=$id>$Name</a> 
<br> $Strasse&nbsp; $PLZ&nbsp;$Ort<br>$EMail<p>
$namerein

$out=~ s#$_fullsearch_regex#<b><font color=red>$1</font></b>#g;
out $out;
}
 
my $newrange=$_fullsearch_range+$_fullsearch_range_length;
my $txt;
if($_fullsearch_match_pos<$newrange)
{
$txt="Suche nach weiteren Treffern";
$newrange=$_fullsearch_match_pos;
} 
else
{
$txt="Suche in weiteren Datensätzen";
}

{
out "Es wurde noch nicht in allen Datensätzen gesucht: ";
 
out "<a href=\"baseportal.pl?htx=$htx&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length&go=weiterer\">$txt</a>";
} 
else
{
out "Die Datenbank wurde komplett durchsucht.";
out "<b> Kein $go Treffer!</b><p>" if $_fullsearch_amount<1;
}
</perl>