<%@ Language=VBScript %> <% %> SuperDebugger by SFASCIONESOFT <%dim n_session n_session = 0 For Each Item in session.Contents n_session = n_session + 1 Next %> <%dim n_appli n_appli = 0 For Each Item in Application.Contents n_appli = n_appli + 1 Next %>
<% dim updcampo dim counter dim val dim confronto For Each Item in session.Contents counter = counter + 1 confronto = 0 Response.write "" Response.write "" Response.write "" Response.write "" Next %> <% counter = 0 val = "" confronto = 0 For Each Item in Application.Contents counter = counter + 1 Response.write "" Response.write "" Response.write "" Response.write "" Next %>
Refresh | Print | Update | Reset | Close Session | 
 Variabili di Sessione (<%=n_session%>)   -   SessionID: <%=Session.SessionID%>
" Response.Write "" & Item & " " Response.write "
" if session.Contents(counter) <> "" then confronto = Instr(1,cstr(session.Contents(counter)),chr(34),1) val = replace(session.Contents(counter),chr(34),"") else val = session.Contents(counter) end if Response.Write " " if confronto >0 then Response.Write "(""_"")" 'Response.Write "
" & counter & " = " & session.Contents(counter) Response.write "
 Variabili di Applicazione  (<%=n_appli%>)
" Response.Write "" & Item & " " Response.write "
" if Application.Contents(counter) <> "" then confronto = Instr(1,cstr(Application.Contents(counter)),chr(34),1) val = replace(Application.Contents(counter),chr(34),"") else val = Application.Contents(counter) end if Response.Write " " if confronto >0 then Response.Write "(""_"")" 'Response.Write "
" & counter & " = " & Application.Contents(counter) Response.write "