Current Server Contents

<% Sub SetSess (sessname, sessvalue, sesstimeout) Session(sessname) = sessvalue if isnumeric(sesstimeout) then Session.Timeout= sesstimeout end if End Sub Sub SetApp (appname, appvalue) Application.Lock Application(appname) = appvalue Application.Unlock End Sub sessname = Request.Form("sessname") sessvalue = Request.Form("sessvalue") sesstimeout = Request.Form("sesstimeout") appname = Request.Form("appname") appvalue = Request.Form("appvalue") if sessname <> "" and sessvalue <> "" then SetSess sessname, sessvalue, sesstimeout sessname = "" 'Reset values sessvalue = "" end if if appname <> "" and appvalue <> "" then SetApp appname, appvalue appname = "" 'Reset values appvalue = "" end if ses = request.querystring("ses") 'grabs session variable to remove session.contents.remove(ses) 'removes variable apl = request.querystring("apl") application.contents.remove(apl) if Session.Contents.Count = 0 then response.write "There are no items in Session.Contents

" end if if Session.Contents.Count > 0 then response.write "All active items in Session.Contents:
" dim z, itm2, val2, itm2Del for z = 1 to Session.Contents.Count val2 = Session.Contents.Item(z) itm2 = Session.Contents.Key(z) itm2Del = server.URLEncode(itm2)'Encode for proper deletion response.write "Item is: " & itm2 & " " response.write "Value is: " & val2 & " " response.write "Remove Item
" next end if response.write "

" if Application.Contents.Count = 0 then response.write "There are no items in Application.Contents

" end if if Application.Contents.Count > 0 then response.write "All active items in Application.Contents:
" dim x, itm, val, itmDel for x = 1 to Application.Contents.Count if not isArray(Application.Contents.Item(x)) then val = Application.Contents.Item(x) itm = Application.Contents.Key(x) itmDel = server.URLEncode(itm)'Encode for proper deletion response.write "Item is: " & itm & " " response.write "Value is: " & val & " " response.write "Remove Item
" else response.write "

Application Array:
" for i = 0 to UBound(Application.Contents.Item(x),2) 'Only works with 2 dim array for y = 0 to UBound(Application.Contents.Item(x),2) if Application.Contents.Item(x)(y,i) <> "" then response.write "Item: " & Application.Contents.Item(x)(y,i) & " " 'response.write "Value: " & Application.Contents.Key(x)(y,i) & "
" end if next next response.write "

" end if next end if const ceCertPresent = 1 const ceUrecognizedIssuer = 2 for each key in Request.ClientCertificate response.write "All active items in Request.ClientCertificate:
" response.write "Key is " response.write "" & Request.ClientCertificate(key) & "" next dim fso, drive, drives set fso = Server.CreateObject("Scripting.FileSystemObject") set drives= fso.Drives %>

Drives on Server

<%for each drive in drives%> <%if drive.isReady then%> <%end if%> <%next%>
DriveFileSystemAvail. Space
<%=drive.DriveLetter%> <%=drive.FileSystem%> <%=drive.AvailableSpace%>

<% dim conn, mdc set conn = server.createobject("ADODB.Connection") mdc = conn.version Response.Write "MDAC (ADO) version is: " & mdc & "" 'response.write "MDAC Connection Version is: " & mdc & "
" set conn = nothing %>

Items in Request.ServerVariables(key)

<% for each key in Request.ServerVariables response.write "" next %>
Variable Name Key Value
" & key & "" if Request.ServerVariables(key) = "" then response.write " " else response.write Request.ServerVariables(key) end if response.write "

Create A Session Variable
Variable Name:   Variable Value:
Session Variable Timeout (Minutes):

Create An Application Variable
Variable Name:   Variable Value: