<% For Each r In Request.QueryString Response.Write "Request("""&r&""") = " & Request(r) Response.Write "<p>" Next %>
<% For i = 1 To Request.QueryString.Count Response.Write "Request("""&Request.QueryString.Key(i)&""") = " & Request.QueryString(Request.QueryString.Key(i)) Response.Write "<p>" Next %>
<% Session("key1")="value1" Session("key2")="value2" For Each s In Session.Contents Response.Write "Session("""&s&""") = " & Session(s) Response.Write "<p>" Next %>
<% Application("key1")="value1" Application("key2")="value2" For Each a In Application.Contents Response.Write "Application("""&a&""") = " & Application(a) Response.Write "<p>" Next %>