home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip CMCD0400.iso / SOFTWARE / Demo / InfoPulse / GateKeeper / gk3full.exe / data1.cab / ConfigSite_Files / services / LocalDomain.agp < prev    next >
Encoding:
Text File  |  1999-06-17  |  1.9 KB  |  77 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@infopulse.net">
  5. <meta NAME="Copyright" Content="Infopulse; www.infopulse.net">
  6. <title>Empty</title>
  7. </head>
  8.  
  9. <body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080">
  10. <p><big><strong><font face="Arial">Add local domain name mask</font></strong></big></p>
  11.  
  12. <%
  13.  
  14.  
  15.     if Request.ReqParam("action") = "Add" Then 
  16.         
  17.         if(Len(Request.ReqParam("oldMask"))>0) then
  18.             Dialer.DeleteLocalAddress 0,Request.ReqParam("oldMask")
  19.             Dialer.AddLocalAddress 0,Request.ReqParam("mask")
  20.         else
  21.             Dialer.AddLocalAddress 0,Request.ReqParam("mask")
  22.         end if
  23.  
  24.         If Not Err.Number = 0 Then 
  25.             ErrLine = Err.Description
  26.         else
  27.             Response.Redirect("LocalAddresses.agp?Action=Show")
  28.         End If
  29.     end if
  30.  
  31.  
  32.  
  33.     if Request.ReqParam("action") = "Cancel" Then 
  34.             Response.Redirect("LocalAddresses.agp?Action=Show")
  35.     end if
  36.     
  37.     oldMask=""
  38.     if Request.ReqParam("action") = "Edit" Then 
  39.             oldMask=Request.ReqParam("mask")
  40.     end if
  41.     
  42. %>
  43.  
  44. <%
  45.     If Not Len(ErrLine) = 0 Then
  46.         Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
  47.     End If
  48. %>
  49.  
  50.  
  51.  
  52. <form method="POST" action= "/services/LocalDomain.agp">
  53. <table border="1" cellpadding="0" cellspacing="0" width="60%">
  54.  
  55.     <tr>
  56.         <td width="50%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  57.             IP Address mask
  58.         </font></strong></td>
  59.     </tr>         
  60.     <tr>
  61.         <td width="50%"><font face="Arial">
  62.          <input type="text"        size="40"        name=    "mask" value= <%Response.Write(oldMask)%> >
  63.          <input type="hidden"    size="40"        name=    "oldMask" value= <%Response.Write(oldMask)%> >
  64.         </td>
  65.     </tr>
  66.  
  67. </table>
  68. <br>
  69. <input type="submit"    name="action"    value=    "Add">
  70. <input type="submit"    name="action"    value=    "Cancel">
  71. </form>     
  72.     
  73. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  74.  
  75. </body>
  76. </html>
  77.