fatti una funzione per splittare tenendo solo valori unici
tipo questa
da usare al posto dello splitcodice: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
![]()