Salve,
ho questo script:
Dim myArray
myArray = Array("fish","cat","dog","fish","bob","blue","green","red","yeller","fish","dog","weasel","snake","george")
'unique items with Dictionary object
Dim myDict, elem
Set myDict = Server.CreateObject("Scripting.Dictionary")
For Each elem In myArray...