<% REM LOCALIZATION L_ENABLELOGGING_TEXT = "Enable Logging" L_CLIENTEVENTS_TEXT = "Log Client Events" L_APPEVENTS_TEXT = "Log Application Events" L_AVAILABLE_TEXT = "Available Formats" L_MSBINARY_TEXT = "Microsoft Binary Log Format" L_MSIIS_TEXT = "Microsoft IIS Log Format" L_MSCOMMON_TEXT="Microsoft Common Log Format" L_ODBC_TEXT = "ODBC Log Format" L_ADD_TEXT="Add" L_ACCESSDENIED_TEXT = "Access Denied" L_NEWLOGMETHOD_TEXT = "New Log Method" L_401ACCESSDENIED_ERRORMESSAGE = "401 access denied" REM END LOCALIZATION %> <% If Request.ServerVariables("LOGON_USER") = "" Then%> <% Response.Status = L_401ACCESSDENIED_ERRORMESSAGE %> <% Response.write L_ACCESSDENIED_TEXT%> <% Else %> <% blanks = "" for i = 0 to 23 blanks = blanks + " " next REM path = trim(Session("path")) REM set currentobj = GetObject(path) set currentObj = Server.CreateObject("Nntpadm.VirtualServer.1") On Error Resume Next %>
<%=checkbox("EnableLogging","loadList();",true)%>  <%=L_ENABLELOGGING_TEXT%>
<%=checkbox("ClientEvents","",false)%> <%=L_CLIENTEVENTS_TEXT%>

<%=checkbox("AppEvents","",false)%> <%=L_APPEVENTS_TEXT%>
 

<%=L_AVAILABLE_TEXT%>
<% end if %>