Creare un menu a tendina dinamicamente

Con il seguente script, sarà possibile realizzare un menu a cascata prelevando i dati da un database.

<select name="cliente">

<%

dim strCode

strCode="innovatel" 'Password di accesso al db

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

strConn="driver={Microsoft Access Driver (*.mdb)}; "

strConn=strConn & " DBQ=" & Server.MapPath("nomedatabase.mdb")

strConn=strConn & ";pwd=" & strCode

Conn.Open (strConn)

sql = "SELECT mail_user, nome_user FROM anagrafica ORDER BY nome_user"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open sql, conn ,3,3

rs.movefirst

do while not(rs.eof)

%>

<option value="<%=rs(0)%>"><%=rs(1)%></option>

<%

rs.movenext

loop

rs.Close

set rs = Nothing

conn.Close

set conn = Nothing

%>

</select>