<select size="1" name="catid">
<option value=0>גלריות מסיבות ואירועים <%
Set catsRec1 = objConn.Execute ("SELECT * FROM cats;")
While Not catsRec1.EOF
Response.Write "<option value=""" & catsRec1("catid") & """"
Response.Write ">" & catsRec1("name") & "</option>" & chr(13)
catsRec1.MoveNext
Wend
%>
</select> <input type="text" name="q" size="10">