< % sql="SELECT field_to_display FROM table_name " Set rs=con.execute(sql) % > <select name="myoptions"> <option selected> < % Do While Not rs.eof Response.Write(" <option value= " & rs("field_to_display") & " > " & rs("field_to_display") & "</option>") rs.movenext Loop Set rs=Nothing % > </select>