<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% if Session("FONTSIZE") = "" then %> <% else %> <% Const L_ADDWEBUSERS_TEXT = "Web Site Operators" Const L_ADDFTPUSERS_TEXT = "FTP Site Operators" Const L_LISTNAMES_TEXT = "Grant operator privileges on this site only to these Windows NT User Accounts:" Const L_BUILTIN_TEXT = "BUILTIN\" Const L_ENTERTRUSTEE_TEXT = "Enter a domain and user name." Const L_ADMINISTRATORS_TEXT = "Administrators" Const L_DELERROR_TEXT = "You may not delete local administrator privileges from this site." Const L_SAMPTRUSTEE_TEXT = "DOMAIN\\username" Const L_SELECTITEM_TEXT = "You must first choose a user from the list to remove." Const L_EVERYONE_TEXT = "Everyone" On Error Resume Next Dim path, currentobj path=Session("spath") Session("path")=path Set currentobj=GetObject(path) Session("SpecObj")="Operators" Session("SpecProps")="Trustee" %> <% if Session("stype")="www" then %> <%= L_ADDWEBUSERS_TEXT %>

<% else %> <%= L_ADDFTPUSERS_TEXT %>

<% end if %> <%= L_LISTNAMES_TEXT %>

<% end if %>