<% @ LANGUAGE=VBScript %> <% option explicit %> FORMS REPORTER

FORM - SESSION
REPORTER

by
Trevor Burgess
September 2004


<%=""%> <%=""%> <%=""%> <%=""%> <% Dim sKey, sCount, sValue For each sCount in Session.Contents Response.Write("") Response.Write("") Next Response.Write("
SESSIONS
Session
name
Session
value
" & sCount & "" & session(sCount) & "


") '========================================================================================%> <% Dim postUsed postUsed = UCase(Request.ServerVariables("HTTP_METHOD")) Response.Write ("Method used = ") Response.Write (postUsed) Response.Write ("
") %> <% ' === Obtain the Record String regardless of a POST or GET method. Dim objRS IF UCase(Request.ServerVariables("HTTP_METHOD")) = "GET" Then Set objRS = Request.QueryString Else Set objRS = Request.Form End IF %> <% Dim fieldCount ' === Get number of fields passed fieldCount = objRS.Count Response.Write ("Number of Fields = ") Response.Write(fieldCount) Response.Write("
") %> <% Dim i, fValue, fName Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") for i = 1 to fieldCount Response.Write ("") next Response.Write ("
Field
name
Field
value
") ' === Find field Name Response.Write objRS.Key(i) Response.Write (" ") ' === Find field Value Response.Write objRS.Item(i) Response.Write(" 
") %>