<form action='baseportal.pl?htx=/suche' method='post' enctype='multipart/form-data'>
<input type=hidden name='db=' value='db'>
<input type=hidden name='cmd=' value='search'>

 <input type="checkbox" name="Rubrik~=" value="Hotel"> Hotel<br>
 <input type="checkbox" name="Rubrik~=" value="Restaurant"> Restaurant<br>
 <input type="checkbox" name="Rubrik=" value~="Cafe"> Cafe<br>

<input type="submit" value="| senden |" name="Submit">
<br>
 </form>

<perl>
if ($cmd eq "search"){
for (my $i=0; $i<=$#_sel; $i++){
$_sel[$i]="|" if $_sel[$i] eq "&";
}
pop(@_sel);
$mysel = join("",@_sel)." range=0,3000 sort=?";

get $mysel,"db";
while (get_next("db")){
out "Rubrik:";
out $Rubrik." ";
out "Firma:";
out $Firma." ";
out "<br/><hr/>";
}
}