Puedes hacer lo siguiente:
Código PHP:
Set Dic = Server.CreateObject("Scripting.Dictionary")
Dic.Add "uno", "Hola"
Dic.Add "dos", "Adios"
Dim Ar,Kr
Kr = Dic.Keys()
Ar = Dic.Items()
for I = 0 to ubound(Ar)
response.write("Item: " & Kr(I) & " |Keys: " & Ar(I) & "<br/>")
Next
Dic.Keys: Devuelve un arreglo con todas las keys que contiene el objeto Dictionary.
Dic.Items: Devuelve un arreglo con todos los items que contiene el objeto Dictionary.
Otra forma de hacer el
For seria la siguiente:
Código PHP:
Set Dic = Server.CreateObject("Scripting.Dictionary")
Dic.Add "uno", "Hola"
Dic.Add "dos", "Adios"
for each item in Dic
response.write("Item: " & item & " |Keys: " & Dic(item) &"<br/>")
next
Ambos codigos desplegan lo siguiente:
Item: uno |Keys: Hola
Item: dos |Keys: Adios
Y ya. Creo que sabes como deplegar los datos que contiene un arreglo.
Saludos.