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