The Items method can be used to retreive all the items in a Dictionary object
and place them in an array. We can then iterate through the items 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, arrayItems, i
set guitars=CreateObject("Scripting.Dictionary")
guitars.Add "e", "Epiphone"
guitars.Add "f", "Fender"
guitars.Add "g", "Gibson"
guitars.Add "h", "Harmony"
arrayItems = guitars.Items
for i = 0 to guitars.Count -1
     Response.Write "<br>" & arrayItems(i)
next
%>

Output:
"Epiphone"
"Fender"
"Gibson"
"Harmony"