Заполнить выпадающий список из SQL в Classic ASP - PullRequest
Новая
       10

Заполнить выпадающий список из SQL в Classic ASP

1 голос
/ 09 января 2010

Я пытаюсь заставить пользователей выбирать только определенные значения при добавлении записи. Естественно, я использую раскрывающийся список, но я бы хотел, чтобы параметры заполнялись определенным полем в базе данных. Я подумал, что сделаю 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

1 Ответ

5 голосов
/ 09 января 2010

Это было давно. Примерно так: 

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