[ASP] Passare in array stringa dinamica

[djjunior]

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
    If Not myDict.Exists(elem) Then myDict.Add elem, elem
Next

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

alla linea MYARRAY, vorrei passare una stringa che si crea dinamicamente che stampata tramite response.write sarebbe nella forma: "GIOVANNI","MARCO","MARCO","NICOLA" etc.

facendo così:

nomi = "GIOVANNI","MARCO","MARCO","NICOLA"

myarray = array(nomi)

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

 

[Paolo69]

...non capisco come vuoi che sia il risultato finale.

Modifica il frammento di codice finale, copialo con i due esempi:

'Sample output
Response.Write "CODICE ORIGINALE <br />"
For Each elem in myDict.Items
    Response.Write "" & elem & ""
Next

Response.Write "<br /><br />"

'Sample output
Response.Write "ESEMPIO 1 <br />"
For Each elem in myDict.Items
    Response.Write "" & elem & ", "
Next

Response.Write "<br /><br />"


'Sample output
Response.Write "ESEMPIO 2 <br />"
For Each elem in myDict.Items
    Response.Write "&#8220;" & elem & ",&#8221; "
Next

Response.Write "<br /><br />"

 

[djjunior]

Grazie Paolo,
sicuramente mi sono spiegato male io, nello script originale, la linea MyArray contiene le variabili già "scritte" cioè:
myArray = Array("fish","cat","dog","fish","bob","blue","green","red","yeller","fish","dog","weasel","snake","george")

io invece vorrei passarci dati nella stessa forma con virgolette e virgola così:

nomi = """" & stringa & """," (dove stringa è ogni singolo nome)
myarray = array(nomi)