<%@ LANGUAGE=VBScript %>
<% Option Explicit %>
<% Response.Expires = 0 %>
<% if Session("FONTSIZE") = "" then %>
<% else %>
<%
Const L_PWAUTH_TEXT="Password Authentication Method"
Const L_AUTHMETHOD_TEXT="View or Set the password authentication method used for non-anonymous access to this resource."
Const L_SECOMM_TEXT="Secure Communictions"
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_TCPRESTRICT_TEXT="TCP/IP Access Restrictions"
Const L_BYDEFAULT_TEXT="By default, all computers are:"
Const L_GRANTED_TEXT="Granted access"
Const L_DENIED_TEXT="Denied access"
Const L_EXCEPTBELOW_TEXT="Except those listed below:"
Const L_ACCESS_TEXT="Access"
Const L_IP_TEXT="IP Address"
Const L_SubNET_TEXT="Subnet Mask"
Const L_DOMAIN_TEXT="Domain"
Const L_ACCESSDENIED_TEXT="Access Denied"
Const L_SELECTITEM_TEXT="Please select an item to delete."
On Error Resume Next
Dim path, currentobj
path=Session("dpath")
Set currentobj=GetObject(path)
function heading(width,thestring)
Dim i
width=width - len(thestring)
for i=width to 0 step -1
thestring=thestring & " "
Next
heading=thestring
end function
%>
<% end if %>