sub antwort()
{
  $Textneu="$_put{Text}";
  &konvertsm();
  &ersetzen();
  my $www=$_put{WWW}; 
  $www=~ s#^http://##;
  $www="http://$www";

  #höchste Beitragsnummer holen
  get "sort=- BNr==*", "SchmittchensForum";
  #vergleiche ob Beitrag auf den geantwortet werden soll schon die höchste Beitragsnummer hat wenn nicht erhöhe
  my $neueBNr=$_put{beitrag};
  if ($neueBNr < $BNr)
  {$neueBNr=$BNr+1;}

  # Beitrag auf den geantwortet werden soll holen und Antwort eintragen
  get "BNr==$_put{beitrag}", "SchmittchensForum";
  put ["smilie", "$$smily", "Datum", "Datum:=jetzt", "Titel", "$_put{Titel}", "Name", "$_put{Name}", "EMail", "$_put{EMail}", "Home", "$www", "Text", "$Textneu", "BNr", "$neueBNr"], "SchmittchensForum";
  $views++;
  #Antworten um eins erhöhen
  $ANr++;
  #Beitrag suchen (nicht Antworten darauf) und neue ANr=anzahl der Antworten eintragen
  mod "BNr==!$BNr and ANr\>0", ["ANr","$ANr"], "SchmittchensForum";
  mod "BNr==!$BNr and ANr\>0",["views","$views"], "SchmittchensForum";
#+++siehe unten+++
  #Beitrag und alle Antworten mit neuer Beitragsnummer versehen das der Beitrag oben eingeordnet wird
  mod "BNr==!$BNr",["BNr","$neueBNr"], "SchmittchensForum";

  #zurück
  my $anfang=$_amount_query-$rangelaenge;
  if ($anfang < 0)
  {$anfang=0;}
  out "<meta http-equiv=\"refresh\" content=\"0\; URL=http://baseportal.de/cgi-bin/baseportal.pl?htx=/klaus_schmitt/ForumAntwort&beitrag=$neueBNr&neuerview=1&range=$anfang,$rangelaenge\">";