home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip CMCD0400.iso / SOFTWARE / Demo / InfoPulse / GateKeeper / gk3full.exe / data1.cab / ConfigSite_Files / services / LocalAddresses.agp < prev    next >
Encoding:
Text File  |  1999-06-17  |  3.2 KB  |  138 lines
  1. <html>
  2. <head>
  3. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  4. <meta NAME="Author,Design" Content="GateKeeper Team; gatekeeper.gatekeeper@infopulse.ro">
  5. <meta NAME="CopyRight" Content="Infopulse Romania; www.infopulse.ro">
  6. <title>Empty</title>
  7. </head>
  8.  
  9. <body>
  10.  
  11.  
  12. <%
  13.     if Request.ReqParam("action") = "Delete" Then
  14.         Dialer.DeleteLocalAddress 1,Request.ReqParam("mask")
  15.         If Not Err.Number = 0 Then 
  16.             ErrLine = Err.Description
  17.         End If
  18.     End If
  19.  
  20. if Request.ReqParam("action") = "Edit" Then
  21.  
  22.     if(Request.ReqParam("bIp")="TRUE") then
  23.         Response.Redirect("LocalIp.agp?action=Edit&mask=" & Request.ReqParam("mask") )
  24.     else
  25.         Response.Redirect("LocalDomain.agp?action=Edit&mask=" & Request.ReqParam("mask") )
  26.     end if
  27.  
  28. End If
  29.  
  30. %>
  31.     <p><big><strong><font face="Arial">Edit the Dialer service</font></strong></big></p>
  32. <%
  33.     If Not Len(ErrLine) = 0 Then
  34.         Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
  35.     End If
  36. %>
  37.  
  38.  
  39.  
  40. <p><big><strong><font face="Arial">IP Address Masks</font></strong></big></p>
  41.  
  42.  
  43.  
  44. <table border="1" cellpadding="0" cellspacing="0" width="100%">
  45. <tr>
  46.     <td bgcolor="#183159" NOWRAP><strong><font face="Arial" color="#FFFFFF"> Mask </font></strong></td>
  47.     <td bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF"> Action </font></strong></td>
  48. </tr>
  49.  
  50. <tr>
  51.     
  52.     <%
  53.     FirstIp=""
  54.     Dialer.InitLocalIMask
  55.     FirstIp = Dialer.GetNextLocalIp 
  56.     while(Len(FirstIp))
  57.     %>
  58.     <tr>
  59.         <td width="80%"><strong><font face="Arial">
  60.         <%
  61.             Response.Write(FirstIp)
  62.         %>
  63.         </font></strong></td>
  64.         <form method="POST" action= "LocalAddresses.agp">
  65.         <td width="20%">
  66.             <input type="hidden" name="mask" value="<%Response.Write(FirstIp)%>" >
  67.             <input type="hidden" name="bIp" value="TRUE" >
  68.             <input type="submit" name="action" value="Edit">
  69.             <input type="submit" name="action" value="Delete">
  70.         </td>        
  71.         </form>
  72.     </tr>
  73.     <%
  74.     FirstIp=Dialer.GetNextLocalIp 
  75.     wend
  76.     %>    
  77.  
  78. </table>
  79.  
  80. <p><big><strong><font face="Arial">Domain Name Masks</font></strong></big></p>
  81.  
  82.  
  83. <table border="1" cellpadding="0" cellspacing="0" width="100%">
  84. <tr>
  85.     <td bgcolor="#183159" NOWRAP><strong><font face="Arial" color="#FFFFFF"> Mask </font></strong></td>
  86.     <td bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF"> Action </font></strong></td>
  87. </tr>
  88.  
  89. <tr>
  90.     
  91.     <%
  92.     FirstIp=""
  93.     Dialer.InitLocalIMask
  94.     FirstIp = Dialer.GetNextLocalDomain
  95.     while(Len(FirstIp))
  96.     %>
  97.  
  98.     <tr>
  99.         <td width="80%"><strong><font face="Arial">
  100.         
  101.         <%
  102.             Response.Write(FirstIp)
  103.         %>
  104.         </font></strong></td>
  105.         <form method="POST" action= "LocalAddresses.agp">
  106.         <td width="20%">
  107.             <input type="hidden" name="mask" value="<%Response.Write(FirstIp)%>" >
  108.             <input type="hidden" name="bIp" value="FALSE" >
  109.             <input type="submit" name="action" value="Edit">
  110.             <input type="submit" name="action" value="Delete">
  111.         </td>        
  112.         </form>
  113.     </tr>
  114.  
  115.     <%
  116.     FirstIp=Dialer.GetNextLocalDomain
  117.     wend
  118.     %>    
  119.  
  120. </table>
  121.  
  122.  
  123.  
  124. </div>
  125. <br>
  126. <H4>
  127. <font face="Arial">
  128.     <a href="LocalIp.agp">Add local IP mask</a>/
  129.     <a href="LocalDomain.agp">Add local domain-name mask</a>
  130. </font>
  131. </H4>
  132. <br>
  133. <br>
  134. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  135. <br>
  136. </body>
  137. </html>
  138.