L_SECURESOCKETLAYER_TEXT = "Secure Sockets Layer 3.0 Client Certificate required to access this resource. Client Mapping maps Client Certificates to Windows NT User Accounts. Certificate Authorities adds new CAs."
L_CLIENTMAPPINGS_TEXT = "Client Mappings..."
L_CERTAUTH_TEXT = "Certificate Authorities..."
L_OK_TEXT = "OK"
L_HELP_TEXT = "Help"
L_CANCEL_TEXT = "Cancel"
L_CHECKBASIC_TEXT = "Basic Authentication must be enabled to use NNTP Membership Services\nDo you want to enable Basic Authentication?"
L_NEW_TEXT = "New"
L_ACCESSDENIEDERROR_TEXT = "401 access denied"
L_NO_AUTHENTICATION_METHOD_ERRORMESSAGE = "No Authentication method selected!"
%>
<% If Request.ServerVariables("LOGON_USER") = "" Then%>
<% Response.Status = L_ACCESSDENIEDERROR_TEXT %>
<% Response.write L_ACCESSDENIED_TEXT%>
<% Else %>
<% set currentObj = Server.CreateObject("Nntpadm.VirtualServer.1") %>
<HTML>
<HEAD>
<SCRIPT LANGUAGE="javascript">
<% REM Create uForm object and methods %>
uForm = new Object();
uForm.writeForm = writeForm;
uForm.readCache = readCache;
<% REM Javascript function readCache loads fields from hiddenform in sidebar %>