<% Response.Expires = 0 %>
<%
rem strings for localization
L_ACCESSDENIED_TEXT ="Access Denied"
L_HELP_TEXT = "Help"
L_DOCS_TEXT = "Documentation"
L_ABOUT_TEXT = "About..."
L_MICROSOFT_TEXT = "Go to www.microsoft.com"
L_DELETE_ERRORMESSAGE = "Are you sure you want to delete this item, and all its children?"
L_NOHELP_ERRORMESSAGE = "Sorry, the help file is unavailable."
L_NOTIMPLEMENTED_ERRORMESSAGE = "This feature is not yet implemented."
L_PAGETITLE_TEXT = "Microsoft Internet Service Manager"
L_DEFAULTNNTPSITE_TEXT = "Default NNTP Site"
L_NNTPSITE_TEXT = "NNTP Site #"
L_UNKNOWN_TEXT = "Unknown" 'Internal string do NOT localize
L_STARTING_TEXT = "Starting" 'Internal string do NOT localize
L_STARTED_TEXT = "Started" 'Internal string do NOT localize
L_STOPPING_TEXT = "Stopping" 'Internal string do NOT localize
L_STOPPED_TEXT = "Stopped" 'Internal string do NOT localize
L_PAUSING_TEXT = "Pausing" 'Internal string do NOT localize
L_PAUSED_TEXT = "Paused" 'Internal string do NOT localize
L_CONTINUING_TEXT = "Continuing" 'Internal string do NOT localize
L_BROWSE_TEXT = "Browse"
L_EXPIRATIONPOLICIES_TEXT = "Expiration Policies"
L_DIRECTORIES_TEXT = "Directories"
L_CURRENTSESSIONS_TEXT = "Current Sessions"
L_SERVERCONNECT_TEXT = "Please enter the name of the server you wish to connect to:"
NODENUMBER_NUMBER = 4
MS_TEXT = "ms"
NS_TEXT = "ns"
ABOUT_TEXT = "About"
%>
<% REM Service Status Enum Array
Dim szServiceStateArray()
Redim szServiceStateArray(8)
szServiceStateArray(0) = L_UNKNOWN_TEXT
szServiceStateArray(1) = L_STARTING_TEXT
szServiceStateArray(2) = L_STARTED_TEXT
szServiceStateArray(3) = L_STOPPING_TEXT
szServiceStateArray(4) = L_STOPPED_TEXT
szServiceStateArray(5) = L_PAUSING_TEXT
szServiceStateArray(6) = L_PAUSED_TEXT
szServiceStateArray(7) = L_CONTINUING_TEXT
%>
<% if (Session("svr") = "") then %>
<% Session("svr") = Request.ServerVariables("SERVER_NAME") %>
<% end if %>
<% set nntpSvcAdmin = Server.CreateObject("nntpadm.admin.1") %>
<% nntpSvcAdmin.Server = Session("svr") %>
<% On Error Resume Next %>
<% x = nntpSvcAdmin.EnumerateInstancesVariant %>
<% if (Err <> 0) then %>
<% ErrorVal = Err.description %>
<% end if %>
<% REM Create javascript array to hold virtual server information per instance %>
<% low = LBound(x) %>
<% high = UBound(x) %>
<% REM count of service instances %>
<% cServiceInstances = high + 1 %>
<% for i = low to high %>
<% set testServer = Server.CreateObject ( "Nntpadm.virtualserver.1" ) %>
<% testServer.Server = Session("svr") %>
<% testServer.ServiceInstance = x(i) %>
<% testServer.Get %>
<% szComment = testServer.Comment %>
<% szServiceState = szServiceStateArray(testServer.State) %>
<% next %>
<% session("isAdmin") = yes %>
<% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
<% browser = MS_TEXT %>
<% bgcolor = "#FFCC00" %>
<% else %>
<% browser = NS_TEXT %>
<% bgcolor = "#000000" %>
<% end if %>
<% = L_PAGETITLE_TEXT %>
TOPMARGIN=0 LEFTMARGIN=0 onLoad="loadPage();">
 |
|
<% if (browser = NS_TEXT) then %>
| |
<% end if %>