如何用下拉列表显示数据库里的内容？

<%
dim objdc, objrs

set objdc = server.createobject("adodb.connection")
objdc.connectiontimeout = 15
objdc.commandtimeout = 30

' 创建数据库连接

objdc.open "dbq=" & server.mappath("database.mdb") & ";driver={microsoft access driver (*.mdb)};driverid=25;maxbuffersize=8192;threads=20;", "username", "password"
' 使用access数据库

objdc.open  application("sqlconnstring"), application("sqlusername"),
application("sqlpassword")

set objrs = server.createobject("adodb.recordset")

' 创建记录集并进行检索

' 使用前向游标（0）和只读模式（1）打开记录集
' 如果特定的id请求被读取，则显示
if len(request.querystring("id")) <> 0 then
      ' 根据id读取相应的记录
      objrs.open "select * from intelsdb where id=" & request.querystring("id"), objdc, 0, 1
      ' 显示已选择的记录
      if not objrs.eof then
            objrs.movefirst
            %>
            <table border=2>
                  <tr>
                        <td><b>id </b></td>
                        <td><b>姓名</b></td>
                        <td><b>部门</b></td>
                        <td><b>月度销售</b></td>
                  </tr>
                  <tr>
                        <td align="center"><%= objrs.fields("id") %></td>
                        <td align="left"><%= objrs.fields("name") %></td>
                        <td align="left"><%= objrs.fields("department ") %></td>
                        <td align="right"><%= objrs.fields("sales") %></td>
                  </tr>
            </table>
            <%
      end if
      objrs.close
end if

objrs.open "intelsdb", objdc, 0, 1
' 循环读完记录集并显示结果
if not objrs.eof then
      objrs.movefirst
      ' 下面这个表格会调用本次在querystring 里id的内容
      %>
      <form action="./db_pulldown.asp" method="get">
      <select name="id">
            <option></option>
      <%
      ' 直到读完记录集.
      do while not objrs.eof
            ' 对每条记录，为员工id创建一个选择标签并设置相应的值
            %>
            <option value="<%= objrs.fields("id") %>"><%= objrs.fields("name")  %></option>
            <%
      ' 获取下一个记录
      objrs.movenext
      loop
      %>
      </select>
      <input type="submit" value="submit">
      </form>
      <%
end if

' 关闭并清空
objrs.close
set objrs =  nothing
objdc.close
set objdc = nothing
%>