<perl>
    if ($cmd ne "add") {
     out <<EOF;
      <p align="center">
       
      <form name="daten" action="baseportal.pl?htx=/gpark/cs/csgbadd" method="post" enctype="multipart/form-data" onReset="return confirm('Bist Du sicher, dass Du das Formular leeren willst?')" onSubmit="return formcheck()">
      <input type=hidden name="htx=" value="/gpark/cs/csgbadd">
      <input type=hidden name="cmd=" value="add">
      <table cellspacing=10 border=0 bgcolor=#444444>
       <tr>
        <td><font face=verdana size=2><b>Name:</b></font></td>
        <td><input name="Name:=" size=30 value=""></td>
       </tr>
       <tr>
        <td><font face=verdana size=2><b>eMail:</b></font></td>
        <td><input name="EMail:=" size=30 value=""></td>
       </tr>
       <tr>
        <td><font face=verdana size=2><b>Homepage:</b></font></td>
        <td><font size=1 face=verdana>http://</font><input name="WWW:=" size=24 value=""></td>
       </tr>
       <tr>
        <td colspan=2>
         <font face=verdana size=2><b>Text:</b></font><br>
         <textarea name="Text:=" cols=40 rows=6 wrap=virtual></textarea>
        </td>
       </tr>
       <tr>
        <td colspan=2>
         <div align="center">
          <input type=submit value="Eintragen"> 
          <input type=reset value="Zurücksetzen">
         </div>
        </td>
       </tr>
      </table>
     </form>
     </p>
EOF
    } else {
     if ($cmd eq "add") {
      put undef,"csgbu";
     }
     out <<EOF;
      <table width=100% height=100% align="center"><tr><td>
       <b>Bitte warte einen Moment, Dein Eintrag wird hinzugef&uuml;gt...</b>
      </td></tr></table>
       <FORM action="http://pub28.bravenet.com/emailfwd/senddata.asp" method="post">
       <input type="hidden" name="usernum" value="2379994525">
       <input type="hidden" name="thankyou" value="http://baseportal.de/cgi-bin/baseportal.pl?htx=/gpark/cs/csgbook&range=0,10"> 
       <input type="hidden" name="cpv" value="1">
EOF
        out '<input type="hidden" name="name" value="',$Name,'">';
        out '<input type="hidden" name="email" value="',$EMail,'">';
        out '<input type="hidden" name="homepage" value="',$WWW,'">';
        out '<input type="hidden" name="text" value="',$Text,'">';
     out <<EOF;
     </form>
     <script language="JavaScript">
      document.Ausgabe.submit();
     </script>
EOF
   }
   </perl>
  <p align="center"><a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/gpark/cs/csgbook&range=0,10"><font face=verdana size=1><b>[Zur&uuml;ck]</b></font></a></p>