<perl>
$range=$_get{range}||"0,1";
$Rubrik||="$Rubrik";

my $range=$_range_length;
my $blaettern=$_range_length;
my $blaetter_lang=$range*10;
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
 
if ($_amount)
{
$vr=int($v/$blaetter_lang) unless $_range==0;
$vr=$vr*$blaetter_lang;
 

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

out "".($v==$i?"<li><i>".($i+1)."</i>":"<li><a href=$_link&Rubrik==$Rubrik&range=$Nr,1$i&@_sel&sort=$sort>".($i+1)."</a>")."";
}
}

</td>

EOF
#------------------------------------------------
while(get_next(fotos))
{
$counter++; 
<left>; 
if($counter%1==0){$trenner = ""; 
}
else{$trenner = ""; 
}
$rubrik_html = convert_html($Rubrik);
out "<img src='/files/$Foto' height='350'>$trenner";
} 

my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<table><tr><td align=center class=dunkel>";
out " <a href=\"/cgi-bin/baseportal.pl?htx=/chickenskin.de/metz/seite&Rubrik==$Rubrik&range=$oldrange,$_range_length\"><<<</a> " if $oldrange>=0;
out " <a href=\"/cgi-bin/baseportal.pl?htx=/chickenskin.de/metz/seite&Rubrik==$Rubrik&range=$newrange,$_range_length\">>>></a>" if $newrange<$_amount_query;