<perl>
if ($cmd eq "add") { 
    $err.=" -> Name<br>" if $_put{Name} eq "";
    $err.=" -> Vorname<br>" if $_put{Vorname} eq "";
    $err.=" -> Zahlungsart<br>" if $_put{Zahlungsart} eq "";

    if ($err ne ""){ 
    out "Bitte folgende Felder ausfüllen:<br>$err<br><ahref='javascript:history.back();'>zurück</a>";

   } else { 
       $senddat=datum('jetzt', 'intern');

       out<<EOF;

   }
} else {
out<<EOF;
<form action="#">

<br>
Name:<input type="text" NAME="Name:=">
<br>

<OPTION VALUE="Ueberweisung">Überweisung</OPTION>
<OPTION VALUE="Kreditkarte">Kreditkarte</OPTION>
              </select>

<br>
Kreditkarteninstitut:<input type="text" NAME="Kreditkarteninstitut:=">
Gültigkeit:<select NAME="Monat:="><OPTION VALUE="01">01</OPTION>
<OPTION VALUE="02">02</OPTION><OPTION VALUE="03">03</OPTION><OPTION VALUE="04">04</OPTION><OPTION VALUE="05">05</OPTION><OPTION VALUE="06">06</OPTION><OPTION VALUE="07">07</OPTION><OPTION VALUE="08">08</OPTION><OPTION VALUE="09">09</OPTION>
<OPTION VALUE="10">10</OPTION><OPTION VALUE="11">11</OPTION>
<OPTION VALUE="12">12</OPTION></select>

<OPTION VALUE="2012">2012</OPTION><OPTION VALUE="2013">2013</OPTION>
<OPTION VALUE="2014">2014</OPTION><OPTION VALUE="2015">2015</OPTION>
</select>

<br><br>
<input type="submit" value="senden" name="Submit">

 </form>

}
</perl>