<perl>
get "Firmenname~=$Sucha FirmenPLZ~=$Suchb Freigegeben==1 sort=FirmenPLZ range=0,50", "meineDB";
while(get_next "meineDB")
{
$Firmenort = substr($Firmenort,0,15,0);
$Firmenname = substr($Firmenname,0,45,0);

<perl>

{
out "<H1>Keine Einträge mit den Suchkriterie  \" $Sucha,  $Suchb \"  in unserer Datenbank gefunden!!</H1><center><b><a href=\"http://meineDomain/search.html\">Zurück zur Suchseite</a></b></center>";
} else
{
out "<center><b><a href=\"http://meineDomain/search.html\">Zurück zur Suchseite</a></b></center>";
}

$append.="&Suchb=".convert_url($Suchb) if ($Suchb);

{
$bis = $_range + $_range_length;
    $von = $_range + 1;
out "<H5>Einträge $von bis \n";
        if ($bis < $_amount_query)
       {
out "$bis von $_amount_query\n";
       }
    else
       {
        out "$_amount_query von $_amount_query</5>";
       }
  }
 
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;

out "<p>[ <a href=\"$_link&range=$oldrange,$_range_length$append\">Vorherige Einträge</a> ] " if $oldrange>=0;
out "[ <a href=\"$_link&range=$newrange,$_range_length$append\">Weitere Einträge</a> ]" if $newrange<$_amount_query;