<html>
<body>
<form action="namen">
<perl>
if($mod eq "Anzeigen")
{
if (!($_range_length))
{
$_range_length=1;
$_range=0;
}
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
get "Name==$name range=$_range,$_range_length","namen","ergebnisse";
$BrowseLine ="<table align=center><tr><td align=center>";
if ($oldrange>=0)
{
$BrowseLine .= "<a href=\"namen&mod=Anzeigen&range=$oldrange,$_range_length\"><<<</a> ";
}
else
{
$BrowseLine .= "<<< ";
}
if($_amount_query==1){ $eintr="Eintrag"; }
else{ $eintr="Einträge"; }
$BrowseLine .= "$_amount_query $eintr gefunden";
if ($newrange<$_amount_query)
{
$BrowseLine .= " <a href=\"namen&mod=Anzeigen&range=$newrange,$_range_length\">>>></a>";
}
else
{
$BrowseLine .= " >>>";
}
$BrowseLine .= "</b></td></tr></table>";
out $BrowseLine;
while(get_next("ergebnisse"))
{
out "<tr><td>Name: $Name<br>";
out "Vorname: $Vorname";
}
}
else
{
out "<input name=\"name\"><input type=submit name=\"mod\" value=\"Anzeigen\">";
}
</perl>
</form>
</body>
</html>
