' 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