在Classic ASP中填充SQL中的Dropdown

Question

我试图强制用户在添加记录时只选择某些值.所以我自然而然地使用了一个下拉菜单,但我希望这些选项可以填充数据库中的特定字段.我想我会做一个Do/Loop但我显然做错了什么.

Dim dstrSQL
Dim drs
    dstrSQL = "SELECT EventID FROM Events"
    set conn2 = CreateObject("ADODB.Connection")
    conn2.open CONN_STRING
    set drs = conn2.execute(dstrSQL)
    conn2.close: set conn2 = nothing
Do
        Response.Write "<option value=" & drs.Fields(0) & " >" & drs.Fields(0) & "</option>"
        drs.MoveNext
Loop

Answer 1

已经很久了.像这样的东西:

conn2.open CONN_STRING
set drs = conn2.execute(dstrSQL)

do while not drs.eof %>

    <option value="<%= drs.Fields(0) %>" ><%= drs.Fields(0) %></option>
    <% drs.MoveNext
Loop
 conn2.close
 set conn2 = nothing %>