codice:
            <select size="1" name="camnpouno" style="font-size: 8 pt; font-family: Verdana">
                <option value="0">campouno</option>
                </style>
<%
sql = "SELECT id, campouno FROM tabella group by campouno, id order by id asc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

On Error Resume Next
rs.MoveFirst  
Do While Not rs.EOF
%>

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

<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing
%>

              </select>