<%@ Language=VBScript %>
<%


on error resume next
for x = 0 to session.Contents.Count-1
Response.Write "

"
    Response.write session.Contents.key(x) & " - "
    Response.write session.Contents.item(x) &  "

"
 next   
 

%>