</perl>
<loop db^=database range=0,1 sort=landkreis,konfes,ort art~=$fa landkreis~=$flk>
</loop>
<perl>
out<<EOF;
<table width=520 border=0 cellpadding=0 cellspacing=0>
      <tr>
        <td colspan=2 align=center valign=middle bgcolor=ccff99><p class=gruen><b><span class=gross>Listenansicht</span></b><br><span class=klein>($_amount_query Datensätze gefunden)</p></span>
    </td></tr>
    <tr>
    <td colspan=2 align=center valign=middle><p class=klein> </p>
    </td></tr>
    <tr>
    <td width=280 align=center valign=top>
    <table  border=0 width=250 align=center cellpadding=0 cellspacing=0>
EOF
     <loop db^=viskart sort=landkreis,konfes,ort art~=$fa landkreis~=$flk range^=$ra,$ra_l code=perl>

</loop>
<perl>

</perl>