<perl>

my $emsg="";

{
  $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>";
  }

</perl>

<ul>
<loop sort=- convert_html=Name,Text code=perl range^=0,2>
out '<table width=90%><tr><td><hr size=1><br><font face=verdana,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=$newrange,$_range_length\">Weitere Beitr&auml;ge</a> ]" if $newrange<$_amount_all;

</ul>