<select name="sex" id="sex">
              <option value="&lt;%=sex%>"&gt;<%=sex%></option>
             <%
Set rs = Conn.Execute("Select * From g_danwei")
Do While Not rs.Eof
Response.Write "&lt;option value='"& rs("danwei") &"'>&nbsp;&nbsp;" & rs("danwei") & "</option>"
rs.MoveNext
Loop
rs.close
%&gt;