The Keys method can be used to retreive all the keys in a Dictionary object
and place them in an array. We can then iterate through the keys using a For....Next loop.

The following code demonstrates this, using the Dictionary object's Count property to determine the amount of key/item pairs.

Code:
<%
dim guitars, arrayKeys, i
set guitars=CreateObject("Scripting.Dictionary")
guitars.Add "e", "Epiphone"
guitars.Add "f", "Fender"
guitars.Add "g", "Gibson"
guitars.Add "h", "Harmony"
arrayItems = guitars.Keys
for i = 0 to guitars.Count -1
     Response.Write "<br>Key = " & arrayItems(i) & "Item = "  & _                                             guitars.Item(arrayKeys(i))
next
%>

Output:
"Key = e Item = Epiphone"
"Key = f  Item = Fender"
"Key = g  Item = Gibson"
"Key = h  Item = Harmony"