fatti una funzione per splittare tenendo solo valori unici
tipo questa
codice:
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