<P><center><B>

$monat = datum(jetzt, "Monatname Jahr");
out $monat;
</perl>

<include src=3DTetris_Header>
<loop code=perl db=3DTetris  Datum=~August >
out  "<tr>";
 out  "<td><div align=\"center\">", ++$cnt, "</div></td>";
 out  "<td><div align=\"center\">", $Name, "</div></td>";
 out  "<td><div align=\"center\">", $Level, "</div></td>";
 out  "<td><div align=\"center\">", $Punkte, "</div></td>";
 out  "<td><div align=\"center\">", $Anzahl, "</div></td>";
 out  "<td><div align=\"center\">", $Ebenen, "</div></td>";
 out  "<td><div align=\"center\">", $Datum, "</div></td>";
out  "</tr>";
</loop>
</table>