<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% Const L_ASP_TEXT = "Active Server Pages" Const L_APPCONFIG_TEXT = "Application Configuration" Const L_ENABLESESSION_TEXT = "Enable session state" Const L_SESSIONTO_TEXT = "Session timeout:" Const L_MINUTES_TEXT = "minutes" Const L_ENABLEBUFF_TEXT = "Enable buffering" Const L_ENABLEPATHS_TEXT = "Enable parent paths" Const L_WRITEFAILED_TEXT = "Write unsuccessful client requests to event log" Const L_EXCEPTIONCATCH_TEXT = "Enable debug exception catching" Const L_NUMENGINESCACHED_TEXT = "Number of script engines cached:" Const L_DEFAULTLANG_TEXT = "Default ASP language:" Const L_SCRIPTTO_TEXT = "Script timeout:" Const L_SECONDS_TEXT = "seconds" Const L_SCRIPTCACHE_TEXT = "Script File Cache" Const L_NOCACHE_TEXT = "Do not cache ASP files" Const L_CACHEASP_TEXT = "Cache all requested ASP files" Const L_ASPCACHESIZE_TEXT = "Max ASP files cached:" Const L_MB_TEXT = "MB" Const L_DBG_TEXT = "ASP Debugging" Const L_DEBUGGING_TEXT = "Debugging Flags" Const L_ENABLESSDEBUG_TEXT="Enable ASP server-side debugging" Const L_ENABLECLIENTDEBUG_TEXT="Enable ASP client-side debugging" Const L_ENABLEJAVADEBUG_TEXT="Enable Java server-side debugging" Const L_SCRIPTERRMSG_TEXT = "Script Error Messages" Const L_SENDDETAILED_TEXT = "Send detailed ASP error messages to client." Const L_SENDTEXT_TEXT ="Send text error message to client:" Const L_PROCESSOPTIONS_TEXT = "Process Options" On Error Resume Next Dim path, currentobj path=Session("dpath") Session("path")=path Session("SpecObj")="" Session("SpecProps")="" Set currentobj=GetObject(path) %>
<%= L_APPCONFIG_TEXT %>

<%= checkbox("AspAllowSessionState", "", false) %> <%= L_ENABLESESSION_TEXT %>
     <%= L_SESSIONTO_TEXT %> <%= text("AspSessionTimeout",10,"","", "",False,False) %> <%= L_MINUTES_TEXT %>
<%= checkbox("AspBufferingOn", "", false) %> <%= L_ENABLEBUFF_TEXT %>
<%= checkbox("AspEnableParentPaths", "", false) %> <%= L_ENABLEPATHS_TEXT %>
<%= L_DEFAULTLANG_TEXT %> <%= text("AspScriptLanguage",30,"","", "",False,False) %>

<%= L_SCRIPTTO_TEXT %> <%= text("AspScriptTimeout",10,"","", "isNum(this,1,4294967295);",False,False) %> <%= L_SECONDS_TEXT %>

<% if not Session("IsIE") then %>

  <% end if %>
<%= L_DEBUGGING_TEXT %>

<%= checkbox("AppAllowDebugging","",false) %><%= L_ENABLESSDEBUG_TEXT %>

<%= checkbox("AppAllowClientDebug","",false) %><%= L_ENABLECLIENTDEBUG_TEXT %>

<%= L_SCRIPTERRMSG_TEXT %>

<%= printradio("rdoAspScriptErrorSentToBrowser", currentobj.AspScriptErrorSentToBrowser, "document.userform.AspScriptErrorSentToBrowser.value='True'",False) %> <%= L_SENDDETAILED_TEXT %>
<%= printradio("rdoAspScriptErrorSentToBrowser", not currentobj.AspScriptErrorSentToBrowser, "document.userform.AspScriptErrorSentToBrowser.value='False'",False) %> <%= L_SENDTEXT_TEXT %>
<% if Session("setProcOpts") then %> <% if not Session("IsIE") then %>

  <% end if %>
<%= L_PROCESSOPTIONS_TEXT %>

<%= checkbox("AspLogErrorRequests", false, "") %> <%= L_WRITEFAILED_TEXT %>
<%= checkbox("AspExceptionCatchEnable", false, "") %> <%= L_EXCEPTIONCATCH_TEXT %>

<%= L_NUMENGINESCACHED_TEXT %><%= text("AspScriptEngineCacheMax",10,"","", "",False,False) %>

<%= L_SCRIPTCACHE_TEXT %>

<%= printradio("rdoAspScriptFileCacheSize", currentobj.AspScriptFileCacheSize = 0 , "",False) %> <%= L_NOCACHE_TEXT %>
<%= printradio("rdoAspScriptFileCacheSize", currentobj.AspScriptFileCacheSize , "",False) %> <%= L_CACHEASP_TEXT %>
<%= printradio("rdoAspScriptFileCacheSize", (currentobj.AspScriptFileCacheSize > 0) , "",False) %> <%= L_ASPCACHESIZE_TEXT %> <%= text("AspScriptFileCacheSize",5,"","", "",False,False) %>

<% end if %>