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

<%
sql="SELECT * FROM [部门]"
rs.open sql,conn
while not rs.eof
response.write(""&rs("name")&"")
wend
%>
上面是把数据库中的值生成html代码了,也就把相应的值给了select供用户选择

                  部门：
                  
                      <%
                     sql="SELECT * FROM [部门]"
                    rs.open sql,conn
                    while not rs.eof
                    response.write(""&rs("部门名称")&"")
                    wend
                     %>                     
                  
                           


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