<perl>
if ($cmd eq "add"  || $cmd eq "mod") {
$err.="<font face=arial,helvetica size=2 color=#FF0000>
 -Hotel_ID<br>" if $_put{Hotel_ID} eq "";
$err.="<font face=arial,helvetica size=2 color=#FF0000>
 -Hotelname<br>" if $_put{Hotel} eq "";
$err.="<font face=arial,helvetica size=2 color=#FF0000> -Kategorie<br>" if $_put{Hotel} eq "";
$err.="<font face=arial,helvetica size=2 color=#FF0000> -Hotelgröße<br>" if $_put{Hotelgroesse} eq "";
$err.="<font face=arial,helvetica size=2 color=#FF0000> -Region<br>" if $_put{Region} eq "";
$err.="<font face=arial,helvetica size=2 color=#FF0000> -Bundesland<br>" if $_put{Bundesland} eq "";
$err.="<font face=arial,helvetica size=2 color=#FF0000> -Land<br>" if $_put{Land} eq "";
$err.="<font face=arial,helvetica size=2 color=#FF0000> -Programm<br>" if $_put{Programm} eq "";
$err.="<font face=arial,helvetica size=2 color=#FF0000> -Zeitraum<br>" if $_put{Zeitraum} eq "";
$err.="<font face=arial,helvetica size=2 color=#FF0000> -Titel<br>" if $_put{Titel} eq "";
$err.="<font face=arial,helvetica size=2 color=#FF0000> -Angebot<br><br>" if $_put{Angebot} eq "";

  if ($err ne "") {
   out "<b>Folgende Felder wurden nicht ausgefüllt:</b> <br>$err";
  } else {
   put;
  }

if ($err ne ""){
undef %_put;
}