How to auto generate a Dropdown List

S T E P - 1

- First, we need to create a new form...

<%

Dim SearchText, MyConn, SQL, RS

Set oConn=Server.CreateObject("ADODB.Connection")

cntMember.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")

SQL = "Select Email From Member"

Set oRS = oConn.Execute(SQL)

%>

S T E P - 2

- Now, to create a Dropdown list, we will use the record in the database to fill in to the dropdown list.

Select One <% While Not oRS.EOF %> "><%=oRS.Fields("Email") oRS.MoveNext 'use MoveNext to fetch the next record Wend oRS.Close oConn.Close Set oRS = Nothing Set oConn = Nothing %>