$lz_option = runtime();
get "sort=ort,konfes konfes~=$fkon&landkreis~=$flk", "viskart";
while(get_next(viskart))
    {
    $anz_optOrt="<option value=$ort>$ort</option>";
    push @optOrt, $anz_optOrt if index("@optOrt", "$anz_optOrt")<0; # jeden mehrf. vorh. Ort nur einmal
     }
$lz_option = runtime() - $lz_option;

$lz_sort=runtime();
while(get_next("viskart"))
 {
  $h_bezeich{$ort}.="$bezeichnun|";
  $h_name{$ort}.="$name|";
 }
foreach $k (sort (keys %h_bezeich))
 {
###### Ausgabe des HTML-Inhalts für jeden Ort in Variable ######
###### (Verkettung - bei jedem Schleifen-Durchlauf Inhalt erweitern) #####
        @ar_bezeich=split /\|/,$h_bezeich{$k};
        @ar_name=split /\|/,$h_name{$k};
          $l_ort=$k;
          foreach $n (@ar_bezeich)
          {
            $cnt_ort++;
            $l=shift @ar_name;
               $inf = $lcnt % 2;
               if ($inf eq 0)
               {
               $anz_linhalt.=<<EOF;
               <tr><td valign=top class=norm>
               Bezeichnung: $n
               <br>Name: $l
               </td></tr>
               ${ \&tz(1,1,"$fd") }
EOF
               }
            $lcnt++;
            $inf2 = $rcnt % 2;
               if ($inf2 eq 1)
               {
               $anz_rinhalt.=<<EOF;
               <tr><td valign=top class=norm>
               Bezeichnung: $n
               <br>Name: $l
               </td></tr>
               ${ \&tz(1,1,"$fd") }
EOF
               }
            $rcnt++;
          }
$cnt_ges=$cnt_ges+$cnt_ort;

      <table border=0 width=90% cellspacing=0 cellpadding=0>
       ${ \&tz(2,2,$fd) }
       <tr><td colspan=2 align=center class=gross>
       <span class=dunkel><b>$l_ort</b></span>
       </td></tr>
       ${ \&tz(2,5) }
       <tr><td colspan=2 align=center class=klein id=dunkel>
       Insgesamt $cnt_ort Andressen in $k gefunden
       </td></tr>
       ${ \&tz(2,5) }
       ${ \&tz(2,1,$fd) }
       ${ \&tz(2,5) }
       <tr>
          <td align=center  valign=top width=50% class=norm>
          <table border=0 width=90% cellspacing=0 cellpadding=0>
          $anz_linhalt
          </table>
         </td>
         <td align=center valign=top width=50%>
          <table border=0 width=90% cellspacing=0 cellpadding=0>
          $anz_rinhalt
          </table>
         </td>
       </tr>
       ${ \&tz(2,5) }
     </table>
EOF
##### Variablen nach Schleifendurchlauf leeren für nächsten Durchlauf #####
#
$anz_linhalt="";
$anz_rinhalt="";
$cnt_ort=0;
$lcnt=0;
$rcnt=0;
}
$lz_sort = runtime()-$lz_sort;