<perl>
out "<table>";
get "Id==* ","toy"; 
while (get_next("toy")) {
$am=datum($am,"Tag.Monat.Jahr,Stunde:Minute:Sekunde");
 out <<EOF;
<table border="1" width="100%">
<tr bgcolor="gray"><td><font size="-2" face="arial"><a href="mailto:$Email">$Absender</a>
hat am $am folgendes toy vorgestellt:</td></tr></font><br>
<tr>
<td><br><font color="red" size="+1"><b>$Vorschlag</b></font>
<br>
<br><font size="-2">

<br></font>
</tr></td> 
</table>
EOF
}
out "</table>";
</perl>