<perl>

my $blaettern=$_range_length;
my $blaetter_lang=$range*10;
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
my $table_align='left';
out "<div align=$table_align>";

$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;

out "<td width='50' align='right'>Datensatz</td>";

{
         $vr=int($_range/$blaetter_lang) unless $_range==0;
         $vr=$vr*$blaetter_lang;
         out "<td width='15' align='center'><a class='stil3' 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 width='15' align='center'>".($_range==$i?"<b>".($i+1)."</b>":"<a class='stil3' href=$_link&range=$i,$_range_length$merken>".($i+1)."</a>")."</td>";
         }
         out "<td width='15' align='center'><a href=$_link&range=$i,$_range_length$merken>>></a></td>" if $i<$_amount_query;
     }
      out "</tr></table></div>";