<% Response.Expires = 0 %>
<%
rem strings for localization
L_PAGETITLE_TEXT = "Microsoft NNTP Server Administration"
L_ACCESSDENIED_TEXT ="Access Denied"
L_ACCESSDENIED_ERRORMESSAGE = "401 access denied"
%>
<% If Request.ServerVariables("LOGON_USER") = "" Then%>
<% Response.Status = L_ACCESSDENIED_ERRORMESSAGE %>
<% Response.write L_ACCESSDENIED_TEXT%>
<% Else %>
<% Session("IsAdmin") = True %>
<% Session("find") = "" %>
<% Session("ServiceInstance") = Request("ServiceInstance") %>
<% svr = Request("svr") %>
<% pg = Request("pg") %>
<% if svr = "" then %>
<% svr = Request.ServerVariables("SERVER_NAME") %>
<% Session("svr") = Request.ServerVariables("SERVER_NAME") %>
<% end if %>
<% Set nntp = CreateObject("NntpAdm.Admin.1") %>
<% On Error Resume Next %>
<% Set serv = CreateObject("NntpAdm.Service.1") %>
<% if Err = 5 then %>
<% end if %>
<%L_PAGETITLE_TEXT%>
<% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
<% else %>
<% end if %>
<![CDATA[
<BODY BGCOLOR="#CCCCCC" TOPMARGIN=15 LINK="#B90000" VLINK="#B90000" ALINK="#B90000">
<P>
<FONT FACE="Arial" SIZE=2>NS Administration uses JScript and frames and requires <A HREF="http://www.microsoft.com">Microsoft Internet Explorer 3.0</A> or a compatible browser.
</BODY>
]]>
<% End If %>