Standard ASP Collections

Application Variable Collection


<%
On Error Resume Next
For Each Item in Application.Contents
  Response.Write Item & " = " & Application.Contents(Item) & "<BR>"
  For Each ItemKey in Application.Contents(Item)
    Response.Write "Sub Item: " & Item & " (" & ItemKey & ") : " _
    & Application.Contents(Item)(ItemKey) & "<br>"
  Next
Next ' Key
if err.no > 0 Then Display "You must upgrade to IIS 4.0 in order to use the Application Collection<br>"
%>

Session Variable Collection


<%
On Error Resume Next
For Each Item in Session.Contents
  Response.write Item & " = " & Session.Contents(Item) & "<BR>"
  For Each ItemKey in Session.Contents(Item)
    Response.Write "Sub Item: " & Item & " (" & ItemKey & ") : " _
    & Session.Contents(Item)(ItemKey) & "<br>"
  Next
Next
if err.no > 0 Then Display "You must upgrade to IIS 4.0 in order to use the Session Collection<br>"
%>

QueryString Collection


<%
For Each Item in Request.QueryString
  For iCount = 1 to Request.QueryString(Item).Count
    Response.Write Item & " = " & Request.QueryString(Item)(iCount) & "<br>"
  Next
Next
%>

Form Collection



<%
For Each Item in Request.Form
  For iCount = 1 to Request.Form(Item).Count
    Response.Write Item & " = " & Request.Form(Item)(iCount) & "<br>"
  Next
Next
%>

Cookies Collection



<%
For Each Item in Request.Cookies
  If Request.Cookies(Item).HasKeys Then
    'use another For...Each to iterate all keys of dictionary
    For Each ItemKey in Request.Cookies(Item)
      Response.Write "Sub Item: " & Item & "(" & ItemKey & ")"
      Response.Write " = " & Request.Cookies(Item)(ItemKey)
    Next
  Else
    'Print out the cookie string as normal
    Response.Write Item & " = " & Request.Cookies(Item) & "<br>"
  End If
Next
%>

ClientCertificate Collection


<%
For Each Item in Request.ClientCertificate
  For iCount = 1 to Request.ClientCertificate(Item).Count
    Response.Write Item & " = " & Request.ClientCertificate(Item)(iCount) _
    & "<br>"
  Next
Next
%>

ServerVariables Collection


<%
For Each Item in Request.ServerVariables
  For iCount = 1 to Request.ServerVariables(Item).Count
    Response.Write Item & " = " & Request.ServerVariables(Item)(iCount) _
    & "<br>"
  Next
Next
%>

Hosted by www.Geocities.ws