<%@ LANGUAGE=VBScript %> <% Option Explicit %> <% Response.Expires = 0 %> <% if Session("FONTSIZE") = "" then %> <% else %> <% Const L_ACCESS_TEXT="IP Address and Domain Name Restrictions" Const L_ENABLEANON_TEXT="Grant or deny access to this resource using IP Addresses or Internet Domain Names" Const L_PWAUTH_TEXT="Anonymous Access and Authentication Control" Const L_AUTHMETHOD_TEXT="Enable anonymous access and edit the authentication methods for this resource." Const L_SECCOMM_TEXT="Secure Communications" Const L_VIEWSECOMM_TEXT="View or set the secure communications method used when the virtual directory is accessed." Const L_EDIT_TEXT="Edit..." Const L_ACCESSDENIED_TEXT="Access Denied" On Error Resume Next Dim path, currentobj path=Session("dpath") Set currentobj=GetObject(path) %>

<% if Session("stype")="www" then %>

<%= L_PWAUTH_TEXT %>

<% if Session("FONTSIZE")="LARGE" then %> <% else %> <% end if %>    <%= L_AUTHMETHOD_TEXT %>

---

<%= L_SECCOMM_TEXT %>

<% if Session("FONTSIZE")="LARGE" then %> <% else %> <% end if %>    <%= L_VIEWSECOMM_TEXT %> <% end if %> <%= L_ACCESS_TEXT %> <% if Session("FONTSIZE")="LARGE" then %> <% else %> <% end if %>    <%= L_ENABLEANON_TEXT %>

<% end if %>