home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ins.cab / nntp.asp < prev    next >
Text File  |  1997-10-12  |  3KB  |  78 lines
  1. <% Response.Expires = 0 %>
  2.  
  3. <% 
  4. rem     strings for localization
  5.  
  6. L_PAGETITLE_TEXT        = "Microsoft NNTP Server Administration"
  7. L_ACCESSDENIED_TEXT        ="Access Denied" 
  8. L_ACCESSDENIED_ERRORMESSAGE = "401 access denied"
  9.  
  10. %>
  11.  
  12. <% If Request.ServerVariables("LOGON_USER") = "" Then%>
  13.     <% Response.Status = L_ACCESSDENIED_ERRORMESSAGE %>    
  14.     <% Response.write L_ACCESSDENIED_TEXT%>
  15. <% Else %>
  16.  
  17. <% Session("IsAdmin") = True %>
  18. <% Session("find") = "" %>
  19.  
  20. <% Session("ServiceInstance") = Request("ServiceInstance") %> 
  21.  
  22. <% svr = Request("svr") %>
  23.  
  24. <% pg = Request("pg") %>
  25.  
  26. <% if svr = "" then %>
  27.     <% svr = Request.ServerVariables("SERVER_NAME") %>
  28.     <% Session("svr") = Request.ServerVariables("SERVER_NAME") %>
  29. <% end if %>
  30.  
  31. <!--#include file="_cnst.asp" -->
  32.  
  33. <%  Set nntp = CreateObject("NntpAdm.Admin.1") %>
  34.  
  35. <%  On Error Resume Next %>
  36. <%  Set serv = CreateObject("NntpAdm.Service.1") %>
  37. <%  if Err = 5 then %>
  38.     <script language="javascript">
  39.         alert("<%  = Err.description %>");
  40.     </script>
  41. <%  end if %>
  42.  
  43. <HTML>
  44. <HEAD>
  45. <TITLE><%L_PAGETITLE_TEXT%></TITLE>
  46. </HEAD>
  47. <% if Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE") then %>
  48. <FRAMESET ROWS="30,*" FRAMEBORDER=0 FRAMESPACING=0>
  49.     <FRAME SRC="nnhd.asp?svr=<% = svr %>" NAME="head" SCROLLING="no" MARGINHEIGHT=0 MARGINWIDTH=0>
  50.     <FRAMESET COLS="210,*" FRAMEBORDER=0 FRAMESPACING=1>
  51.         <FRAME SRC="nnmnu.asp?svr=<% = svr %>&pg=<% = pg %>" NAME="menu" SCROLLING="auto" MARGINHEIGHT=0 MARGINWIDTH=0>
  52.         <FRAMESET ROWS="*,31" FRAMEBORDER=0 FRAMESPACING=1>
  53.             <FRAME SRC="nnredir.asp" NAME="main" SCROLLING="auto">
  54.             <FRAME SRC="nntl.asp?svr=<% = svr %>&pg=nnser" NAME="toolbar" SCROLLING="auto" MARGINHEIGHT=0 MARGINWIDTH=0>
  55.         </FRAMESET>
  56.     </FRAMESET>
  57. </FRAMESET>
  58. <% else %>
  59. <FRAMESET ROWS="39,*" FRAMEBORDER="no" BORDER=0 FRAMESPACING=0>
  60.     <FRAME SRC="nnhd.asp?svr=<% = svr %>" NAME="head" BORDER=0 SCROLLING="no" MARGINHEIGHT=1 MARGINWIDTH=0>
  61.     <FRAMESET COLS="218,*" FRAMEBORDER="no" BORDER=1 FRAMESPACING=1>
  62.         <FRAME SRC="nnmnu.asp?svr=<% = svr %>" NAME="menu" BORDER=0 SCROLLING="auto">
  63.         <FRAMESET ROWS="*,36" FRAMEBORDER="no" BORDER=0 FRAMESPACING=1>
  64.             <FRAME SRC="nnredir.asp" NAME="main" BORDER=0 SCROLLING="auto">
  65.             <FRAME SRC="nntl.asp?svr=<% = svr %>&pg=nnser" NAME="toolbar" SCROLLING="auto" MARGINHEIGHT=0 MARGINWIDTH=0>
  66.         </FRAMESET>
  67.     </FRAMESET>
  68. </FRAMESET>
  69. <% end if %>
  70. <NOFRAMES>
  71. <BODY BGCOLOR="#CCCCCC" TOPMARGIN=15 LINK="#B90000" VLINK="#B90000" ALINK="#B90000">
  72. <P>
  73. <FONT FACE="Arial" SIZE=2>NS Administration uses JScript and frames and requires <A HREF="http://www.microsoft.com">Microsoft Internet Explorer 3.0</A> or a compatible browser.
  74. </BODY>
  75. </NOFRAMES>
  76. </HTML>
  77. <% End If %>
  78.