get "d_okey==* range=0,6000","../bgd/bgdata";
        while (get_next("../bgd/bgdata"))
          {
           $Anzahl{$d_okey}++;
          }
        &do_content_o("400","396","","","");             # Ausgabe Content-Section
        &do_headline("Adress-Statistik","","","220");    # 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'>&nbsp;Ort</TH>
                <TH CLASS='th1'>&nbsp;Adr&nbsp;</TH></TR>
EOF
                 $work_count = 0; 
                 #    foreach $d_okey(sort  (keys %Anzahl))
                 foreach $d_okey(sort {$a<=>$b}keys %Anzahl)
                  {
                   get "o_okey==$d_okey & o_okey2==1", "../bgd/bgorte";

                   if (($o_okey eq $d_okey) && ($o_okey2 eq "1"))
                      {
                       $work_ort = $o_ortgesamt;                           # Ortsname
                      }
                   else
                      {
                       $work_ort = "kein Ort! ";                           # Ortsname not found
                      }
                   out "<TR BGCOLOR=" . ($work_count %2 ? "#A0A0A0" : "#E0E0E0") . ">\n";
                   out "<TD CLASS='b8' ALIGN='left' NOWRAP>&nbsp;$d_okey $work_ort&nbsp;</TD>";
                   out "<TD CLASS='b8' ALIGN='right' NOWRAP>&nbsp; $Anzahl{$d_okey} &nbsp; </TD>";
                   out "</TR>\n";
                   $work_count++;
                  }
             out "</TD></TR></TABLE>"; 

        out "Runtime : &nbsp;"; 
        out runtime(); 
        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>
</BODY></HTML>