Eliminare duplicati dallo split

[djjunior]

Ciao
non so come evitare la duplicazione dei risultati dallo split, premetto che lo script funziona correttamente ma cosi si elencano anche i i duplicati, come posso evitarlo?

<%
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
%>
<td >
<select size="1" name="loc" onchange='this.form.submit()'>

<%
rs.MoveFirst 
Do While Not rs.EOF

controllo = rs.fields("localita")

arryControllo = Split(Controllo, ", ") 

For i=0 to UBound(arryControllo)

stringa = Trim(arryControllo(i))

%>

<option value="<%=stringa%>"<%if loca = "" & stringa & "" then%>selected="selected"<%end if%> ><%=stringa%></option>
<%
Next

rs.MoveNext
Loop
rs.Close
set rs = Nothing
end if
%>

Grazie

[optime]

strano che ci siano duplicati visto che fai una DISTINCT... ma perché SPLITti la località?

[djjunior]

perchè in località ci sono vari dati tipo: MILANO, ROMA, TREVISO
che ho necessità di splittare

[optime]

capito. in ASP classico non ci sono metodi pronti, devi fare tu la deduplica... nel forum ne abbiamo parlato diverse volte, fa' una ricerca

[djjunior]

ho già cercato sul forum e provato alcuni senza però giungere al mio fine.

[optime]

http://stackoverflow.com/questions/6...ay-classic-asp

la prima che viene fuori cercando su google, di sicuro ce ne sono altre

[willybit]

fatti una funzione per splittare tenendo solo valori unici
tipo questa

Function SplittaDistinct(str,sep)
	dim strx, sepx, arr, i, dic
	set dic=Server.CreateObject("Scripting.Dictionary")
	arr = Split(str,sep)
	strx=""
	sepx=""
	for i=LBound(arr) to UBound(arr)
		if not dic.Exists(arr(i)) then
			strx=strx & sepx & arr(i)
			dic.Add arr(i),true
			sepx=sep
		end if
	next
	SplittaDistinct = Split(strx,sep)
End Function

da usare al posto dello split

[djjunior]

Grazie willybit, ma non riesco ad implementarla al mio script!