<html>
<head>
<include src=styles><title></title>
<script language="JavaScript" type="text/javascript">
<!--
function formcheck() {
if (document.forms[0].elements["Name:="].value=="") {
alert("Bitte geben Sie Ihren Namen ein");
document.forms[0].elements["Name:="].focus();
return false;
}
var Text=document.forms[0].elements["Text:="].value
if (Text=="") {
alert("Bitte geben Sie einen Text ein");
document.forms[0].elements["Text:="].focus();
return false;
}
if (Text.length > 5000) {
alert("Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal 5000 Zeichen.");
document.forms[0].elements["Text:="].focus();
return false;
}
}
//-->
</script>
</head>
<table width=100% bgcolor=#9F0000>
<tr><td><h2><font color=white>hospitium | guestbook</font></h2></td></tr>
</table>
<table width=100% height=100%>
<tr><td width=130 valign=top height=100% bgcolor=cfcfcf>
<include src=subnavig&Aktiv=view>
</td><td valign=top>
<table width=100% align=center bgcolor=ffffff>
<tr><td bgcolor=cfcfcf>
<center><h3>Eintrag hinzufügen</h3></center>
<perl>
if ($cmd ne "add") {
out <<EOF;
<p align="center">
<font size=2>
<form name="daten" action="baseportal.pl?htx=/robert-morten.de/Redaktionssytem/add" method="post" enctype="multipart/form-data" onReset="return confirm('Sind Sie sicher, dass Sie das Formular leeren wollen?')" onSubmit="return formcheck()">
<input type=hidden name="htx=" value="/robert-morten/Redaktionssytem/add">
<input type=hidden name="cmd=" value="add">
<table cellspacing=10>
<tr>
<td><b>Name:</b></td>
<td><input name="Name:=" size=30 value=""></td>
</tr>
<tr>
<td><b>eMail:</b></td>
<td><input name="EMail:=" size=30 value=""></td>
</tr>
<tr>
<td><b>Homepage:</b></td>
<td><font size=-1>http://</font><input name="WWW:=" size=25 value=""></td>
</tr>
<tr>
<td><b>Titel:</b></td>
<td><input name="Titel:=" size=30 value=""></td>
</tr>
<tr>
<td colspan=2>
<b>Text:</b><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,"guestbook";
}
out <<EOF;
<table width=100% height=100% align="center"><tr><td>
<b>Bitte warten Sie einen Moment, ihr Eintrag wird hinzugefügt...</b>
</td></tr></table>
<form action="http://pub37.bravenet.com/emailfwd/senddata.asp" method="post" name="Ausgabe">
<input type="hidden" name="usernum" value="3104723160">
<input type="hidden" name="thankyou" value="http://robert-morten.de/cgi-bin/baseportal.pl?htx=/robert-morten.de/Redaktionssytem/view&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="titel" value="',$Titel,'">';
out '<input type="hidden" name="text" value="',$Text,'">';
out <<EOF;
</form>
<script language="JavaScript">
document.Ausgabe.submit();
</script>
EOF
}
</perl>
<html>
<head>
<title>hospitium | guestbook</title><include src=styles>
</head>
<body bgcolor=000000 text=black alink="Red" link="Red" vlink="Red">
<table width=100% bgcolor=#9F0000>
<tr><td><h2><font color=white>hospitium | guestbuch</font></h2></td></tr>
</table>
<table width=100% height=100%>
<tr><td width=130 valign=top height=100% bgcolor=cfcfcf>
<include src=subnavig&Aktiv=view>
</td><td valign=top>
<table width=100% align=center bgcolor=ffffff>
<tr><td bgcolor=#9F0000><font color=white size=4><b>Gästebuch</b></font></td></tr>
<tr><td bgcolor=cfcfcf>
<perl>
get "Id==0","guestbook";
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<p align=center>";
if ($oldrange>=0) {
out " [ <a href=\"$_link&range=$oldrange,$_range_length\">Vorherige Seite</a> ] ";
} else {
out " [ Vorherige Seite ] ";
}
out " [ <a href=\"http://robert-morten.de/cgi-bin/baseportal.pl?htx=/robert-morten.de/Redaktionssytem/add\">Eintrag hinzufügen</a> ]";
if ($newrange<$_amount_all) {
out " [ <a href=\"$_link&range=$newrange,$_range_length\">Nächste Seite</a> ]";
} else {
out " [ Nächste Seite ]";
}
out "</p>";
</perl>
<loop sort=- convert_html=Name,Text code=perl range^=0,10 db=guestbook>
my $www=$WWW; $www=~ s#^http://##;
out "<p>";
out " <table width=100% align=center>";
out " <tr>";
out " <td bgcolor=#c0c0c0>";
out " Eintrag von ";
if ($EMail ne "") {
out " <a href=\"mailto:$EMail\"><b>$Name</b></a>";
} else {
out " <b>$Name</b>";
}
if ($www ne "") {
out " [<a href=\"http://$www\" target=\"_blank\">Homepage</a>] ";
}
out " am $Datum";
out " </td>";
out " </tr>";
out " <tr>";
out " <td bgcolor=#9F0000>";
out " <font color=white><b>";
out " $Titel";
out " </b></font>";
out " </td>";
out " </tr>";
out " <tr>";
out " <td bgcolor=white>";
out " $Text";
if ($Kommentar ne "") {
out " <p>";
out " <i><b>Kommentar des Webmasters:</b></i><br>";
out " $Kommentar";
out " </p>";
}
out " </td>";
out " </tr>";
out " </table>";
out "</p>";
</loop>
<perl>
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "<p align=center>";
if ($oldrange>=0) {
out " [ <a href=\"$_link&range=$oldrange,$_range_length\">Vorherige Seite</a> ] ";
} else {
out " [ Vorherige Seite ] ";
}
out " [ <a href=\"http://www.robert-morten.de/cgi-bin/baseportal.pl?htx=/robert-morten.de/Redaktionssytem/add\">Eintrag hinzufügen</a> ]";
if ($newrange<$_amount_all) {
out " [ <a href=\"$_link&range=$newrange,$_range_length\">Nächste Seite</a> ]";
} else {
out " [ Nächste Seite ]";
}
out "</p>";
</perl>
