<table border="0" width="100%" cellspacing="4" cellpadding="0">
                          <tr> 
                            <td width="98%"><font size="2" face="Verdana">
                              <br>
                          <perl>
                          if($cmd eq "all)
                              {
                              get "Id==$Id";
                              out <<EOF;
                              out "<br>$KAPITEL  /  $BEREICH<br>";
                              out "<br>$PIKTO<br><br>";
                              out "$NAME<br>";
                              out "$STRASSE<br>";
                              out "$PLZ  $ORT<br><br>";
                              if ($TELEFON ne "") {out "Telefon: $TELEFON<br> ";}
                              if ($TELEFAX ne "") {out "Fax: $TELEFAX<br> ";}
                              if ($EMAIL ne "") {out "E-Mail: $EMAIL<br> ";}
                              if ($INTERNET ne "") {out "Internet: $INTERNET<br>";}
                              if ($OEFFNUNGSZ1 ne "") {out "<br>Öffnungszeiten: $OEFFNUNGSZ1<br>";}
                              if ($OEFFNUNGSZ2 ne "") {out "$OEFFNUNGSZ2<br>";}     
                              if ($OEFFNUNGSZ3 ne "") {out "$OEFFNUNGSZ3<br>";}
                              out "<br>";
                              if ($P_P ne  "") {out "$P_P  ";}
                              if ($P_N ne  "") {out "$P_N  ";}
                              if ($P_E ne  "") {out "$P_E  ";}
                              if ($P_K ne  "") {out "$P_K  ";}
                              if ($P_T ne  "") {out "$P_T  ";}
                              if ($P_W ne  "") {out "$P_W  ";}
                              if ($P_ET ne  "") {out "$P_ET  ";}
                              if ($P_A ne  "") {out "$P_A  ";}
                              if ($P_WC ne  "") {out "$P_WC  ";}
                              if ($P_M ne  "") {out "$P_M  ";}
                              if ($P_H ne  "") {out "$P_H  ";}      
                              out "<br>"; 
                              if ($A3_25A ne "") {out "<br>Parkplatzangaben: $A3_25A<br>";}
                              if ($A3_25B ne "") {out "$A3_25B<br>";}
                              if ($A3_25C ne "") {out "$A3_25C<br>";}
                              if ($A4_302A ne "") {out "<br>Eingang: $A4_302A<br>";}
                              if ($A4_302B ne "") {out "$A4_302B<br>";}
                              if ($A4_302C ne "") {out "$A4_302C<br>";}
                              if ($A6_310A ne "") {out "<br>Eingang: $A6_310A<br>";}
                              if ($A6_310B ne "") {out "$A6_310B<br>";}
                              if ($A6_310C ne "") {out "$A6_310C<br>";}

                              out "<br>$DATUM   ($KLNR)<br>";   
                              out "<br>";                              
                              } else
                              {
                              do_all "<do action=all buttonbrowse=no selectbrowse=no db=main keyfield=NAME databack=EAF4d9 headback=d7ebb7 border=0 gridcolor=ffffff dataface=Verdana datasize=2><br></font> </td>"
                              }
                          </perl>

                          </tr>
                        </table>