<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% if Session("FONTSIZE") = "" then %> <% else %> <% Const L_DOCUMENTS_TEXT="Documents" Const L_ENABLEDEFAULT_TEXT="Enable default document" Const L_MULTIDOC_TEXT="Multiple documents may be entered in a comma separated list." Const L_DEFAULTDOC_TEXT="Default document name:" Const L_ENABLEDOCFOOTER_TEXT="Enable document footer" Const L_DOCFOOTER_TEXT="Document footer path:" Const L_PERFORMANCE_WARNINGMESSAGE="PERFORMANCE WARNING!\r\rDocument footers provide an easy way to have the same \rcontent appear on the bottom of each page, however on a \rheavily accessed server, this could cause performance \rdegradation. \r\rAre you sure you want to use Document Footer?" Const L_BROWSE_TEXT = "Browse..." On Error Resume Next Dim path, currentobj path=Session("dpath") Session("path")=path Session("SpecObj")="" Session("SpecProps")="" Set currentobj=GetObject(path) %> <% if Session("canBrowse") then %> <% end if %> <%= L_DOCUMENTS_TEXT %>
<%= checkbox("EnableDefaultDoc","disableDefault(this.checked,document.userform.DefaultDoc, document.userform.hdnDefaultDoc);",false) %> <%= L_ENABLEDEFAULT_TEXT %>

<%= L_MULTIDOC_TEXT %>

<%= L_DEFAULTDOC_TEXT %>  <%= text("DefaultDoc",50,"enableDefault(this,document.userform.chkEnableDefaultDoc);" ,"","",true,false) %>
<%= checkbox("EnableDocFooter","disableDefault(this.checked,document.userform.DefaultDocFooter, document.userform.hdnDefaultDocFooter);warn();",false) %> <%= L_ENABLEDOCFOOTER_TEXT %>
<%= L_DOCFOOTER_TEXT %>     <%= text("DefaultDocFooter",50,"enableDefault(this, document.userform.chkEnableDocFooter);chkPath(this);" ,"","",true,false) %>

<% if Session("canBrowse") then %> <% end if %>

<% end if %>