<perl>

$Datum_in = $_put{Datum} if $_put{Datum}; # bedingt, wenn Formular abgeschickt wurde
 
#. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .#
# jetzt die Datensätze mit genau diesem Datum holen
get "Datum==$Datum_in", "revueres", "hol_ds";
while(get_next("hol_ds")){ # und zusammenzählen wieviele schon am Datum bestellt sind
$gesamt += $Anzahl;
}
$frei = 300 - $gesamt; # freie Bestellungen berechnen
if ($frei <= 0){ # keine mehr da

<table width=500>
<tr><td>
<font face=verdana size=-1 color=>

<br>
</td></tr></table>

}
else { # ok
 
# wenn Formularwerte übergeben wurden und Parameter cmd Wert "add" hat
if (%_put && $cmd eq "add") {
     put undef, "revueres";
out<<EOF;
 

<tr><td colspan=2>
<font face=verdana size=-1>
<center>
<b>Vielen Dank für Ihre Reservierung!</b><br><br>
</td></tr>
<tr>
<td colspan=2>
<font face=verdana size=-1><br>
<b>Reservierungscode:</b> [ 123.$_put{Datum}-$_put{Name}-456.$_put{Anzahl} ]
</td>
</tr>
EOF
out "<tr><td colspan=2><font face=verdana size=-1><b>Reservierungsdatum:</b> ";

out "<br><br></td></tr>";
out<<EOF;
<tr>
<td width=150><font face=verdana size=-1>
Veranstaltungsdatum:</td>
<td width=350><font face=verdana size=-1>
$_put{Datum}</td>
</tr>

<td width=150><font face=verdana size=-1>
Anzahl:</td>
<td width=350><font face=verdana size=-1>
$_put{Anzahl}</td>
</tr>
<tr><td colspan=2 bgcolor=e5e5e5>
<font face=verdana size=-1>
<u><b>Bestellerdaten</u></b>
</td></tr>

<td width=150><font face=verdana size=-1>
Vorname:</td>
<td width=350><font face=verdana size=-1>
$_put{Vorname}</td>
</tr>

<td width=150><font face=verdana size=-1>
Name:</td>
<td width=350><font face=verdana size=-1>
$_put{Name}</td>
</tr>

EOF
out "</td></tr></table>";
}
}
}

$senddat=datum('jetzt', 'intern');
$resdat=datum("jetzt", "lang");
if($cmd eq "add")
{

</perl>