"Don Grover" <sp******@assof t.com.au> wrote in message
news:ub******** ******@TK2MSFTN GP09.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'>Att ributes</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'>Que ryString</th></tr>"
For Each item in Request.QuerySt ring
o=o & "<tr><td>" & item & "</td><td>" & Request.QuerySt ring(item) &
"</td></tr>"
Next
o=o & "<tr><th colspan='2'>For m</th></tr>"
For Each item in Request.Form
o=o & "<tr><td>" & item & "</td><td>" & Request.Form(it em) &
"</td></tr>"
Next
o=o & "<tr><th colspan='2'>Coo kies</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'>Cli ent Certificate</th></tr>"
For Each item in Request.ClientC ertificate
o=o & "<tr><td>" & item & "</td><td>" &
Request.ClientC ertificate(item ) & "</td></tr>"
Next
o=o & "<tr><th colspan='2'>Ser verVariables</th></tr>"
For Each item in Request.ServerV ariables
o=o & "<tr><td>" & item & "</td><td>" & Request.ServerV ariables(item)
& "</td></tr>"
Next
o=o & "<tr><th colspan='2'>Ses sion</th></tr>"
For Each item in Session.Content s
If IsObject(Sessio n.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.Content s(item)
o=o & "<tr><td> </td></td><td>" & ArrayItem & "</td></tr>"
Next
Else
o=o & "<tr><td>" & item & "</td><td>" & Session.Content s(item) &
"</td></tr>"
End If
End If
Next
o=o & "</table>"
DebugDump=o
End Function
%>
