home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ims.cab / smtp.asp < prev    next >
Text File  |  1997-10-19  |  3KB  |  98 lines
  1. <% Response.Expires = 0 %>
  2.  
  3. <% 
  4. rem     strings for localization
  5. L_ACCESSDENIED_TEXT ="Access Denied" 
  6. L_ISM_TEXT = "Microsoft SMTP Server Administration"
  7. L_401_ERRORMESSAGE = "401 access denied"
  8. L_SMTP_MAIL_ADMIN_ERRORMESSAGE = "MCIS-MAIL Administration uses JScript and frames and requires"
  9. L_MS_INTERNET_EXPLORER3_TEXT = "Microsoft Internet Explorer 3.0"
  10. L_OR_COMPATIBLE_BROWSER_TEXT = " or a compatible browser."
  11.  
  12. %>
  13.  
  14. <% If Request.ServerVariables("LOGON_USER") = "" Then%>
  15.     <% Response.Status = L_401_ERRORMESSAGE %>    
  16.     <% Response.write L_ACCESSDENIED_TEXT%>
  17. <% Else %>
  18.  
  19. <% Session("IsAdmin") = True %>
  20. <% Session("find") = "" %>
  21.  
  22. <% Session("ServiceInstance") = Request("ServiceInstance") %> 
  23. <% ServerInstance = Session("ServiceInstance") %>
  24.  
  25. <% svr = Request("svr") %>
  26.  
  27. <% pg = Request("pg") %>
  28.  
  29. <% if svr = "" then %>
  30.     <% svr = Request.ServerVariables("SERVER_NAME") %>
  31.     <% Session("svr") = Request.ServerVariables("SERVER_NAME") %>
  32. <% end if %>
  33.  
  34. <!--#include file="_cnst.asp" -->
  35. <%
  36. if (cont = true) then
  37.  
  38. if (dpath = "") then
  39.     dpath = "IIS://" & UCase(svr) & "/SmtpSvc"
  40. end if
  41. Session("dpath") = dpath
  42.  
  43. szServerString = dpath & "/" & ServerInstance
  44.  
  45.  
  46. On Error Resume Next
  47. Set smtp = GetObject(dpath)
  48. if (Err <> 0) then %>
  49. <script language="javascript">
  50.     alert("<% = Err.Description %>");
  51. </script> <%
  52. end if %>
  53.  
  54.  
  55. <%  On Error Resume Next %>
  56. <%  Set serv = GetObject(szServerString) %>
  57. <%  if Err = 5 then %>
  58.     <script language="javascript">
  59.         alert("<%  = Err.description %>");
  60.     </script>
  61. <%  end if %>
  62.  
  63. <HTML>
  64. <HEAD>
  65. <TITLE><%=L_ISM_TEXT%></TITLE>
  66. </HEAD>
  67. <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
  68. <FRAMESET ROWS="30,*" FRAMEBORDER=0 FRAMESPACING=0>
  69.     <FRAME SRC="smhd.asp?svr=<% = svr %>" NAME="head" SCROLLING="no" MARGINHEIGHT=0 MARGINWIDTH=0>
  70.     <FRAMESET COLS="195,*" FRAMEBORDER=0 FRAMESPACING=1>
  71.         <FRAME SRC="smmnu.asp?svr=<% = svr %>&pg=<% = pg %>" NAME="menu" SCROLLING="auto" MARGINHEIGHT=0 MARGINWIDTH=0>
  72.         <FRAMESET ROWS="*,31" FRAMEBORDER=0 FRAMESPACING=1>
  73.             <FRAME SRC="smredir.asp?svr=<% = svr %>&pg=<% = pg %>" NAME="main" SCROLLING="auto">
  74.             <FRAME SRC="smtl.asp?svr=<% = svr %>&pg=<% = pg %>" NAME="toolbar" SCROLLING="no" MARGINHEIGHT=0 MARGINWIDTH=0>
  75.         </FRAMESET>
  76.     </FRAMESET>
  77. </FRAMESET>
  78. <% else %>
  79. <FRAMESET ROWS="39,*" FRAMEBORDER="no" BORDER=0 FRAMESPACING=0>
  80.     <FRAME SRC="smhd.asp?svr=<% = svr %>" NAME="head" BORDER=0 SCROLLING="no" MARGINHEIGHT=1 MARGINWIDTH=0>
  81.     <FRAMESET COLS="198,*" FRAMEBORDER="no" BORDER=1 FRAMESPACING=1>
  82.         <FRAME SRC="smmnu.asp?svr=<% = svr %>&pg=<% = pg %>" NAME="menu" BORDER=0 SCROLLING="auto">
  83.         <FRAMESET ROWS="*,36" FRAMEBORDER="no" BORDER=0 FRAMESPACING=1>
  84.             <FRAME SRC="smredir.asp?svr=<% = svr %>&pg=<% = pg %>" NAME="main" BORDER=0 SCROLLING="auto">
  85.             <FRAME SRC="smtl.asp?svr=<% = svr %>&pg=<% = pg %>" NAME="toolbar" SCROLLING="no" MARGINHEIGHT=0 MARGINWIDTH=0>
  86.         </FRAMESET>
  87.     </FRAMESET>
  88. </FRAMESET>
  89. <% end if %>
  90. <NOFRAMES>
  91. <BODY BGCOLOR="#CCCCCC" TOPMARGIN=15 LINK="#B90000" VLINK="#B90000" ALINK="#B90000">
  92. <P>
  93. <FONT FACE="Arial" SIZE=2> <% = L_SMTP_MAIL_ADMIN_ERRORMESSAGE %><A HREF="http://www.microsoft.com"><% = L_MS_INTERNET_EXPLORER3_TEXT %></A><% = L_OR_COMPATIBLE_BROWSER_TEXT %>
  94. </BODY>
  95. </NOFRAMES>
  96. </HTML>
  97. <% End If %>
  98. <% end if %>