기본 ASP의 SQL에서 드롭 다운 채우기

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