riempimento select da database

[lucacasu]

io utilizzo questo script che mi genera un menù a tendina leggendo da un database.. che funziona alla grande..

<select name="tipologia">
<%
sql = "SELECT * FROM tipologiaattivita ORDER BY tipologia asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn ,3,3
rs.movefirst
do while not(rs.eof)
%>
<option value="<%=rs(1)%>"><%=rs(1)%></option>
<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</select>