<%@ Language=VBScript %> <% Option Explicit %> <% '******************************************************* ' VP-ASP 4.0 display current session variables '****************************************************** const TableDef="
" Const TableDefEnd="
" Const TableRow="" const TableRowEnd="" const TableColumn="" const tableColumnEnd="" ' pageheader FormatSessionVariables pagetrailer Sub FormatSessionVariables dim strname response.write "
" Response.Write xfont & "There are " & Session.Contents.Count & " Session variables

" If Session.Contents.Count= 0 then exit sub Response.write tabledef For Each strName in Session.Contents 'Is this session variable an array? If IsArray(Session(strName)) then 'If it is an array, loop through each element one at a time FormatSessionRow strname, "Array " Else 'We aren't dealing with an array, so just display the variable FormatSessionRow strName,Session.Contents(strName) End If Next Response.write Tabledefend end sub Sub FormatSessionRow (fieldname, fieldvalue) Response.Write TableRow Response.write TableColumn & fieldname & TableColumnEnd Response.write TableColumn & fieldvalue & tableColumnEnd & TableRowEnd end sub ' Sub PageHeader %> VP-ASP Shopping Cart 4.0 <% end sub Sub PageTRailer %> <% end sub Sub debugwrite (msg) response.write msg & "
" end sub %>