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

" & largeinfoend 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) dim prefix If lang="" then prefix=left(fieldname,4) If lcase(prefix)="lang" then exit sub end if 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 %>