<table>
<tr>
<td align=center>
<form action=http://baseportal.de/cgi-bin/baseportal.pl?htx=$htx method=post enctype=multipart/form-data>
<select name="sOrt=">
<option value="">alle</option>
<loop db=test range=0,$_amount_all sort=Ort code=perl>
out "<option value=$Ort>$Ort" if $Ort ne $zOrt;
$zOrt=$Ort;
</loop>
<input type=submit value=Suchen>
</form>
</td></tr>
<tr><td align=center>
<font face=arial,helvetica color=339933>Auswahl ist: <br><b>$sOrt<b><br>
</td></tr>
<tr><td>
<do action=all db=test listtype=list Ort^~=$sOrt showsort=Datum,Ort range^=0,10 pagebrowse=top buttonbrowse=top selectbrowse=no search=no listfields=Ort,Datum,Zeit,Veranstaltung,Auswahl border=0 gridcolor=ffffff spacing=2 dataface=Arial datasize=2 databack=ccffcc dataalign=left headcolor=339933 headalign=middle headback=ccff66>