<perl>
$merken="&Hersteller==$Hersteller" if ($Hersteller);
$merken=~s/ /\+/g;
</perl>

<perl>
  my $range=$_range_length;
  my $blaettern=$_range_length;
  my $blaetter_lang=$range*10;
  my $newrange=$_range+$_range_length;
  my $oldrange=$_range-$_range_length;
  my $color='#CCCCCC';
  my $color_vonbis='#FFFFFF';
  my $color_zahl='#CCCCCC';
  my $color_vorzu='#CCCCCC';
  my $color_balken='#CCCCCC';
  my $font='Arial';
  my $size='1';
  my $table='600';
  my $table_align='center';
  
 out "<div align=$table_align>";

  out "<font size=3 align='center' COLOR='#2B75B3'><b>AUTOTYP ".($_range+1)." bis ".(($_range+$blaettern)>$_amount_query?"$_amount_query":($_range+$blaettern))." von $_amount_query</br></br></font></b><font size=2 align='center' COLOR='#2B75B3'>WEITERE WÄHLEN SIE BITTE HIER UNTEN</br></br></font>";

  out "<table width=$table cellpadding=2 cellspacing=2>
  <td bgcolor=$color align='center'>";
  $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
  out $oldrange>=0?"<a href=\"$_link&range=0,$_range_length$merken\">|&lt;</a>":"|<";
  out "</td><td bgcolor=$color align='center'>";
  out $oldrange>=0?"<a href=\"$_link&range=$oldrange,$_range_length$merken\">&lt;</a>":"<<";
  out "</td><td bgcolor=$color align='center'>";
  $ende=substr($_amount_query,0,length($_amount_query)-1);
  out $newrange<$_amount_query?"<a href=\"$_link&range=$newrange,$_range_length$merken\">&gt;</a>":">>";
  out "</td><td bgcolor=$color align='center'>";
  out $newrange<$_amount_query?"<a href=\"$_link&range=".($ende."0").",$_range_length$merken\">&gt;| </a>":">|";
  out "</td><td bgcolor=$color_vonbis width='200' align='center'><font size=-2 COLOR='#FFFFFF'>.........</td>";
  if ($_amount)
  {
  $vr=int($_range/$blaetter_lang) unless $_range==0;
  $vr=$vr*$blaetter_lang;
           out "<td bgcolor=$color_vorzu align='center'><a href=$_link&range=".($vr-$blaetter_lang).",$_range_length$merken\\><<</a></td>" if ($vr-$blaetter_lang)>=0;
           for ($i=$vr;$i<($vr+$blaetter_lang<=$_amount_query?($vr+$blaetter_lang):$_amount_query); $i+=$blaettern)
           {
               out "<td bgcolor=$color_zahl align='center'>".($_range==$i?"<b>".($i+1)."</b>":"<a href=$_link&range=$i,$_range_length$merken\>".($i+1)."</a>")."</td>";
           }
           out "<td bgcolor=$color_vorzu align='center'><a href=$_link&range=$i,$_range_length$merken\>>></a></td>" if $i<$_amount_query;
       }
        out "</tr></table></div>";
</perl>