<% Option Explicit %> <% shopcheckadmin "" '*************************************************************** ' VP-ASP 5.00 debugging tool Lists Session and application variables ' Feb 4, 2003 '**************************************************************** pageheader Formatapplicationvariables FormatSessionVariables Formatcookies pagetrailer Sub FormatSessionVariables dim strname shopwriteheader Session.Contents.Count & " " & getlang("langSessionVariables") 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 FormatCookies dim key, subkey, docookie docookie=request("cookie") if docookie="" then exit sub response.write "
Cookies" response.write tabledef for each key in Request.Cookies if Request.Cookies(key).HasKeys then for each subkey in Request.Cookies(key) Response.write tablerow & tablecolumn Response.write "" & trim(key) & " (" & subkey & ")" Response.write "
" if Request.Cookies(key)(subkey) = "" then Response.Write " " else Response.Write CStr(Request.Cookies(key)(subkey)) end if Response.write tablecolumnend & tablerowend next else response.write tablerow & tablecolumn Response.write "" & trim(key) & "" Response.write "
" if Request.Cookies(key) = "" then Response.Write " " else Response.Write CStr(Request.Cookies(key)) end if response.write tablecolumnend & tablerowend end if next Response.write tabledefend end sub Sub FormatApplicationVariables on error resume next dim key dim suffixl dim tempname, partname, realname tempname="_" & xshopid tempname=ucase(tempname) suffixl=len(tempname) response.write "
" Response.write largeinfofont response.write "
" & getlang("langShopConfiguration") & " - " & xshopid Response.write "
" & getlang("langExportSetTable") & xconfigtable & largeinfoend & "

" response.write tabledef for each key in Application.Contents partname=ucase(right(key,suffixl)) ' debugwrite partname & " len=" & suffixl & " temp=" & tempname If partname=tempname then realname=left(key, len(key)-suffixl) realname=key response.write tablerow & tablecolumn Response.write "" & trim(realname) & "" & tableColumnend Response.write TableColumn if isnull(Application.Contents(key)) then Response.Write " " else Response.Write CStr(Application.Contents(key)) end if Response.write tablecolumnend & tablerowend end if next Response.write tabledefend end sub ' Sub PageHeader %> VP-ASP Shopping Cart 5.00 <% end sub Sub PageTRailer %> <% end sub Sub debugwrite (msg) response.write msg & "
" end sub %>