<perl>
 
return if $_fullsearch eq "";

 while(get_next "/testdb/branchen")

$Rubrik=~ s#$_fullsearch_regex#<b><font color=C62121>$1</font></b>#g;
$Firma=~ s#$_fullsearch_regex#<b><font color=C62121>$1</font></b>#g;
$Firma2=~ s#$_fullsearch_regex#<b><font color=C62121>$1</font></b>#g;
$Strasse=~ s#$_fullsearch_regex#<b><font color=C62121>$1</font></b>#g;
$PLZ=~ s#$_fullsearch_regex#<b><font color=C62121>$1</font></b>#g;
$Ort=~ s#$_fullsearch_regex#<b><font color=C62121>$1</font></b>#g;
$Text=~ s#$_fullsearch_regex#<b><font color=C62121>$1</font></b>#g;
$Internet=" Internet: <a href='$Internet' target='_blank'>$Internet</a>" if $Internet;
$eMail="eMail: <a href='mailto:$eMail'>$eMail</a>" if $eMail;
$Telefon="Telefon: $Telefon" if $Telefon;
$Fax="Fax: $Fax" if $Fax;
$Logo="<img src=/bp-files/$Logo>"if $Logo;

<table width=535><tr>
<td colspan=2><li> Branche: <b>$Rubrik</b> </td>
</tr><tr>
<td colspan=2>$Logo</td>
</tr><tr>
<td width=50%><p><b>$Firma $Firma2 </b></p></td>
<td width=50%><u>$Internet</u></a></td>
</tr><tr>
<td><p>$Strasse</p></td>
<td>$eMail</td>
</tr><tr>
<td><p>$PLZ $Ort</p></td>
<td>$Telefon $Fax</td>
</tr><tr>
<td colspan=2><p>$Text</p></td>
</tr></table>
<img src="../pictures_ka/rule.gif"><br>
EOF
}
if ($_fullsearch_amount<1)
{
out "Ihre Suchabfrage ergab leider keinen Treffer.<br>";
} else
{
out "Ihre Suchanfrage ergab $_fullsearch_amount Treffer:<br><br> ";
}

my $newrange=$_fullsearch_range+$_fullsearch_range_length;
my $txt;

{

$newrange=$_fullsearch_match_pos;

{

}

{
 
out "Es wurde noch nicht in allen Datensätzen gesucht:";
 
    out "<a href=\"baseportal.pl?htx=/ka_branchen/branchen&_fullsearch~~".convert_url($_fullsearch). "&fullsearch_range=$newrange,$_fullsearch_range_length\">$txt</a>";

{
out "Die Datenbank wurde komplett durchsucht.";
}
$_fullsearch_amount;
</perl>