Date-Time Values

Now: <%= Now %>

General Date: <%= FormatDateTime (Now, vbGeneralDate) %>
Long Date: <%= FormatDateTime (Now, vbLongDate) %>
Short Date: <%= FormatDateTime (Now, vbShortDate) %>

Long Time: <%= FormatDateTime (Now, vbLongTime) %>
ShortTime: <%= FormatDateTime (Now, vbShortTime) %>

Session Variable Collection

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

QueryString Collection

<% For Each Item in Request.QueryString For iCount = 1 to Request.QueryString(Item).Count Response.Write Item & " = " & Request.QueryString(Item)(iCount) & "
" 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) & "
" 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) & "
" 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) & "
" 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) & "
" Next Next %>