<do action=input>
<perl>
$merken="&PlzGebiet=$PlzGebiet" if $PlzGebiet;
$merken="$merken&Rubrik=".convert_url($Rubrik) if ($Rubrik); 
</perl>
<loop db=Contact sort^=-Rubrik range^=0,10 PLZGebiet==$PLZGebiet Rubrik==$Rubrik>
<font face="arial" size="1">
$Datum $EMail $WWW
</font><font face="arial" size="2"><br>
<b>$Raum</b><br>
<br>
$Text
<br><hr size=1>
</loop><b>Datenbankeinträge insgesamt: $_amount_all </b></font>
<perl>
if ($_amount != 0) # wenn überhaupt was gefunden wurde
{
$bis = $_range+$_range_length; #bis welcher Ds wird angezeigt
$von = $_range+1; # um eintrag nicht 0-10 sondern 1-10 zu schreiben 
out "<br><b>Suchergebnis: Einträge $von bis</b> ";
if ($bis < $_amount_query)
{
out "<b>$bis von $_amount_query</b>"; #ausgabe wenn nicht das ende erreicht ist
}else{
out "<b>$_amount_query von $_amount_query</b>";  #letzte ausgabeseite der Abfrage
}
}
</perl>

my $newrange=$_range+$_range_length;
   my $oldrange=$_range-$_range_length;
   $oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
   out "<p align=center>";
   out " <font size=-1>";
   if ($oldrange>=0) {
    out " [ <a href=\"$_link$merken&range=$oldrange,$_range_length\">Vorherige Seite</a> ] "; #hier ist das gesicherte mit eingefügt worden
   } else {
    out " [ Vorherige Seite ] ";
   }
   out " [ <a href=\"http://baseportal.de/cgi-bin/baseportal.pl?htx=/MSK/Guestbook/add\">Eintrag hinzufügen</a> ]";
   if ($newrange<$_amount_query) {
    out " [ <a href=\"$_link$merken&range=$newrange,$_range_length\">Nächste Seite</a> ]";
   } else {
    out " [ Nächste Seite ]";
   }
   out " </font>";
   out "</p>";