<% Response.Expires = 0 %> <% REM LOCALIZATION L_PAGETITLE_TEXT = "Microsoft Internet Service Manager" L_HELP_TEXT = "Help" L_ABOUT_TEXT = "About" L_HEADTITLE_TEXT = "IIS News Server on" L_DOC_TEXT = "Documentation" L_MICROSOFT_TEXT = "Microsoft" L_MS_TEXT = "ms" 'Internal string do NOT localize L_NS_TEXT = "ns" 'Internal string do NOT localize REM END LOCALIZATION %> <% svr = Session("svr") %> <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %> <% browser = L_MS_TEXT %> <% bgcolor = "#B90000" %> <% else %> <% browser = L_NS_TEXT %> <% bgcolor = "#000000" %> <% end if %> <% On Error Resume Next %> <% Set VirtualServer = Server.CreateObject("NntpAdm.VirtualServer.1") %> <% if Err <>0 then %> <% end if %> <% VirtualServer.Server = svr %> <% VirtualServer.ServiceInstance = Session("ServiceInstance") %> <% VirtualServer.Get %> <% Status = VirtualServer.Status %> <% = L_PAGETITLE_TEXT %>

<% if (browser = L_NS_TEXT) then %> <% end if %>
  <% = L_HEADTITLE_TEXT %>  <% = Session("svr") %> <% = L_ABOUT_TEXT %> <% = L_DOC_TEXT %> <% = L_HELP_TEXT %> <% = L_MICROSOFT_TEXT %>