<perl>
# Werte für Range vorbelegen
my $ra ||= 0;
my $ra_l ||= 5;

while(get_next("erghash2")){
 out<<EOF;
   <table width=100%>
   <tr><td>
   <b>$kundennr</b><br>
   <b>$name</b><br>
   $strasse<br>
   $plz $ort<br>
   <hr>
   </td>
   </table>
EOF
} # E while_get_next
out "<table width=100%>";
get "kundennr==$kundennr sort=datum range=$ra,$ra_l", "artikel", "erghash";

 $dat=datum("$datum", "Tag0.Monat0.Jahr2");
 out<<EOF;
 <tr>
 <td><b>$artikelname</b> (Kundennr.: $kundennr)<br>
 Datum: $dat<br>
 Beschreibung:<br>
 $beschreibung</td>
 </td></tr>
 <tr><td>
EOF
} # E While_get_next
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<center>";
out "<a href=\"$_link&kundennr=$kundennr&ra=$oldrange&$ra_l=$ra_l\">Zurück</a> " if $oldrange>=0;
out "<a href=\"$_link&kundennr=$kundennr&ra=$newrange&$ra_l=$ra_l\">Weiter</a>" if $newrange<$_amount_query;
out "</td></tr></table>";
</perl>