如何用下拉式清單顯示資料庫裡的內容？

<%
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
%>