<perl>
    if (%_put && $cmd eq "add") {

    $err.=" -> Name" if $_put{Name} eq "";
    $err.=" -> Email" if(index($Email, "@")<0 || index($Email, ".")<0);
    if ($err ne ""){ 

        out "Ihre Mail wurde nicht gesendet.";
        undef %_put, "db";
   } else { 
##########hier kommt der put rein
put ["Name", "$_put{Name}", "Email", "$Email"], "db";
       $senddat=datum('jetzt', 'intern'); 
################hier kommt der get rein, um genau diesen letzten DS zu holen:

##############jetzt mal testen, ob $Id oder $_id befüllt sind:
out"ID: $Id, $_id<br>";
 
       mail "$Email", "Kontakt", "

##############wenn Du mit <do action=all arbeitest, dann hier folgendes schreiben, da sonst der DS 2x in der DB steht!!!!!:

       out<<EOF;
       
EOF
   } 
   
} else { 
out<<EOF;

<input type="hidden" name="cmd=" value="add">
  ...
                        </form>
EOF
}
</perl>