<%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<% Response.Expires = 0 %>
<% if Session("FONTSIZE") = "" then %>
<% else %>
<%
' strings for localization
Const L_ACCESSDENIED_TEXT="Access Denied"
Const L_ACCESS_TEXT="Access Methods"
Const L_ANON_TEXT="Allow Anonymous"
Const L_USERNAME_TEXT="User name:"
Const L_BROWSE_VALUE="Browse..."
Const L_PASSWORD_TEXT="Password:"
Const L_CHKPASSWORD_VALUE="Check Password"
Const L_PASSSYNCH_TEXT="Enable Automatic Password Synchronization"
Const L_SELECTACCESS_TEXT="Select one or more Access Methods for this resource."
Const L_ACCOUNTUSED_TEXT = "Anonymous account used:"
Const L_NOUSERNAME_TEXT="No User Name/Password required"
Const L_BASIC_TEXT="Basic Authentication"
Const L_USERNAMEREQUIRED_TEXT="User Name and Password required when"
Const L_ANONDISABLED_TEXT="Allow Anonymous is disabled"
Const L_ACCESSRESTRICTED_TEXT="Access is restricted using NTFS Access Control Lists"
Const L_PASSWORDCLEAR_TEXT="Note: Password is sent In clear text"
Const L_DEFAULTDOMAIN_TEXT="Default domain for basic authentication:"
Const L_ENTERDOMAIN_TEXT="Enter the default logon domain:"
Const L_REQUIRESCLIENT_TEXT="(Requires clients support)"
Const L_NTLM_TEXT="Windows NT Challenge/Response"
Const L_PASSWORDENCRYPTED_TEXT="Note: Password is sent Encrypted"
Const L_ENABLESSL_TEXT="Enable SSL Client Authentication"
Const L_REQUIRESCERT_TEXT="(requires server certification)"
Const L_REQUIRESSL_TEXT="Require SSL Client Authentication"
Const L_ENABLECLIENTMAPPINGS_TEXT="Enable Client Certificate Mapping to Windows NT User Accounts"
Const L_CLIENTMAPPINGS_VALUE="Client Mappings..."
Const L_CERTAUTH_VALUE="Certificate Authorities..."
Const L_EDIT_TEXT = "Edit..."
Const L_OK_TEXT="OK"
Const L_HELP_TEXT="Help"
Const L_CANCEL_TEXT="Cancel"
Const L_SAVING_TEXT="Saving"
Const L_BASICWARNING1_TEXT = "The authentication option you have selected results in \rpasswords being transmiited over the network without data \rencryption. "
Const L_BASICWARNING2_TEXT = "Someone attempting to compromise your \rsystem security could use a protocol analyzer to examine \ruser passwords during the authentication process. "
Const L_BASICWARNING3_TEXT = "For \rmore detail on user authentication, consult the online help. \rThis warning does not apply to HTTPS (or SSL) connections."
Const L_BASICWARNING4_TEXT = "\r\rAre you sure you want to continue?"
On Error Resume Next
Dim path, currentobj
path=Session("dpath")
Session("path")=path
Session("SpecObj")=""
Session("SpecProps")=""
Set currentobj=GetObject(path)
%>
New