<perl>
$Firmenort = substr($Firmenort,0,15,0);
get "Firmenname~=$Sucha FirmenPLZ~=$Suchb Freigegeben==1 sort=FirmenPLZ range^=0,50", "adress_stamm";
while(get_next "adress_stamm")
{
out <<EOF;
<TR><TD VALIGN=BOTTOM WIDTH=17 HEIGHT=15><P ALIGN=RIGHT><IMG ID="Bild1" HEIGHT=10 WIDTH=11 SRC="../assets/images/pfeilu.gif" VSPACE=0 HSPACE=0 ALIGN="BOTTOM" BORDER=0> </TD><TD WIDTH=164
EOF
out " bgcolor=".($_loop % 2?"FFFFFF":"E6E6E6").">";
out "<P><B>$FirmenPLZ $Firmenort</B></P></TD><TD WIDTH=305 bgcolor=".($_loop % 2?"FFFFFF":"E6E6E6").">";
out <<EOF;
<P><B><FONT COLOR="#0033CC">$Firmenname</FONT></B></P></TD><TD WIDTH=59
EOF
out " bgcolor=".($_loop % 2?"FFFFFF":"E6E6E6")."><P></P></TD></TR>";
}
</perl>