<perl>

if($cmd eq "ja") {
     if($auswahl eq "alles") {
          get "Id=*", "termine";

          while(get_next("termine"))

             {

             out <<EOF;

    <tr>
    <td width="84"><font face="Verdana" size="1">$Datum</font></td>
    <td width="85"><font face="Verdana" size="1">$Uhrzeit</font></td>
    <td width="298"><font face="Verdana" size="1">$Titel</font></td>
    <td width="275"></td>
    </tr>

                  EOF
             }
     }

</perl>