This next code segment will print out all the values of the collection Contents.

.
.
Dim vItem 'Initialize a variant variable
For Each vItem In Application.Contents
Response.Write vItem& " : "
& Application.Contents(vItem) & "<br>"
Next  'vItem
.
.

The example above will print out the name of the Contents item followed by a colon followed by the item's value followed by an HTML break <br> command. The output displayed on the user's browser output will vary depending on values previously set, but it could appear something like this:

OrderNum : 1105
CustID : 503
OrderValue : 87.32