<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ü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ück]</b></font></a></p>
danke und gruss