home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 May / PCWorld_1999-05_cd.bin / Komunik / MSIE5 / ieak5cd.exe / reconfg4.asp < prev    next >
Encoding:
Text File  |  1999-02-24  |  4.6 KB  |  126 lines
  1. <%
  2. '/=======================================================>
  3. '/            reconfg Server Sample Page 04
  4. '/                  Daniel Jacobson
  5. '/              Modified by Edward C Kubaitis
  6. '/                  Rev .07    9/98
  7. '/=======================================================>
  8. '/=======================================================>
  9. '/ Get all of the varriables from the ICW
  10. '/and get them set into varriables
  11. '/=======================================================>
  12.     EMAILNAME = Request("EMAILNAME")
  13.     EMAILPASSWORD = Request("EMAILPASSWORD")
  14.     POPSELECTION = Request("POPSELECTION")
  15.  
  16. '/=======================================================>
  17. '/ lowercase the contents of the varriables and
  18. '/ then trim any leading or trailing spaces
  19. '/=======================================================>
  20.     If EMAILNAME <> "" Then
  21.         EMAILNAME = LCASE(EMAILNAME)
  22.         EMAILNAME = TRIM(EMAILNAME)
  23.     End If
  24.     If EMAILPASSWORD <> "" Then
  25.         EMAILPASSWORD = LCASE(EMAILPASSWORD)
  26.         EMAILPASSWORD = TRIM(EMAILPASSWORD)
  27.     End If
  28.     If POPSELECTION <> "" Then
  29.         POPSELECTION = LCASE(POPSELECTION)
  30.         POPSELECTION = TRIM(POPSELECTION)
  31.     End If
  32.  
  33. '/=======================================================>
  34. '/ now it is time to build the .INS file with the
  35. '/ Server.CreateObject(Scripting.FileSystemObject) and
  36. '/ then redirect the user to the .INS file for download
  37. '/=======================================================>
  38.     Set FS = CreateObject("Scripting.FileSystemObject")
  39.     Set RS = FS.CreateTextFile("c:\inetpub\wwwroot\ieak.ins", True)
  40.     RS.WriteLine("[Entry]")
  41.     RS.WriteLine("Entry_Name = IEAK Sample")
  42.     RS.WriteLine("[Phone]")
  43.     RS.WriteLine("Dial_As_Is = No")
  44.  
  45.     If POPSELECTION = 1 THEN
  46.         RS.WriteLine("Phone_Number = 5551234")
  47.         RS.WriteLine("Area_Code = 800")
  48.         RS.WriteLine("Country_Code = 1")
  49.         RS.WriteLine("Country_Id = 1")
  50.     END IF
  51.     If POPSELECTION = 2 THEN
  52.         RS.WriteLine("Phone_Number = 5551234")
  53.         RS.WriteLine("Area_Code = 425")
  54.         RS.WriteLine("Country_Code = 1")
  55.         RS.WriteLine("Country_Id = 1")
  56.     END IF
  57.     If POPSELECTION = 3 THEN
  58.         RS.WriteLine("Phone_Number = 5551234")
  59.         RS.WriteLine("Area_Code = 425")
  60.         RS.WriteLine("Country_Code = 1")
  61.         RS.WriteLine("Country_Id = 1")
  62.     END IF
  63.     If POPSELECTION = 4 THEN
  64.         RS.WriteLine("Phone_Number = 5551234")
  65.         RS.WriteLine("Area_Code = 425")
  66.         RS.WriteLine("Country_Code = 1")
  67.         RS.WriteLine("Country_Id = 1")
  68.     END IF
  69.     If POPSELECTION = 5 THEN
  70.         RS.WriteLine("Phone_Number = 5551234")
  71.         RS.WriteLine("Area_Code = 425")
  72.         RS.WriteLine("Country_Code = 1")
  73.         RS.WriteLine("Country_Id = 1")
  74.     END IF
  75.     If POPSELECTION = 6 THEN
  76.         RS.WriteLine("Phone_Number = 5551234")
  77.         RS.WriteLine("Area_Code = 425")
  78.         RS.WriteLine("Country_Code = 1")
  79.         RS.WriteLine("Country_Id = 1")
  80.     END IF
  81.     RS.WriteLine("[Server]")
  82.     RS.WriteLine("Type = PPP")
  83.     RS.WriteLine("SW_Compress = Yes")
  84.     RS.WriteLine("PW_Encrypt = Yes")
  85.     RS.WriteLine("Negotiate_TCP/IP = Yes")
  86.     RS.WriteLine("Disable_LCP = No")
  87.     RS.WriteLine("[TCP/IP]")
  88.     RS.WriteLine("Specify_IP_Address = No")
  89.     RS.WriteLine("Specify_Server_Address = No")
  90.     RS.WriteLine("IP_Header_Conpress  = Yes")
  91.     RS.WriteLine("Gateway_On_Remote = Yes")
  92.     RS.WriteLine("[User]")
  93.     RS.WriteLine("Name = john.doe")
  94.     RS.WriteLine("Password = mypassword")
  95.     RS.WriteLine("Display_Password = Yes")
  96.     RS.WriteLine("[Internet_Mail]")
  97.     RS.WriteLine("Email_Name = John Doe")
  98.     RS.WriteLine("Email_Address = john.doe@ieaksample.net")
  99.     RS.WriteLine("POP_Server = mail.ieaksample.net")
  100.     RS.WriteLine("POP_Server_Port_Number = 110")
  101.     RS.WriteLine("POP_Logon_Name = john.doe")
  102.     RS.WriteLine("POP_Logon_Password = mypassword")
  103.     RS.WriteLine("SMTP_Server = mail.ieaksample.net")
  104.     RS.WriteLine("SMTP_Server_Port_Number = 25")
  105.     RS.WriteLine("Install_Mail = 1")
  106.     RS.WriteLine("[Internet_News]")
  107.     RS.WriteLine("NNTP_Server = news.ieaksample.net")
  108.     RS.WriteLine("NNTP_Server_Port_Number = 119")
  109.     RS.WriteLine("Logon_Required = No")
  110.     RS.WriteLine("Install_News = 1")
  111.     RS.WriteLine("[URL]")
  112.     RS.WriteLine("Help_Page = http://www.ieaksample.net/helpdesk")
  113.     RS.WriteLine("[Favorites]")
  114.     RS.WriteLine("IEAK Sample \ IEAK Sample Help Desk.url = http://www.ieaksample.net/support/helpdesk.asp")
  115.     RS.WriteLine("IEAK Sample \ IEAK Sample Home Page.url = http://www.ieaksample.net/default.asp")
  116.     RS.WriteLine("[URL]")
  117.     RS.WriteLine("Home_Page = http://www.ieaksample.net")
  118.     RS.WriteLine("Search_Page = http://www.ieaksample.net/search")
  119.     RS.WriteLine("Help_Page = http://www.ieaksample.net/helpdesk")
  120.     RS.Close
  121. '/=======================================================>
  122. '/ Redirect The Client To The .INS File
  123. '/=======================================================>
  124.     Response.Redirect ("http://myserver/ieak.ins")
  125. %>
  126.