Array con stringa di dati ciclati

[djjunior]

Salve,
ho questo script

Dim myArray
myArray = Array("fish","cat","dog","fish","bob","blue","green","red","yeller","fish","dog","weasel","snake","george")

Dim myDict, elem
Set myDict = Server.CreateObject("Scripting.Dictionary")
For Each elem In myArray
    If Not myDict.Exists(elem) Then myDict.Add elem, elem
Next


Response.Write "Dictionary Values"
For Each elem in myDict.Items
    Response.Write "" & elem & ""
Next
Response.Write ""

alla linea MYARRAY, vorrei passare una stringa che gli creo io dinamicamente da dati prelevati da stringa ciclata che comunque la forma sarebbe sempre tipo l'array originale, cioè: "GIOVANNI","MARCO","MARCO","NICOLA" etc.

facendo così:

nomi = """" & stringa & ""","
myarray = array(nomi)

ma non funziona, la legge come testo senza elaborare tutto lo script
Dove sbaglio?
Grazie

[vic53]

Salve,
ho questo script

Dim myArray
myArray = Array("fish","cat","dog","fish","bob","blue","green","red","yeller","fish","dog","weasel","snake","george")

Dim myDict, elem
Set myDict = Server.CreateObject("Scripting.Dictionary")
For Each elem In myArray
    If Not myDict.Exists(elem) Then myDict.Add elem, elem
Next


Response.Write "Dictionary Values"
For Each elem in myDict.Items
    Response.Write "" & elem & ""
Next
Response.Write ""

alla linea MYARRAY, vorrei passare una stringa che gli creo io dinamicamente da dati prelevati da stringa ciclata che comunque la forma sarebbe sempre tipo l'array originale, cioè: "GIOVANNI","MARCO","MARCO","NICOLA" etc.

facendo così:

nomi = """" & stringa & ""","
myarray = array(nomi)

ma non funziona, la legge come testo senza elaborare tutto lo script
Dove sbaglio?
Grazie

prova a usare i caratteri ASCII

nomi = chr(22) & stringa1 & chr(22) & chr(44)

poi 
myarray = array(nomi)

attento al loop per l'ultimo elemento dove non devi mettere la virgola