Ciao a Tutti,

Apro la connessione, scrivo la tua query, apro il recordset e poi scrivo

<select name="pippo">
<%
do while not rs.eof
%>
<option value="<%=rs("id")%>"><%=rs("name")%></option>
<%
rs.movenext
loop
%>
</select>
Chiudo recordset e connessione e distruggo gli oggetti.

Il tutto funziona ma come posso eliminare i dati duplicati?

Post mario.za

Ho cambiato la stringa ma il risultato non cambia continuano a comparire tutte le voci in ordine alfabetico. Io ne voglio visualizzare solo una per tipo !!

la pagina è così composta:

connessione DB
<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("tel.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT DISTINCT(reparto), ID FROM tel"
rs.Open sql, conn, 3, 3
%>

<td>
<font size="2">
<select name="reparto" size="1" style="font-family: Copperplate Gothic Bold; color: rgb(128,0,0)">
<option value="null">Tutti</option>
<%
do while not rs.eof
%>
<option value="<%=rs("ID")%>"><%=rs("reparto")%></option>
<%
rs.movenext
loop
%>
<%
rs.Close
Set rs = Nothing
Conn.Close
%>
</select>&nbsp;&nbsp;</font></td>

Dovè l'errore ????

Ciao Andytimes,

Prima di tutto Grazie !
il tutto ora funziona, ma come posso inserire altre voci ??

SELECT DISTINCT(reparto), reparto & o and .......ALTRE VOCI......... FROM tel
qualè la sintassi giusta?

e per di più, ho cercato sul mio libro la funzione DISTINCT ma non l'ho trovata o non sono ancora arrivato a leggerla..... una anticipazione??

Lo sò è imbarazzante,
ma NON ho ancora risolto il problema inserisco parte del codice spiegando meglio quello che vorrei realizzare:

<%
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("tel.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT DISTINCT tel.citta FROM tel"
rs.Open sql, conn, 3, 3
%>

<select name="citta" size="1" style="font-family: Copperplate Gothic Bold; color: rgb(128,0,0)">
<option value="null">Tutte</option>
<%
do while not rs.eof
%>
<option value="<%=rs("citta")%>"><%=rs("citta")%></option>
<%
rs.movenext
loop
%>
</select>

ORA QUI VORREI INSERIRE UN'ALTRA CASELLA DI RIEPILOGO, TIPO "REPARTO", COSA DEVO FARE??

<%
rs.Close
Set rs = Nothing
Conn.Close
%>