<form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data" Name="Form1">
<input type="hidden" name="htx=" value="$htx">
<br>Suchbegriff: <input type="text" name="_fullsearch~~" value="$_fullsearch">
<input type="submit" value="Suchen">
</form>
<perl>
return if $_fullsearch eq "";
get "fullsearch_match=10";
while(get_next)
{
$out= <<EOF;
<center>
<a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/xyz/datenbankname&cmd=all&Id==$_id">$Name</a> - $PLZ $Ort
<p>
EOF
$out=~ s#$_fullsearch_regex#<b><font color=black>$1</font></b>#g;
out $out;
}
out "<b>Leider wurde kein Treffer in der Datenbank gefunden.</b><p>" if $_fullsearch_amount<1;
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";
}
if($newrange<$_amount_all)
{
    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\">$txt</a>";
} else
{
    out "Zur Ansicht der Details klicken Sie bitte auf die gefundenen Einträge.";
}
</perl>