<perl>
    #------------------------------------------------#
    #--SR         Ermitteln VK-Statistik             #
    #------------------------------------------------#
    sub do_vkstat
       {
        get "zahl_1==*","../acd/acvk";
        while (get_next("../acd/acvk"))
          {
           $Anzahl{$zahl_1}++;
           $Anzahl{$zahl_2}++;
           $Anzahl{$zahl_3}++;
           $Anzahl{$zahl_4}++;
          }
        &do_content_o("200","196","","","");         # Ausgabe Content-Section
        &do_headline("VK-Statistik","","","140");    # Ausgabe Content-Headline
out <<EOF;
        <TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0>
        <TR><TD ALIGN="center">
            <TABLE WIDTH='90%' BORDER=0>
            <TR><TH CLASS='th1'>Gebiet</TH>
                <TH CLASS='th1' COLSPAN=7>Verkäufe</TH></TR>
EOF
                foreach $zahl_1(sort (keys %Anzahl))
                  {
                   out "<TR BGCOLOR=" . ($_loop %2 ? "#A0A0A0" : "#E0E0E0") . ">\n";
                   out "<TD CLASS='b8' ALIGN='center'> $zahl_1 </TD>";
                   out "<TD CLASS='b8' ALIGN='center'> $Anzahl{$zahl_1} </TD>";
                   out "</TR>\n";
                  }
             out "</TD></TR></TABLE>"; 
 
        out "<BR><BR><A CLASS='link3' HREF='javascript:window.close();'>[Schliessen]</A>\n";
        out "</TD></TR></TABLE>\n";

        &do_content_u;       # Ausgabe Content-Section Unten
       }
    </perl>