get "user==$Euser","nutzer";

<perl>
                   out "Benutzername : $EUser<br>";
                   get "user==$Euser","nutzer";
                   out "Der Benutername lautet : $user<br>";
                   out "DBPasswort             : $Passwort<br>";
     if($EPassw ne "" && $Passwort eq $Epassw)
     {
                    out "Das Kennwort lautet : $EPassw<br>";
      $Kennung = $_Id;	
      put ["Titel","$ETitel", "Text", "$EText", "Name","$EName", "mail","$Email", "userid","$Kennung", "Ablauf", "$EAblauf",
                        "ART", "$EArt"],"kleinanzeigen";
           out "Ihre Kleinanzeige wurde eingetragen";
                  out "$ETitel";
                  out "$EName";
                  out "$Kennung";
     }
    else
          {
      $Kennung =0;
      put ["Titel","$ETitel", "Text", "$EText", "Name","$EName", "mail","$Email", "userid","$Kennung",
                        "ART","$EArt"],"kleinanzeigen";
           out "Ihr Benutzername oder Ihr Passwort ist falsch. Ihre Kleinanzeige wurde dennoch eingetragen";				
                }		
  
</perl>