<form action="http://www.hotel-plan.com/baseportal?htx=/hotel-plan.com/dorfanzeiger/inhalt" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="/hotel-plan.com/dorfanzeiger/inhalt">
<input type=hidden name="cmd=" value="search">
<TABLE>
<tr bgcolor=e5e5e5><td>Ort:</td></tr>
<tr bgcolor=e5e5e5><td>
<!-- Beginn Perl-Block Ortsfeld als Optionfeld bauen -->
<perl>
get "Ort==wert", "kleinanzeigen", "erghash"; # Hier bei Ort==wert auch tatsächlich was einsetzten für Wert oder nen Variableninhalt, wenn du alle Orte haben willst halt Ort==*
while(get_next("erghash")){
push @opOrt, $Ort if index("@opOrt", "$Ort")<0;
}
foreach (@opOrt){
$a_opOrt .= $opOrt eq $fort ? "<option selected value=$_>$_" : <option value=$_>$_"; # selected wenn $fort Suchfeldname $fort ist
}
out<<EOF;
<select name="fort=">
<option value='*'>Alle Orte...
$a_opOrt
</select>
EOF
</perl>
</td></tr>
<tr><td><input type=submit value="Einträge anzeigen"></td></tr>
</form>
</TABLE>

<do action=all db=kleinanzeigen Ort==$fort>