salve ho un problemino che non so come risolvere. praticamente vorrei far listare in un semplice modulo di menù a discesa i records di una tabella di un database. il fatto è ke non mi viene un solo menù a discesa con tutti i records listati quando premo ma tipo tanti menù a discesa per quanti sono i records del database (una 50ina )

questo è il codice sbaglio qualcosa?


<%
Dim sc, cn, rs
sc = "driver={Microsoft Access Driver (*.mdb)};dbq="
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open sc & Server.MapPath("test.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
%>

<%
rs.Open "SELECT * FROM NOMI ORDER BY gio DESC", cn, 1
If rs.EOF Then
%>
<%
Else
While rs.EOF = False
%>

<label>
<font color="#FFFFFF">
<select name="p1" size="1">
<option>-</option>
<option value="<%=rs("gio")%>"><%=rs("gio")%></option>
</select></font></label>

<%
rs.MoveNext
Wend
End If
rs.Close
%>

</body>
</html>
<%
Set rs = Nothing
cn.Close
Set cn = Nothing
%>


graqzie per l'eventuale aiuto