<perl>
$append="&@_sel";
out"$append";

out"<font=Arial><h4>Suchausgabe</h4>";
out"<h5>Gebrauchtwagen aus Bremen, Hamburg, Mecklenburg/Vorpommern, Niedersachsen und Schleswig-Holstein</h5></font>";

   <tr>
    <td width=38><a href =http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhaus1><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>Alles</font></a></td>
    <td width=48><a href =http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhsuche><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>Suchen</font></a></td>
    <td width=116><a href =http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhsuchausgabe1$append&sort=Preis><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>Sortiert nach Preis</font></a></td>
                            <td width=130><a href =http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhsuchausgabe1$append&sort=-Erfasst><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>Sortiert nach Datum</font></a></td>	
                            <td width=145><a href =http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhsuchausgabe1$append&sort=Hersteller><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>Sortiert nach Hersteller</font></a></td>	
                            <td><a href =http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhsuchausgabe1$append&sort=PS><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>Sortiert nach PS</font></a></td>	

   </tr>
   
   
   </tr>
   <tr height=10>
    <td width=40 height=10></td>
    <td width=50 height=10></td>
    <td width=116 height=10></td>
    <td width=130 height=10></td>
    <td width=145 height=10></td>
    <td height=10></td>
   </tr>
  </table>";
get "sort=$sort Preis>0 @_sel range=$v,10 ","kfzhh"; 
my $range=$_range_length;

my $blaetter_lang=$range*10;

my $oldrange=$_range-$_range_length;

my $color_vonbis='#FFFFFF';

my $color_vorzu='#EEEEEE';

my $font='Thomas, Arial';

my $table='';

out "<div align=$table_align>";

<td bgcolor=$color align='center'><font face=$font font size=$size>";

$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out $oldrange>=0?"<a href=\"$_link&v=0&suche=$suche&@_sel&sort=$sort\">|<</a>":"|<";

out $oldrange>=0?"<a href=\"$_link&v=$oldrange&suche=$suche&@_sel&sort=$sort\"><</a>":"<<";

$ende=substr($_amount_query,0,length($_amount_query)-1);

out "</font></td><td font face=$font font size=$size bgcolor=$color align='center'><font face=$font font size=1>";

</a>":">|";

$_amount_query</td>";

if ($_amount)

$vr=int($v/$blaetter_lang) unless $_range==0;

out "<td bgcolor=$color_vorzu align='center'><font face=$font font size=$size><a href=$_link&suche=$suche&v=".($vr-$blaetter_lang)."&@_sel&sort=$sort><<</a></font></td>" if

for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
{

}

}
out "</font></tr></table></div><br>"; 
out"<table border=0 cellpadding=2 cellspacing=2 width=100% bgcolor=black>
  
    <td><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=3 color=white>Details</font><font size=3 face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular></font><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=3></font></td>
    <td><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=3 color=white>Kurzbeschreibung</font><font size=3 face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular></font></td>
    <td width=105 align=right><font size=3 color=white face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular>Preis</font></td>
   </tr>
  </table>";
while(get_next("kfzhh")) 
{ 

   <tr bgcolor=#ffffcc>
    <td colspan=3><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>$Hersteller $Model $KfzArt</font><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular><font size=3></font></font></td>
   </tr>
   <tr bgcolor=white>
    <td width=65><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2><a href=http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhdetailaus&Id==$_id><img src='/bp-files/$Details'></a></font><font size=2 face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular></font><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2></font></td>
    <td><font face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular size=2>$Kurzbeschreibung</font><font size=2 face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular></font></td>
    <td width=105 align=right><font size=2 face=Arial,Helvetica,Geneva,Swiss,SunSans-Regular>$Preis Euro</font></td>
   </tr>
  </table>";
 
}
my $range=$_range_length;

my $blaetter_lang=$range*10;

my $oldrange=$_range-$_range_length;

my $color_vonbis='#FFFFFF';

my $color_vorzu='#CCCCCC';

my $font='Thomas, Arial';

my $table='';

out "<br><div align=$table_align>";

<td bgcolor=$color align='center'><font face=$font font size=$size>";

$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out $oldrange>=0?"<a href=\"$_link&v=0&suche=$suche&@_sel&sort=$sort\">|<</a>":"|<";

out $oldrange>=0?"<a href=\"$_link&v=$oldrange&suche=$suche&@_sel&sort=$sort\"><</a>":"<<";

$ende=substr($_amount_query,0,length($_amount_query)-1);

out "</font></td><td font face=$font font size=$size bgcolor=$color align='center'><font face=$font font size=1>";

</a>":">|";

$_amount_query</td>";

if ($_amount)

$vr=int($v/$blaetter_lang) unless $_range==0;

out "<td bgcolor=$color_vorzu align='center'><font face=$font font size=$size><a href=$_link&suche=$suche&v=".($vr-$blaetter_lang)."&@_sel&sort=$sort><<</a></font></td>" if

for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
{

}

}

</perl>

 http://www.jobmarder.de/cgi-bin/baseportal.pl?htx=/autohai/hamburg/kfzhhsuche