sub form_out
{
 my($pos, $name, $email, $www, $titel, $text)=@_;
 $name=~ s/"/"/gs;
 $email=~ s/"/"/gs;
 $www=~ s/"/"/gs;
 $text=~ s/</&lt;/gs; $text=~ s/>/&gt;/gs;
 $titel=~ s/"/&quot;/gs;
 out <<EOF;
<table cellspacing=0 cellpadding=12 bgcolor=f0f0f0 width=90%><tr><td><font face=arial,helvetica size=2>
<table>
<form action="$mylinkr" method="post" enctype="multipart/form-data" onsubmit="return testform()">
<input type=hidden name="htx=" value="$htx"><input type=hidden name="wcheck=" value="1">
<input type=hidden name="range=" value="$_get{range}"><input type=hidden name="Pos=" value="$pos">
<tr><td><font face=arial,helvetica size=2>Name:</td><td nowrap><input type=text name="Name:=" size=19 maxlength=60 value="$name"><font face=arial,helvetica size=2> EMail: <input type=text name="EMail:=" size=14 maxlength=60 value="$email"> WWW: <input type=text name="WWW:=" size=14 maxlength=60 value="$www"></td></tr>
<tr><td><font face=arial,helvetica size=2>Titel:</td><td><input type=text name="Titel:=" size=50 maxlength=80 value="$titel"></td></tr>
<tr><td><font face=arial,helvetica size=2>Text:</td><td><textarea name="Text:=" rows=10 cols=55 wrap=virtual>$text</textarea></td></tr>
<tr><td></td><td><input type=submit value="Speichern"> <input type=submit name="Vorschau=" value="Vorschau"> <input type=reset value="Zurücksetzen"></td></tr>
</form>
</table>
</table>
EOF
}

sub form_out
{
out"Keine neuen Einträge mehr möglich<br>";