<% Response.Expires = 0 %>
<%
rem strings for localization
L_ACCESSDENIED_TEXT ="Access Denied"
L_HELP_TEXT = "Help"
L_ABOUTONLY_TEXT = "about"
L_BROWSE_TEXT = "Browse"
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 SMTP Service Manager"
L_DEFAULT_SMTP_SITE_TEXT = "Default SMTP Site"
L_SMTPSITE_TEXT = "SMTP Site #"
L_SERVERPROMPT_TEXT = "Please enter the name of the server you wish to connect to:"
L_UNKNOWN_TEXT = "Unknown"
L_STARTING_TEXT = "Starting"
L_STARTED_TEXT = "Started"
L_STOPPING_TEXT = "Stopping"
L_STOPPED_TEXT = "Stopped"
L_PAUSING_TEXT = "Pausing"
L_PAUSED_TEXT = "Paused"
L_CONTINUING_TEXT = "Continuing"
L_DOMAINS_TEXT = "Domains"
L_DIRECTORIES_TEXT = "Directories"
L_CURRENTSESSIONS_TEXT = "Current Sessions"
%>
<% 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 smtpSvcAdmin = Server.CreateObject("smtpadm.admin.1") %>
<% smtpSvcAdmin.Server = Session("svr") %>
<% On Error Resume Next %>
<% x = smtpSvcAdmin.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 ( "smtpadm.virtualserver.1" ) %>
<% testServer.Server = Session("svr") %>
<% testServer.ServiceInstance = x(i) %>
<% testServer.Get %>
<% szComment = testServer.Comment %>
<% szServiceState = szServiceStateArray(testServer.ServerState) %>
<% next %>
<% session("isAdmin") = yes %>
<% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
<% browser = "ms" %>
<% bgcolor = "#FFCC00" %>
<% else %>
<% browser = "ns" %>
<% bgcolor = "#000000" %>
<% end if %>
<% = L_PAGETITLE_TEXT %>
TOPMARGIN=0 LEFTMARGIN=0 onLoad="loadPage();">
 |
|
<% if (browser = "ns") then %>
| |
<% end if %>