Salve,
uso questo script per splittare e eliminare doppioni ma purtroppo, non so dove sbaglio, i doppioni restano, potete aiutarmi?
Premetto che nel db access il campo località può contenere doppioni anche in altre righe tipo:
riga 1: MILANO, ROMA, GENOVA
riga 2: TORINO, MILANO, REGGIO
etc
sto letteralmente impazzendo, grazie
<%
loca = request.querystring("loc")
sql = "SELECT DISTINCT localita FROM offerte WHERE tipo = '" & request.querystring("mod") & "' GROUP BY localita"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, Conn, 3
if rs.eof then
else
%>
<select size="1" name="loc" onchange='this.form.submit()'>
<%
rs.MoveFirst
Do While Not rs.EOF
controllo = rs.fields("localita")
bix = split(controllo, ", ")
dim myDict, elem
Set myDict = Server.CreateObject("Scripting.Dictionary")
For Each elem In bix
If Not myDict.Exists(elem) Then myDict.Add elem, elem
Next
For Each elem in myDict.Items
%>
<option value="<%=elem%>"<%if loca = "" & elem & "" then%>selected="selected"<%end if%> ><%=elem%></option>
<%
Next
rs.MoveNext
Loop
rs.Close
set rs = Nothing
end if
%>
</select>