home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / pelne / optionp / ins.cab / nnbld.asp < prev    next >
Text File  |  1997-10-12  |  5KB  |  180 lines
  1. <% Response.Expires = 0 %>
  2.  
  3. <% svr             = Session("svr") %>
  4. <% ServiceInstance = Session("ServiceInstance") %>
  5. <% action          = Request("action") %>
  6. <% VSvrToDelete    = Request("VSvrToDelete") %>
  7. <% VServer         = Request("VServer") %>
  8. <% newState        = Request("newState") %>
  9.  
  10. <% set nntpAdmin = Server.CreateObject("nntpadm.admin.1") %>
  11. <html>
  12. <head>
  13. <script language="javascript">
  14.  
  15. <% if (action = "setState") then %>
  16.  
  17.  
  18.     var x = "<% = newState %>";
  19.  
  20.     <% On Error Resume Next %>
  21.     <% set nntpVirtualServiceInstance = Server.CreateObject( "Nntpadm.virtualserver.1" ) %>
  22.     <% if (Err <> 0) then %>
  23.         alert("<% = Err.description %>");
  24.     <% end if %>
  25.  
  26. <%
  27.     On Error Resume Next
  28.     if (Session("svr") = "") then
  29.         nntpVirtualServiceInstance.Server = Request.ServerVariables("SERVER_NAME")
  30.     else
  31.         nntpVirtualServiceInstance.Server = Session("svr") 
  32.     end if
  33.     if (Err <> 0) then
  34.     %>
  35.         alert("<% = Err.description %>");
  36.     <% end if %>
  37.  
  38.  
  39.     <% On Error Resume Next %>
  40.     <% nntpVirtualServiceInstance.ServiceInstance = VServer %>
  41.     <% if (Err <> 0) then %>
  42.         alert("<% = Err.description %>");
  43.     <% end if %>
  44.  
  45.  
  46.     <% On Error Resume Next %>
  47.     <% nntpVirtualServiceInstance.Get %>
  48.     <% if (Err <> 0) then %>
  49.         alert("<% = Err.description %>");
  50.     <% end if %>
  51.  
  52.     
  53.     <% if (newState = "2") then %>
  54.  
  55.         <% REM Try to start the service - if an error is returned in the Win32ErrorCode %>
  56.         <% REM Convert it to a string and display it in an alert box                    %>
  57.         <% REM If no error occurs, update the tree control                              %>
  58.  
  59.         <% On Error Resume Next %>
  60.  
  61.         <% nntpVirtualServiceInstance.Start %>
  62.         <% stateError = nntpVirtualServiceInstance.Win32ErrorCode %>
  63.         <% DisplayError = nntpAdmin.ErrorToString(stateError) %> 
  64.  
  65.         <% if (stateError <> 0) then %>
  66.  
  67.             alert("<% = DisplayError %>");
  68.  
  69.         <% else %>
  70.  
  71.             var theList = top.head.cList;
  72.             var gVars   = top.head.Global;
  73.             var sel     = gVars.selId;
  74.             theList[sel].state = x;
  75.             top.body.list.location.href = top.body.list.location.href;
  76.             
  77.         <% end if %>
  78.  
  79.     <% end if %>
  80.  
  81.     <% if (newState = "4") then %>
  82.  
  83.         <% REM Try to stop the service - if an error is returned in the Win32ErrorCode %>
  84.         <% REM Convert it to a string and display it in an alert box                   %>
  85.         <% REM If no error occurs, update the tree control                             %>
  86.  
  87.         <% On Error Resume Next %>
  88.  
  89.         <% nntpVirtualServiceInstance.Stop %>
  90.         <% stateError = nntpVirtualServiceInstance.Win32ErrorCode %>
  91.         <% DisplayError = nntpAdmin.ErrorToString(stateError) %> 
  92.  
  93.         <% if (stateError <> 0) then %>
  94.  
  95.             alert("<% = DisplayError %>");
  96.  
  97.         <% else %>
  98.  
  99.             var theList = top.head.cList;
  100.             var gVars   = top.head.Global;
  101.             var sel     = gVars.selId;
  102.             theList[sel].state = x;
  103.             top.body.list.location.href = top.body.list.location.href;
  104.  
  105.         <% end if %>
  106.  
  107.     <% end if %>
  108.  
  109.     <% if (newState = "0") then %>
  110.  
  111.         <% REM Try to continue the service - if an error is returned in the Win32ErrorCode %>
  112.         <% REM Convert it to a string and display it in an alert box                       %>
  113.         <% REM If no error occurs, update the tree control                                 %>
  114.  
  115.         <% On Error Resume Next %>
  116.  
  117.         <% nntpVirtualServiceInstance.Continue %>
  118.         <% stateError = nntpVirtualServiceInstance.Win32ErrorCode %>
  119.         <% DisplayError = nntpAdmin.ErrorToString(stateError) %> 
  120.  
  121.         <% if (stateError <> 0) then %>
  122.  
  123.             alert("<% = DisplayError %>");
  124.  
  125.         <% else %>
  126.  
  127.             var theList = top.head.cList;
  128.             var gVars   = top.head.Global;
  129.             var sel     = gVars.selId;
  130.             theList[sel].state = x;
  131.             top.body.list.location.href = top.body.list.location.href;
  132.  
  133.         <% end if %>
  134.  
  135.     <% end if %>
  136.  
  137.     <% if (newState = "3") then %>
  138.  
  139.         <% REM Try to pause the service - if an error is returned in the Win32ErrorCode %>
  140.         <% REM Convert it to a string and display it in an alert box                    %>
  141.         <% REM If no error occurs, update the tree control                              %>
  142.  
  143.         <% On Error Resume Next %>
  144.  
  145.         <% nntpVirtualServiceInstance.Pause %>
  146.         <% stateError = nntpVirtualServiceInstance.Win32ErrorCode %>
  147.         <% DisplayError = nntpAdmin.ErrorToString(stateError) %> 
  148.  
  149.         <% if (stateError <> 0) then %>
  150.  
  151.             alert("<% = DisplayError %>");
  152.  
  153.         <% else %>
  154.  
  155.             var theList = top.head.cList;
  156.             var gVars   = top.head.Global;
  157.             var sel     = gVars.selId;
  158.             theList[sel].state = x;
  159.             top.body.list.location.href = top.body.list.location.href;
  160.  
  161.         <% end if %>
  162.  
  163.     <% end if %>
  164.  
  165.     <% On Error Resume Next %>
  166.     <% nntpVirtualServiceInstance.Set %>
  167.     <% if (Err <> 0) then %>
  168.         alert("<% = Err.description %>");
  169.     <% end if %>
  170.  
  171.  
  172. <% end if %>
  173.  
  174.  
  175. </script>
  176. </head>
  177. <body>
  178. </body>
  179. </html>
  180.