"Don Grover" <sp******@assoft.com.au> wrote in message
news:ub**************@TK2MSFTNGP09.phx.gbl...
Does any one have an asp page they can share that returns current
session details, cookies etc.
I can't get session arrays to return in a page.
<%
Function DebugDump()
Dim item
Dim o
o=""
o=o & "<table>"
' o=o & "<tr><th colspan='2'>Attributes</th></tr>"
' For Each item in attributes
' o=o & "<tr><td>" & item & "</td><td>" & attributes(item) &
"</td></tr>"
' Next
o=o & "<tr><th colspan='2'>QueryString</th></tr>"
For Each item in Request.QueryString
o=o & "<tr><td>" & item & "</td><td>" & Request.QueryString(item) &
"</td></tr>"
Next
o=o & "<tr><th colspan='2'>Form</th></tr>"
For Each item in Request.Form
o=o & "<tr><td>" & item & "</td><td>" & Request.Form(item) &
"</td></tr>"
Next
o=o & "<tr><th colspan='2'>Cookies</th></tr>"
For Each item in Request.Cookies
o=o & "<tr><td>" & item & "</td><td>" & Request.Cookies(item) &
"</td></tr>"
Next
o=o & "<tr><th colspan='2'>Client Certificate</th></tr>"
For Each item in Request.ClientCertificate
o=o & "<tr><td>" & item & "</td><td>" &
Request.ClientCertificate(item) & "</td></tr>"
Next
o=o & "<tr><th colspan='2'>ServerVariables</th></tr>"
For Each item in Request.ServerVariables
o=o & "<tr><td>" & item & "</td><td>" & Request.ServerVariables(item)
& "</td></tr>"
Next
o=o & "<tr><th colspan='2'>Session</th></tr>"
For Each item in Session.Contents
If IsObject(Session.Contents(item)) Then
o=o & "<tr><td>" & item & "</td><td>[Object]</td></tr>"
Else If IsArray(Session.Contents(item)) Then
o=o & "<tr><td>" & item & ":</td><td>[Array]</td></tr>"
Dim ArrayItem
For Each ArrayItem In Session.Contents(item)
o=o & "<tr><td> </td></td><td>" & ArrayItem & "</td></tr>"
Next
Else
o=o & "<tr><td>" & item & "</td><td>" & Session.Contents(item) &
"</td></tr>"
End If
End If
Next
o=o & "</table>"
DebugDump=o
End Function
%>
