<perl>
$aussuch=$sudbranche if ($sudbranche);
$aussuch=$aussuch.", Firma: ".$sudfirmnam if ($sudfirmnam);
$aussuch=$aussuch.", Strasse: ".$sudstrasse if ($sudstrasse);
out "<tr><td colspan=3 align=center> Suche nach: $aussuch</td></tr>";
</perl>
<perl>
$append = "&sudbranche=".convert_url($sudbranche) if $sudbranche ne "";
$append = $append."&sudfirmnam=".convert_url($sudfirmnam) if $sudfirmnam ne "";
$append = $append."&sudstrasse=".convert_url($sudstrasse) if $sudstrasse ne "";
$append = $append."&sudtelefon=".convert_url($sudtelefon) if $sudtelefon ne "";
$append = $append."&sudtelefax=".convert_url($sudtelefax) if $sudtelefax ne "";
$append = $append."&sudemail=".convert_url($sudemail) if $sudemail ne "";
$append = $append."&sudurl=".convert_url($sudurl) if $sudurl ne "";
$append = $append."&sudtyp=".convert_url($sudtyp) if $sudtyp ne "";
</perl>
<loop range^=0,20 db=bgdat dbranche==$sudbranche | dbranche2==$sudbranche | dbranche3==$sudbranche & dfirmnam~=$sudfirmnam & dstrasse~=$sudstrasse & dtelefon~=$sudtelefon & dtelefax~=$sudtelefax & demail~=$sudemail & durl~=$sudurl & dtyp~=$sudtyp sort^=dbranche,dfirmnam,dstrasse code=perl>
</loop>
<perl>
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<tr><td colspan=3>";
out "<a href=\"$_link&range=$oldrange,$_range_length$append\"><img
src=\" if $oldrange>=0;
out "<a href=\"$_link&range=$newrange,$_range_length$append\"><img
src=\"http://www.bestguide.de/grafik/pfrechts.gif\" border=0 alt=\"weiter\"></a>"
if $newrange<$_amount_query;
if ($_amount != 0)
{
$bis = $_range+$_range_length;
$von = $_range+1;
out " Einträge $von bis ";
if ($bis < $_amount_query)
{
out "$bis von $_amount_query";
}else{
out "$_amount_query von $_amount_query";
}
}
out "</td></tr><tr><td> </td></tr>";
</perl>
<tr bgcolor=#000000>
<td> Branche</td>
<td> Firma</td>
<td> Strasse</td>
<td> Fon</td>
<td> X</td></tr>
<loop range^=0,20 db=bgdat dbranche==$sudbranche | dbranche2==$sudbranche | dbranche3==$sudbranche & dfirmnam~=$sudfirmnam & dstrasse~=$sudstrasse & dtelefon~=$sudtelefon & dtelefax~=$sudtelefax & demail~=$sudemail & durl~=$sudurl & dtyp~=$sudtyp sort^=dbranche,dfirmnam,dstrasse code=perl>
out "<tr bgcolor=".($_loop %2?"a0a0a0":"e8ecc8") .">
<td class=suer> $dbranche</td>
<td class=suer> $dfirmnam</td>
<td class=suer> $dstrasse</td>
<td class=suer> $dtelefon</td>
<td><a class=link2 href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/gpark/bg/bgdatdt&cmd=all&Id==$_id> ?</a></td></tr>";
</loop>