problema asp+modulo

[newb0y]

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

[rosmarc]

Ciao, non so se funza, ma prova così:
<%
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")
%>
<label>
<font color="#FFFFFF">
<select name="p1" size="1">
<%
rs.Open "SELECT * FROM NOMI ORDER BY gio DESC", cn, 1
If rs.EOF Then
%>
<%
Else
While rs.EOF = False
%>

<option>-</option>
<option value="<%=rs("gio")%>"><%=rs("gio")%></option>

<%
rs.MoveNext
Wend
End If
rs.Close
%>
</select></font></label>
</body>
</html>

Se non funza....
fammi sapere il risultato.
ciao

[newb0y]

grande funziona troppo gentile stavo impazzendo