' Get the context object
Dim oc As ObjectContext
Dim str As String
Set oc = GetObjectContext()
' Get the Response object
' Print number of properties
oc("Response").Write "<p>Number of properties: " & oc.Count & "</p>"
' Iterate over properties collection and print the
' names of the properties
For Each prop In oc
oc("Response").Write "<p>" & prop & "</p>"
Next