$csParken="1" if $Parken ;
 
out<<EOF;
<form action="baseportal.pl?htx=$htx&cmd=search" method="post" enctype="multipart/form-data">
    <select name="Region=" size="3" multiple>
      <option>Voreifel</option>
      <option>Hohes_Venn</option>
      <option>Nordeifel</option>
     </select><br/>
   <input type='checkbox' name="Parken=" value='' $csParken>Parkplatz<br>
<input class=submit type=submit value="Abschicken"> </form>
EOF

foreach(@regionen){
  push @where,"Region==$_";
}
$where=join"|",@where;

while(get_next("all")){
$Id_all=$Id;
}

@Id_all=split/\n/,$Id_all;
foreach(@Id_all){
  push @reg,"Id==$reg & Parken==$Parken";
}
$reg=join"|",@reg;
get "$reg", "Eifelraum";
while(get_next("Eifelraum")){
out "$PLZ $Ort $Raumname <a href='#'>$Page</a><br><br>";
}

@regionen=split/\n/,$Region;
foreach(@regionen){
  push @where,"Region==$_";
}
$where=join"|",@where;

while(get_next("all")){
$Id_all=$Id;
}

my @query;
for(my $i=0; $i+=1; $i<800)
{
  push @query,"Id==$idx[$i] & Parken==$Parken";
}
$query=join"|",@query;

get "$query", "Eifelraum";
while(get_next("Eifelraum")){
out "$PLZ $Ort $Raumname <a href='#'>$Page $Id</a>";
}