<perl>
$summe_feldA=$Summe;#muss am Anfang stehen

   $_range = 0 if (!$_range_length);
    $_range = $work_range2 if (length($work_range2)>0);
    $_range_length = 10 if (!$_range_length);
    $rng = $_range . "," . $_range_length;

    $work_range = $_range;
    $append .= "&work_range=$work_range";
    get "bla bla...... range=$rng sort=$sortfelder", "$file";
    $bis = $_range + $_range_length;
    $von = $_range + 1;
    out "<br />Einträge $von bis \n";
    if ($bis < $_amount_query)
       {
        out "$bis von $_amount_query\n";
       }
     else
       {
        out "$_amount_query von $_amount_query";
       }
    out "<table>";
    out "<tr>\n";
    out "<th>S</th>\n";
    out "<th>Key</th>\n";
    out "<th>FeldA</th>\n";
    out "</tr>\n";

    while (get_next("$file"))
       {

if ($back ne "1")

     $summe_feldA +=$feldA;

        out "<tr class='$work_class'>;
        out "<td class='a10' nowrap> $kr_key </td>\n";
        out "<td class='a10' style='text-align:right;'>$feldA</td>\n";
        out "</td></tr>\n";
       }
    out "<tr>";
    out "<td class='a10' style='text-align:right;'>$summe_feldA</td>\n";
    out "<td colspan='2'></td></tr>\n";
    out "</table>";

    my $newrange = $_range + $_range_length;
    my $oldrange = $_range - $_range_length;
    $oldrange = 0 if (($oldrange < 0) && ($oldrange >= $_range_length));
    if ($oldrange >= 0)
       {
        out "<a href='$_link&namerein=$namerein&sid=$sid&$Summe=$Summe&$back=1&range=$oldrange,$_range_length$append'>\n";
        out "zurück <img src='$gv_gfxroot/pfeil_links.gif' alt='zurück'>\n";
        out "</a>\n";
       }
    if ($newrange < $_amount_query)
       {
        out "<a href='$_link&namerein=$namerein&sid=$sid&$Summe=$summe_feldA&range=$newrange,$_range_length$append'>\n";
        out "<img src='$gv_gfxroot/pfeil_rechts.gif' alt='weiter'> weiter\n";
        out "</a>\n";
       }
     out "</div>\n";
     &do_runtime; # Ausgabe bp-Runtime
     out "</div>\n";
</perl>