<html><head>
<title>baseportal Guestbook</title>
</head><body bgcolor=ffffff>
<font face=arial,helvetica size=2>
<perl>
my $maxtext=5000;
my $emsg="";
if(%_put)
{
$emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Name} eq "";
$emsg.="Bitte geben Sie einen Text ein! " if $_put{Text} eq "";
$emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Text})>$maxtext;
if($emsg eq "")
{
put;
out "<ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>";
} else
{
out "<ul><font color=d80000><b>$emsg</b></font></ul>";
}
"";
<do action=list listtype=add>
<ul>
<loop sort=- convert_html=Name,Text code=perl range^=0,2>
my $www=$WWW; $www=~ s#^http://##;
out '<table width=90%><tr><td><hr size=1><br><font face=arial,helvetica size=2>';
out "Beitrag von <b>$Name</b> am $Datum<br>";
out "EMail: <a href=\"mailto:$EMail\">$EMail</a> " if $EMail ne "";
out "WWW: <a href=\"http://$www\" target=\"_blank\">$www</a> " if $www ne "";
out "<p><ul>$Text</ul></td></tr></table>";
</loop>
my $newrange=$_range+$_range_length;
my $oldrange=$_range-$_range_length;
$oldrange=0 if $oldrange<0 && $oldrange>-$_range_length;
out "[ <a href=\"$_link&range=$oldrange,$_range_length\">Vorherige Beiträge</a> ] " if $oldrange>=0;
out "[ <a href=\"$_link&range=$newrange,$_range_length\">Weitere Beiträge</a> ]" if $newrange<$_amount_all;
</perl>
</body></html>
wo muss ich das eintragen?? (hab schon probiert...aber entweder kommt ein fehlermeldung oder es funktioniert nicht ...)
