$csSeminar="1" if $Seminarx ;

 if ($Seminarx ne ""){
get "Seminar==1","Eifelraum", "seminar";
while(get_next("unterkunft")){
push @array4i,"$Id";
}
} else
{
get "Raumname<>_","Eifelraum","all";
while(get_next("all")){
push @array4i,"$Id";
}
}

get "Seminar==1" ...

 Hier ein Auszug:

<perl>...

  {
put ["Page","$Raumnamex $ObjektId", "Raumname","$Raumnamex","Region","$Regionx",...,"Art","$Artx",...
"Personen","$Personenx"...],"Eifelraum";

 mail $EMailx, "Eifelraum", $inhalt, ;

<form action="...">
...
    <span class="formrl">f&uuml;r wieviele Personen</span><select style="width:80px" name=Personenx:=" size="3" multiple>
      <option>1</option>
      <option>2</option>
      <option>4</option>
      <option>6</option>
      <option>8</option>
      <option>10</option>
      <option>20</option>
      <option>30</option>
      <option>50</option>
      <option>100</option>
      <option>200</option>
      <option>300</option>
      <option>500</option>
      <option>1000</option>
     </select><br/><br/>
<span class="formrl">Raumart</span><select style="width:80px;background-color:#FFF0F5;" name=Artx:=" size="3" multiple>
      <option>Hof</option>
      <option>Platz</option>
      <option>Halle</option>
      <option>Saal</option>
      <option>Haus</option>
      <option>Raum</option>
      </select><br/><br/>
...</form>