<script LANGUAGE=Javascript>
if(document.Form1)

<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,20>
my $www=$WWW; $www=~ s#^http://##;
out '<table width=90%><tr><td><hr size=1><br><font face=arial,helvetica size=2><font color="#000040">';
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></font> " if $www ne "";
out "<p>$Text</td></tr></table>";
</loop>
<perl>
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>