<%
L_PWAUTH_TEXT = "Password Authentication Method"
L_AUTHMETHOD_TEXT = "View or set the password authentication method used for non-anonymous access to this resource."
L_SECOMM_TEXT = "Secure Communictions"
L_VIEWSECOMM_TEXT = "View or set the secure communications method used when the virtual directory is accessed."
L_EDIT_TEXT = "Edit..."
L_TCPRESTRICT_TEXT = "TCP/IP Access Restrictions"
L_BYDEFAULT_TEXT = "By default, all computers are:"
L_GRANTED_TEXT = "Granted access"
L_DENIED_TEXT = "Denied access"
L_EXCEPTBELOW_TEXT ="Except those listed below:"
L_ENTERANINT_TEXT = "Please enter an integer."
L_NEWAPPLICATION_TEXT = "New Application"
L_AUTHENTICATE_TEXT = "Authenticate"
L_COMMUNICATIONS_TEXT = "Communications"
L_ACCESS_TEXT = "Access"
L_IP_TEXT = "IP Address"
L_SUBNET_TEXT = "Subnet Mask"
L_DOMAIN_TEXT = "Domain"
L_ACCESSDENIED_TEXT = "Access Denied"
L_ACCESSDENIEDERROR_TEXT = "401 access denied"
%>
<% If Request.ServerVariables("LOGON_USER") = "" Then %>
<% Response.Status = L_ACCESSDENIEDERROR_TEXT %>
<% Response.write L_ACCESSDENIED_TEXT%>
<% Else %>
<%
function heading(width,thestring)
width = width - len(thestring)
for i = width to 0 step -1
thestring = thestring + " "
next
heading = thestring
end function
REM path = trim(Session("path"))
REM set currentobj = GetObject(path)
set currentObj = Server.CreateObject("Nntpadm.VirtualServer.1")
On Error Resume Next
%>
<% end if %>