<%@ LANGUAGE=VBScript%> <% Option Explicit %> <% Response.Expires = 0 %> <% if Session("FONTSIZE") = "" then %> <% else %> <% Const L_ENTERINTEGER_ERRORMESSAGE = "Please enter an integer" Const L_APPMAPP_TEXT = "Application Mappings" Const L_CACHEISAPI_TEXT = "Cache ISAPI Applications" Const L_EXTENSION_TEXT = "Ext" Const L_EXEPATH_TEXT = "Executable Path" Const L_EXCLUSIONS_TEXT = "Exclusions" Const L_SCRIPTENGINE_TEXT = "Script Engine" Const L_CHKFILE_TEXT = "Check that file exists" Const L_SELECTITEM_TEXT="Select a application mapping to delete." Const L_LOADED_TEXT = "Loaded" Const L_LOADING_TEXT = "Loading" Const L_UNLOADED_TEXT = "Unloaded" Const L_UNLOADING_TEXT = "Unloading" On Error Resume Next dim path, currentobj path = Session("dpath") Session("path") = path Set currentobj = GetObject(path) Session("SpecObj")="" Session("SpecProps")="" function heading(width,thestring) dim i width = width - len(thestring) for i = width to 0 step -1 thestring = thestring & " " Next heading = thestring end function %> <%= L_APPMAPP_TEXT %>