<html>
<head>
<title>Titel</title>
<LINK href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/Hansen/noi/eintrag" rel=styleSheet type=text/css>
</head>
<body bgcolor="#ffffff">
<perl>
if ($cmd ne "add") {
out <<EOF;
<p>Neuer Eintrag:</p>
<form method="POST" action="http://baseportal.de/cgi-bin/baseportal.pl?htx=/Hansen/noi/immo" enctype="multipart/form-data">
<input type="hidden" name="htx=" value="/Hansen/noi/immo">
<input type="hidden" name="cmd=" value="add">
<input type="hidden" name="range=" value="add">
<table width="100%" border="0" cellpadding="0">
<tr>
<td align="right"><font face="arial,helvetica" size="2">Objekt:</font></td>
<td>
<font face="arial,helvetica" size="2">
<select name="Objekt:=" size="1">
<option>Wohnung</option>
<option>Einfamilienhaus</option>
<option>Doppelhaus</option>
<option>Reihenhaus</option>
<option>Villa</option>
<option>Gewerbeobjekt</option>
</select>
</font>
</td>
</tr>
<tr>
<td align="right"><font face="arial,helvetica" size="2">Ort:</font></td>
<td><font face="arial,helvetica" size="2"><input type="text" name="Ort:=" size="50"></font></td>
</tr>
<tr>
<td align="right"><font face="arial,helvetica" size="2">Anzahl der Zimmer:</font></td>
<td><font face="arial,helvetica" size="2"><input type="text" name="Anzahl der Zimmer:=" size="10"></font></td>
</tr>
<tr>
<td align="right"><font face="arial,helvetica" size="2">Wohnfläche:</font></td>
<td><font face="arial,helvetica" size="2"><input type="text" name="Wohnfläche:=" size="50"></font></td>
</tr>
<tr>
<td align="right"><font face="arial,helvetica" size="2">Ausstattung Beschreibung:</font></td>
<td><font face="arial,helvetica" size="2"><textarea name="Ausstattung Beschreibung:=" cols="45" rows="5" wrap="virtual"></textarea></font></td>
</tr>
<tr>
<td align="right"><font face="arial,helvetica" size="2">Miete Pacht:</font></td>
<td><font face="arial,helvetica" size="2"><input type="text" name="Miete Pacht:=" size="50" value="DM"></font></td>
</tr>
<tr>
<td align="right"><font face="arial,helvetica" size="2">Telefon:</font></td>
<td><font face="arial,helvetica" size="2"><input type="text" name="Telefon:=" size="50"></font></td>
</tr>
<tr>
<td align="right"><font face="arial,helvetica" size="2">E-Mail:</font></td>
<td><font face="arial,helvetica" size="2"><input type="text" name="E-Mail:=" size="30"></font></td>
</tr>
<tr>
<td></td>
<td nowrap><input type="submit" value="Abschicken"> <input type="reset" value="Zurücksetzen"></td>
</tr>
</table>
</form>
EOF
} else {
if ($cmd eq "add") {
put
}
out <<EOF;
<p align="center"><span class="mengentext">
<b>Vielen Dank für Ihre Eingabe. Nachfolgende Daten wurden unserer Datenbank hinzugefügt:</b><br>
<br>
</span></p>
<form action="mailto:CSeifried@t-online.de" method=post enctype="text/plain" name="Ausgabe">
<table border="0" width="500" cellpadding="0">
<tr>
<td width="185" bgcolor="#004182" valign="middle"><font face="Verdana" size="1" color="#FFFFFF"><span class="mengentext">Objekt</span></font></td>
EOF
out '<td width="311" bgcolor="#F0F8FF" valign="middle"><font face="Verdana" size="1" color="#000000"><span class="mengentext">',$_put{"Objekt"},'</span></font><input type="hidden" name="Objekt" value="',$_put{"Objekt"},'"></td>';
out <<EOF;
</tr>
<tr>
<td width="185" bgcolor="#004182" valign="middle"><font face="Verdana" size="1" color="#FFFFFF"><span class="mengentext">Ort</span></font></td>
EOF
out '<td width="311" bgcolor="#F0F8FF" valign="middle"><font face="Verdana" size="1" color="#000000"><span class="mengentext">',$_put{"Ort"},'</span></font><input type="hidden" name="Ort" value="',$_put{"Ort"},'"></td>';
out <<EOF;
</tr>
<tr>
<td width="185" bgcolor="#004182" valign="middle"><font face="Verdana" size="1" color="#FFFFFF"><span class="mengentext">Anzahl der Zimmer</span></font></td>
EOF
out '<td width="311" bgcolor="#F0F8FF" valign="middle"><font face="Verdana" size="1" color="#000000"><span class="mengentext">',$_put{"Anzahl der Zimmer"},'</span></font><input type="hidden" name="Anzahl der Zimmer" value="',$_put{"Anzahl der Zimmer"},'"></td>';
out <<EOF;
</tr>
<tr>
<td width="185" bgcolor="#004182" valign="middle"><font face="Verdana" size="1" color="#FFFFFF"><span class="mengentext">Wohnfläche</span></font></td>
EOF
out '<td width="311" bgcolor="#F0F8FF" valign="middle"><font face="Verdana" size="1" color="#000000"><span class="mengentext">',$_put{"Wohnfläche"},'</span></font><input type="hidden" name="Wohnfläche" value="',$_put{"Wohnfläche"},'"></td>';
out <<EOF;
</tr>
<tr>
<td width="185" bgcolor="#004182" valign="middle"><font face="Verdana" size="1" color="#FFFFFF"><span class="mengentext">Ausstattung Beschreibung</span></font></td>
EOF
out '<td width="311" bgcolor="#F0F8FF" valign="middle"><font face="Verdana" size="1" color="#000000"><span class="mengentext">',$_put{"Ausstattung Beschreibung"},'</font><input type="hidden" name="Ausstattung Beschreibung" value="',$_put{"Ausstattung Beschreibung"},'"></td>';
out <<EOF;
</tr>
<tr>
<td width="185" bgcolor="#004182" valign="middle"><font face="Verdana" size="1" color="#FFFFFF"><span class="mengentext">Miete Pacht</span></font></td>
EOF
out '<td width="311" bgcolor="#F0F8FF" valign="middle"><font face="Verdana" size="1" color="#000000"><span class="mengentext">',$_put{"Miete Pacht"},'</span></font><input type="hidden" name="Miete Pacht" value="',$_put{"Miete Pacht"},'"></td>';
out <<EOF;
</tr>
<tr>
<td width="185" bgcolor="#004182" valign="middle"><font face="Verdana" size="1" color="#FFFFFF"><span class="mengentext">Telefon</span></font></td>
EOF
out '<td width="311" bgcolor="#F0F8FF" valign="middle"><font face="Verdana" size="1" color="#000000"><span class="mengentext">',$_put{"Telefon"},'</span></font><input type="hidden" name="Telefon" value="',$_put{"Telefon"},'"></td>';
out <<EOF;
</tr>
<tr>
<td width="185" bgcolor="#004182" valign="middle"><font face="Verdana" size="1" color="#FFFFFF"><span class="mengentext">E-Mail</span></font></td>
EOF
out '<td width="311" bgcolor="#F0F8FF" valign="middle"><font face="Verdana" size="1" color="#000000"><span class="mengentext">',$_put{"E-Mail"},'</span></font><input type="hidden" name="E-Mail" value="',$_put{"E-Mail"},'"></td>';
out <<EOF;
</tr>
</table>
</form>
<script language="JavaScript">
document.Ausgabe.submit();
</script>
EOF
}
</perl>
</body>
</html>
