<do action=input db=daten>
<perl>
if ($cmd eq "add") {
$err.="<font face=verdana size=2 color=#FF0000>
 -Vorname<br>" if $_put{Vorname} eq "";

if ($err ne ""){
undef %_put;
}
if ($err ne "") {
    out "<b>Ihre Anfrage konnte nicht übermittelt werden.<br>
Es wurden nicht alle Felder ausgefüllt.</b> <br>$err";
    undef %_put;
  }else{
$senddat=datum('jetzt', 'intern');
if($cmd eq "add")
{
mail "$Mail", "Anfrage", "

}
}
</perl>