下拉列表选择数据库中的值

<%
sql="SELECT * FROM [部门]"
rs.open sql,conn
while not rs.eof
response.write("<option value="""&rs("id")&""">"&rs("name")&"</option>")
wend
%>

上面是把数据库中的值生成html代码了,也就把相应的值给了select供用户选择

<tr>
                  <td align=right bgcolor="#eeeeee">部门：</td>
                  <td bgcolor="#eeeeee"><select name=bm >
                      <%
                     sql="SELECT * FROM [部门]"
                    rs.open sql,conn
                    while not rs.eof
                    response.write("<option value="""&rs("id")&""">"&rs("部门名称")&"</option>")
                    wend
                     %>                     
                   </select></td>
                </tr>           


<%
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from [人员]"
       rs.Open sql,conn1,1,3
       rs.AddNew
      rs("部门") = Request("bm")
      rs.Update
%>