Remplir la liste déroulante de SQL dans ASP classique

Question

J'essaie de forcer les utilisateurs à sélectionner uniquement certaines valeurs lors de l'ajout d'un enregistrement. Donc, naturellement, j'utilise une liste déroulante, mais j'aimerais que les options soient remplies par un champ spécifique dans la base de données. Je me suis dit que je ferais un Do/Loop mais apparemment je fais quelque chose de mal.

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

Cela fait longtemps. Quelque chose comme ceci:

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