<tr>
<td colspan="4"><hr size=1 color="#FFC000"></td>
</tr>
<tr>
<td>Strasse<br>Ort</td>
<td>Grundstücksfläche<br>Wohnfläche</td>
<td>Preis<br>Miete/Kauf</td>
<td>Foto</td>
</tr>
<tr>
<td colspan="4"><hr size=1 color="#FFC000"></td>
</tr>
<perl>
$merken="&ObjOrt~=$ObjOrt" if $ObjOrt ne "";
$merken.="&PLZ~=$PLZ" if $PLZ ne "";
$merken.="&Preis<=$Preis" if $Preis ne "";
</perl>
<loop db=haus sort=-$Datum range^=0,2 code=perl>
out"<tr>";
out"<td colspan=\"3\">";
out"<b>";
out"<a class=\"stil2\" href=\"http://gruppenonline.de/cgi-bin/baseportal.pl?htx=/gruppenonline.de/immobilien/haeuser/hausansicht&cmd=all&Id==$_id\">$ObjName<\/a><\/b><\/td>";
out"<td width=\"50\" rowspan=\"3\" align=\"center\">";
if($bildformat eq "quer"){out"<a href=\"http://gruppenonline.de/cgi-bin/baseportal.pl?htx=/gruppenonline.de/immobilien/haeuser/hausansicht&cmd=all&Id==$_id\"><img src=\"/files/$_raw{Foto1}\" width=50 height=35 border=0><\/a>";}
if($bildformat eq "hoch"){out"<a href=\"http://gruppenonline.de/cgi-bin/baseportal.pl?htx=/gruppenonline.de/immobilien/haeuser/hausansicht&cmd=all&Id==$_id\"><img src=\"/files/$_raw{Foto1}\" width=35 height=50 border=0><\/a>";}
out"<\/td>";
out"<\/tr>";
out"<tr>";
out"<td width=\"200\">$ObjStr<\/td>";
out"<td width=\"200\">";
out"$Grundfl m²" if $Grundfl ne "";
out"<\/td>";
out"<td width=\"200\">";
out"$Preis €" if $Preis ne "";
out"<\/td>";
out"<\/tr>";
out"<tr>";
out"<td>$ObjOrt<\/td>";
out"<td width=\"200\">";
out"$Wfl m²" if $Wfl ne "";
out"<\/td>";
out"<td>$ObjArt<\/td>";
out"<\/tr>";
out"<tr>";
out"<td colspan=\"4\"><hr size=1><\/td>";
out"<\/tr>";
</loop>
</table>
<br><br>
<tr>
<td>
<perl>
out "<span style=\"color:#FFC000\";><b>$_amount_query<\/b><\/span>";
out " <span style=\"color:#FFC000\";><b>Objekte<\/b> von insgesamt<\/span> ";
out "<span style=\"color:#FFC000\";>$_amount_all<\/span>";
out " <span style=\"color:#FFC000\";>Objekten entsprechen Ihren Suchkriterien<\/span>";
</perl>
</td>
</tr>
<tr>
<td width="600" align="right">
<perl>
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<< <a class=\"stil3\" href=\"$_link&range=$oldrange,$_range_length$merken\">Zurück</a> " if $oldrange>=0;
out "<a class=\"stil3\" href=\"$_link&range=$newrange,$_range_length$merken\">Weiter</a> >>" if $newrange<$_amount_query;
</perl>
</td>
</tr>
</table>
</body></html>
<perl>
out "<span style=\"color:#FFC000\";><b>$_amount_query<\/b><\/span>";
out " <span style=\"color:#FFC000\";><b>Objekte<\/b> von insgesamt<\/span> ";
out "<span style=\"color:#FFC000\";>$_amount_all<\/span>";
out " <span style=\"color:#FFC000\";>Objekten entsprechen Ihren Suchkriterien<\/span>";
</perl>
