home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ims.cab / smhd.asp < prev    next >
Text File  |  1997-10-20  |  3KB  |  101 lines
  1. <% Response.Expires = 0 %>
  2.  
  3. <%
  4. REM LOCALIZATION
  5.  
  6. L_TITLE_TEXT = "Microsoft SMTP Server Administration"
  7. L_HELP_TEXT = "Help"
  8. L_ABOUT_TEXT = "About"
  9. L_HEADTITLE_TEXT = "Microsoft SMTP Server on"
  10. L_DOC_TEXT = "Documentation"
  11. L_MICROSOFT_TEXT = "Microsoft"
  12.  
  13. REM END LOCALIZATION
  14. %>
  15.  
  16. <% svr = Session("svr") %>
  17.  
  18. <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
  19.     <% browser = "ms" %>
  20.     <% bgcolor = "#B90000" %>
  21. <% else %>
  22.     <% browser = "ns" %>
  23.     <% bgcolor = "#000000" %>
  24. <% end if %>
  25.  
  26. <%  On Error Resume Next %>
  27. <%  Set VirtualServer = Server.CreateObject("SmtpAdm.VirtualServer.1") %>
  28. <%  if Err <> 0 then %>
  29.     <script language="javascript">
  30.         alert("<% = Err.description %> : Line #30");
  31.     </script>
  32. <%  end if %>
  33.  
  34. <% VirtualServer.Server = svr %>
  35. <% VirtualServer.ServiceInstance = Session("ServiceInstance") %>
  36. <% VirtualServer.Get %>
  37. <% Status = VirtualServer.Status %>
  38.  
  39. <HTML>
  40. <HEAD>
  41. <TITLE><% = L_TITLE_TEXT %></TITLE>
  42.  
  43. <SCRIPT LANGUAGE="javascript">
  44.  
  45. function helpBox()
  46. {
  47.  
  48.     pg = top.frames[3].location.href;
  49.     if (pg.indexOf("smftl.asp") != -1) 
  50.     {
  51.         helpfilename = parent.menu.feedmenu.document.hiddenform.helpfilename.value;
  52.     }
  53.     else 
  54.     {
  55.         helpfilename = parent.menu.document.hiddenform.helpfilename.value;
  56.     }
  57.     window.open(helpfilename,"<% = L_HELP_TEXT %>","toolbar=no,scrollbars=yes,directories=no,menubar=no,width=450,height=450");
  58. }
  59.  
  60. function aboutBox()
  61. {
  62.  
  63. <% if (browser = "ms") then %>
  64.     winstr = "height=305,width=525,directories=no,toolbar=no,menubar=no,scrollbars=no";
  65. <% else %>
  66.     winstr = "height=320,width=525,directories=no,toolbar=no,menubar=no,scrollbars=no";
  67. <% end if %>
  68.     window.open("smabout.asp","<% = L_ABOUT_TEXT %>",winstr);
  69. }
  70.  
  71. </SCRIPT>
  72. </HEAD>
  73. <BODY TEXT="#FFFFFF" BGCOLOR="<% = bgcolor %>" TOPMARGIN=0 LEFTMARGIN=0 RIGHTMARGIN=0>
  74. <P>
  75. <TABLE WIDTH=100% CELLPADDING=2 CELLSPACING=0 BGCOLOR="#000000" BORDER=0 ALIGN="left">
  76.     <TR>
  77.         <TD VALIGN="center" ALIGN="left">
  78.             <FONT FACE="Arial" SIZE=4> </FONT>
  79.             <FONT SIZE=2 FACE="Verdana,Arial"><B><% = L_HEADTITLE_TEXT %>  </B><% = Session("svr") %></FONT>
  80.         </TD>
  81.         <TD ALIGN="right" VALIGN="bottom" BGCOLOR="#000000">
  82.             <FONT COLOR="#FFFFFF">
  83.                 <A HREF="javascript:aboutBox()"><IMG SRC="images/gnicabou.gif" ALT="<% = L_ABOUT_TEXT %>" BORDER=0 VSPACE=3 HSPACE=4 HEIGHT=16 WIDTH=16></A>
  84.                 <A HREF="/IISHELP/iis/misc/default.asp" TARGET="window"><IMG SRC="images/gnicdoc.gif" BORDER=0 VSPACE=3 HSPACE=4 HEIGHT=16 WIDTH=16 ALT="<% = L_DOC_TEXT %>"></A>
  85.                 <A HREF="javascript:helpBox();"><IMG SRC="images/gnichelp.gif" ALT="<% = L_HELP_TEXT %>" BORDER=0 VSPACE=3 HSPACE=4 HEIGHT=16 WIDTH=16></A>
  86.                 <A HREF="http://www.microsoft.com/" TARGET="_parent"><IMG SRC="images/gniclogo.gif" BORDER=0 VSPACE=3 HSPACE=2 ALT="<% = L_MICROSOFT_TEXT %>" HEIGHT=15 WIDTH=80></A>
  87.             </FONT>
  88.         </TD>
  89.     <TR>
  90.  
  91. <% if (browser = "ns") then %>
  92.     <TR>
  93.         <TD BGCOLOR="#B90000" COLSPAN=2> </TD>
  94.     </TR>
  95. <% end if %>
  96. </TABLE>
  97. </BODY>
  98. </HTML>
  99.  
  100.  
  101.