<% aspinfo() Sub aspinfo() Dim strVariable, strASPVersion Dim strCookie, strKey, strSession 'Retrieve the version of ASP strASPVersion = ScriptEngine & " Version " & _ ScriptEngineMajorVersion & "." & _ ScriptEngineMinorVersion %> aspinfo()

ASP (<%= strASPVersion %>)


Server Variables

<% For Each strVariable In Request.ServerVariables Response.write("") Response.write("") Response.write("") Response.write("") Next 'strVariable %>
" & strVariable & "" & Request.ServerVariables(strVariable) & " 


Cookies

<% For Each strCookie In Request.Cookies If Not Request.Cookies(strCookie).HasKeys Then Response.write("") Response.write("") Response.write("") Response.write("") Else For Each strKey In Request.Cookies(strCookie) Response.write("") Response.write("") Response.write("") Response.write("") Next End If Next %>
" & strCookie & "" & Request.Cookies(strCookie) & " 
" & strCookie & "(" & strKey & ")" & Request.Cookies(strCookie)(strKey) & " 


Session Cookies

<% For Each strSession In Session.Contents Response.write("") Response.write("") Response.write("") Response.write("") Next %>
" & strSession & "" & Session(strSession) & " 


Other variables

Session.sessionid<%= Session.sessionid %>
Server.MapPath<%= Server.MapPath ("/") %>
<% End Sub %>