<%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<% Response.Expires = 0 %>
<% if Session("FONTSIZE") = "" then %>
<% else %>
<%
Const L_NOTIMPLEMENTED_ERRORMESSAGE="This feature is not yet implemented."
Const L_SECURE_TEXT="Secure Communications"
Const L_ONCEKEYCERT_TEXT="Once a valid Key Certificate from a Certificate Authority is installed on this Virtual Server, you can require that access to this Virtual Directory take place on a secure channel."
Const L_USEKEYMANAGER_TEXT = "Use Key Manager to create new Key requests and manage your installed Key Certificates."
Const L_REQUIRESECCHANNEL_TEXT="Require Secure Channel when accessing this resource"
Const L_CLIENTCERT_TEXT = "Client Certificate Authentication"
Const L_DONOTACCEPT_TEXT = "Do not accept Client Certificates"
Const L_ACCEPT_TEXT = "Accept Certificates"
Const L_REQUIRE_TEXT = "Require Client Certificates"
Const L_ENABLEMAPPING_TEXT = "Enable Client Certificate Mapping"
Const L_MAPDESC_TEXT = "Client Certificates can be mapped to Windows NT User Accounts. This allows access control to resources using Client Certificates. You can edit the mappings using MMC."
Const L_IFSECURECHANNEL_TEXT="If a Secure Channel is required for this Virtual Directory, access can also be limited by the strength of the encryption. Default strength is 40-bit encryption."
Const L_REQUIRE128_TEXT="Require 128-bit Encryption"
Const L_OK_TEXT="OK"
Const L_HELP_TEXT="Help"
Const L_CANCEL_TEXT="Cancel"
On Error Resume Next
Dim path, currentobj
path=Session("dpath")
Session("path")=path
Set currentobj=GetObject(path)
Session("SpecObj")=""
Session("SpecProps")=""
%>
<% end if %>