dim str,d,s,i str="100,123,100,200,300,100" s=split(str,",") for i =0 to ubound(s) if instr(d,s(i)) then d=d elseif len(d)=0 then d=s(i) else d=d&","&s(i) end if next response.write (d)