<%
'----------------------------------------------------------------------------
'
' File: smdomhd.asp
'
' Description: Header file Domains page for SMTP Web Admin. This page counts
' and gets the information from all the domains in the Service. Puts
' this information into a javascript array so it can be used
'
' Copyright (C) 1997 Microsoft Corporation
'
'------------------------------------------------------------------------------%>
<% Response.Expires = 0 %>
<%
L_PAGETITLE_TEXT = "Microsoft SMTP Server Administration"
L_DOMAINNAME_TEXT = "Domain Name:"
L_DOMAINSON_TEXT = "Domains on"
L_TYPE_TEXT = "Type:"
L_DEFAULTLOCAL_TEXT = "Default Local"
L_NORMALLOCAL_TEXT = "Normal Local"
L_ALIASLOCAL_TEXT = "Alias Local"
L_REMOTE_TEXT = "Remote"
L_CANNOT_REMV_DOMAIN_TEXT = "Cannot remove domain. A minimum of one domain is required."
L_CONFIRM_REMV_DEFAULT_TEXT = "If you remove the default Domain, you may not be able to configure the server in the future. Are you sure you want to remove the default Domain?"
L_CONFIRM_REMV_DOMAIN_TEXT = "Are you sure you want to remove this Domain?"
L_CANNOT_REMOVE_DEFAULT_ERRORMESSAGE = "You cannot remove the default domain. To remove the default domain you must make another domain the default."
'-------------------------------------------------------------------------------
'
' BitMask Values
'
'-------------------------------------------------------------------------------
%>
<% SMTP_DROP = 1 REM local, norma w/non-empty drop dir %>
<% SMTP_SMARTHOST = 2 REM remote w/ UseSSL not checked %>
<% SMTP_SSL = 4 REM remote w/ UseSSL checked %>
<% SMTP_ALIAS = 16 REM local, alias %>
<% SMTP_DELIVER = 32 REM local, normal w/ empty drop dir %>
<% SMTP_DEFAULT = 64 REM local, default %>
<% REM Domians Page head frame (in frameset with head, list) %>
<% REM Get variables %>
<% REM svr = Server name %>
<% REM a = Action to be performed by server-side code (remove) %>
<% REM SelectedDom = Domain edited by smdired.asp %>
<% svr = Session("svr") %>
<% a = Request("a") %>
<% SelectedDom = Request("SelectedDom")
ServerInstance = Session("ServiceInstance")
Session("ServiceInstance") = ServerInstance
if (Session("svr") = "") then
Session("svr") = Request.ServerVariables("SERVER_NAME")
end if
svr = UCase(Session("svr"))
if (dpath = "") then
dpath = "IIS://" & svr & "/SmtpSvc"
end if
Session("dpath") = dpath
szServerString = dpath & "/" & ServerInstance
szDomainString = szServerString & "/" & "Domain"
szDomainClassString = "IIsSmtpDomain"
%>
<% REM Index of Domian to Remove %>
<% removeIndex = Request("removeIndex") %>
<% REM Include _cnst file to force logon by anonymous users (if access denied, body of file ignored) %>
<%= L_PAGETITLE_TEXT %>
<%= L_DOMAINSON_TEXT %> <% = svr %>
<%= L_DOMAINNAME_TEXT %>
<%= L_TYPE_TEXT %>
<% REM Load list frame after head frame is finished loading %>
<% end if %>
<%= L_DOMAINSON_TEXT %> <% = svr %>