<loop sort^= range^=0,1 code=perl>
out<<EOF;
<Table style="margin-left:10">
<TR><TD width="800" style="text-indent:0"><A HREF="http://$URL"><b>$Name</A> </b></TD></TR>
<TR><TD width="800" style="text-indent:0">$Beschreibung Bildnummer: $_id 
</TD></TR>
<TR><TD width="800" style="text-indent:0"><font color="gray">$URL</font></TD></TR><br>
<tr><td align="left" valign="top" class="resultrank"><img src="http://ranking-anzeige.de/pr_check_myengines.php?ref=http://$URL" alt="extern" width="64" height="5"></td></tr></table>
EOF
</loop>
<perl>
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<< <a
href=\"$_link&range=$oldrange,$_range_length\">Zurück</a>
" if $oldrange>=0;
out "<a href=\"$_link&range=$newrange,$_range_length\">Weiter</a>
>>" if $newrange<$_amount_query;
</perl>