Put value into array

[jasonhuibers]

for each name in table
response.write "**" & table(name)
next

How can I put this value into an array?

 

[Sheco]

IndexCount = 0
for each name in table
IndexCount = IndexCount + 1
Redim Preserve MyArray(IndexCount)
MyArray(IndexCount) = table(name)
Response.Write "**" & MyArray(IndexCount)
next

 

[jasonhuibers]

Thanks