<%@ LANGUAGE = VBScript %> <% Option Explicit %> <% if Session("FONTSIZE") = "" then %> <% else %> <% On Error Resume Next Const STR_FOOTER_PREFIX = "FILE:" Dim path, currentobj path=Session("dpath") Session("path")=path Session("SpecObj")="" Session("SpecProps")="" Set currentobj=GetObject(path) function strStripFilePrefix( strFooterPath ) if InStr( strFooterPath, STR_FOOTER_PREFIX ) > 0 then strStripFilePrefix = Mid( strFooterPath, Len(STR_FOOTER_PREFIX) + 1 ) else strStripFilePrefix = strFooterPath end if end function %> <% if Session("canBrowse") then %> <% end if %> " TOPMARGIN=5 TEXT="#000000" LINK="#FFFFFF" >

<%= sFont("","","",True) %> <%= L_DOCUMENTS_TEXT %>

<%= checkbox("EnableDefaultDoc","disableDefault(this.checked,document.userform.DefaultDoc, document.userform.hdnDefaultDoc);",false) %> <%= L_ENABLEDEFAULT_TEXT %>

HEIGHT=2 BORDER=0 ALIGN="middle">

<%= sFont("","","",True) %> <%= L_DEFAULTDOC_TEXT %> (<%= L_MULTIDOC_TEXT %>)
<%= text("DefaultDoc",L_TEXTWIDTH_NUM,"enableDefault(this,document.userform.chkEnableDefaultDoc);" ,"","",true,false) %>

<%= sFont("","","",True) %> <%= checkbox("EnableDocFooter","disableDefault(this.checked,document.userform.hdnDefaultDocFooter, document.userform.hdnhdnDefaultDocFooter);warn();",false) %> <%= L_ENABLEDOCFOOTER_TEXT %> HEIGHT=2 BORDER=0 ALIGN="middle"> <% if Session("canBrowse") then %>

<%= sFont("","","",True) %> <%= L_DOCFOOTER_TEXT %>
<%= writeinputbox( 0, "TEXT", "hdnDefaultDocFooter", strStripFilePrefix(currentobj.Get("DefaultDocFooter")), L_TEXTWIDTH_NUM, L_TEXTWIDTH_NUM, "enableDefault(this, document.userform.chkEnableDocFooter);","","checkValueChange(this);",true,false,false,false ) %>
<%= sFont("","","",True) %>

<% end if %>

<% end if %>