如何遍历经典ASP中的集合？

<%
Dim myCollection
Set myCollection = CreateObject("Scripting.Dictionary")

myCollection.Add "key1", "value1"
myCollection.Add "key2", "value2"
myCollection.Add "key3", "value3"

For Each item In myCollection
    Response.Write("Key: " & item & " - Value: " & myCollection(item) & "<br>")
Next
%>