home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 May / PCWorld_1999-05_cd.bin / Komunik / MSIE5 / ieak5cd.exe / signup08.asp < prev    next >
Encoding:
Text File  |  1999-02-24  |  8.6 KB  |  243 lines
  1. <%
  2. '/=======================================================>
  3. '/            Signup Server Sample Page 08
  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.     USER_COMPANYNAME = Request("USER_COMPANYNAME")
  13.     USER_FIRSTNAME = Request("USER_FIRSTNAME")
  14.     USER_LASTNAME = Request("USER_LASTNAME")
  15.     USER_ADDRESS = Request("USER_ADDRESS")
  16.     USER_MOREADDRESS = Request("USER_MOREADDRESS")
  17.     USER_CITY = Request("USER_CITY")
  18.     USER_STATE = Request("USER_STATE")
  19.     USER_ZIP = Request("USER_ZIP")
  20.     USER_PHONE = Request("USER_PHONE")
  21.     PAYMENT_TYPE = Request("PAYMENT_TYPE")
  22.     PAYMENT_BILLNAME = Request("PAYMENT_BILLNAME")
  23.     PAYMENT_BILLADDRESS = Request("PAYMENT_BILLADDRESS")
  24.     PAYMENT_BILLEXADDRESS = Request("PAYMENT_BILLEXADDRESS")
  25.     PAYMENT_BILLCITY = Request("PAYMENT_BILLCITY")
  26.     PAYMENT_BILLSTATE = Request("PAYMENT_BILLSTATE")
  27.     PAYMENT_BILLZIP = Request("PAYMENT_BILLZIP")
  28.     PAYMENT_BILLPHONE = Request("PAYMENT_BILLPHONE")
  29.     PAYMENT_DISPLAYNAME = Request("PAYMENT_DISPLAYNAME")
  30.     PAYMENT_CARDNUMBER = Request("PAYMENT_CARDNUMBER")
  31.     PAYMENT_EXMONTH = Request("PAYMENT_EXMONTH")
  32.     PAYMENT_EXYEAR = Request("PAYMENT_EXYEAR")
  33.     PAYMENT_CARDHOLDER = Request("PAYMENT_CARDHOLDER")
  34.     BILLING =  Request("BILLING") 
  35.     EMAILNAME = Request("EMAILNAME")
  36.     EMAILPASSWORD = Request("EMAILPASSWORD")
  37.     POPSELECTION = Request("POPSELECTION")
  38.  
  39. '/=======================================================>
  40. '/ lowercase the contents of the varriables and 
  41. '/ then trim any leading or trailing spaces
  42. '/=======================================================>
  43.     If USER_COMPANYNAME <> "" Then
  44.         USER_COMPANYNAME = LCASE(USER_COMPANYNAME)
  45.         USER_COMPANYNAME = TRIM(USER_COMPANYNAME)
  46.     End If
  47.     If USER_FIRSTNAME <> "" Then
  48.         USER_FIRSTNAME = LCASE(USER_FIRSTNAME)
  49.         USER_FIRSTNAME = TRIM(USER_FIRSTNAME)
  50.     End If
  51.     If USER_LASTNAME <> "" Then
  52.         USER_LASTNAME = LCASE(USER_LASTNAME)
  53.         USER_LASTNAME = TRIM(USER_LASTNAME)
  54.     End If
  55.     If USER_ADDRESS <> "" Then
  56.         USER_ADDRESS = LCASE(USER_ADDRESS)
  57.         USER_ADDRESS = TRIM(USER_ADDRESS)
  58.     End If
  59.     If USER_MOREADDRESS <> "" Then
  60.         USER_MOREADDRESS = LCASE(USER_MOREADDRESS)
  61.         USER_MOREADDRESS = TRIM(USER_MOREADDRESS)
  62.     End If
  63.     If USER_CITY <> "" Then
  64.         USER_CITY = LCASE(USER_CITY)
  65.         USER_CITY = TRIM(USER_CITY)
  66.     End If
  67.     If USER_STATE <> "" Then
  68.         USER_STATE = LCASE(USER_STATE)
  69.         USER_STATE = TRIM(USER_STATE)
  70.     End If
  71.     If USER_ZIP <> "" Then
  72.         USER_ZIP = LCASE(USER_ZIP)
  73.         USER_ZIP = TRIM(USER_ZIP)
  74.     End If
  75.     If USER_PHONE <> "" Then
  76.         USER_PHONE = LCASE(USER_PHONE)
  77.         USER_PHONE = TRIM(USER_PHONE)
  78.     End If
  79.     If PAYMENT_TYPE <> "" Then
  80.         PAYMENT_TYPE = LCASE(PAYMENT_TYPE)
  81.         PAYMENT_TYPE = TRIM(PAYMENT_TYPE)
  82.     End If
  83.     If PAYMENT_BILLNAME <> "" Then
  84.         PAYMENT_BILLNAME = LCASE(PAYMENT_BILLNAME)
  85.         PAYMENT_BILLNAME = TRIM(PAYMENT_BILLNAME)
  86.     End If
  87.     If PAYMENT_BILLADDRESS <> "" Then
  88.         PAYMENT_BILLADDRESS = LCASE(PAYMENT_BILLADDRESS)
  89.         PAYMENT_BILLADDRESS = TRIM(PAYMENT_BILLADDRESS)
  90.     End If
  91.     If PAYMENT_BILLEXADDRESS <> "" Then
  92.         PAYMENT_BILLEXADDRESS = LCASE(PAYMENT_BILLEXADDRESS)
  93.         PAYMENT_BILLEXADDRESS = TRIM(PAYMENT_BILLEXADDRESS)
  94.     End If
  95.     If PAYMENT_BILLCITY <> "" Then
  96.         PAYMENT_BILLCITY = LCASE(PAYMENT_BILLCITY)
  97.         PAYMENT_BILLCITY = TRIM(PAYMENT_BILLCITY)
  98.     End If
  99.     If PAYMENT_BILLSTATE <> "" Then
  100.         PAYMENT_BILLSTATE = LCASE(PAYMENT_BILLSTATE)
  101.         PAYMENT_BILLSTATE = TRIM(PAYMENT_BILLSTATE)
  102.     End If
  103.     If PAYMENT_BILLZIP <> "" Then
  104.         PAYMENT_BILLZIP = LCASE(PAYMENT_BILLZIP)
  105.         PAYMENT_BILLZIP = TRIM(PAYMENT_BILLZIP)
  106.     End If
  107.     If PAYMENT_BILLPHONE <> "" Then
  108.         PAYMENT_BILLPHONE = LCASE(PAYMENT_BILLPHONE)
  109.         PAYMENT_BILLPHONE = TRIM(PAYMENT_BILLPHONE)
  110.     End If
  111.     If PAYMENT_DISPLAYNAME <> "" Then
  112.         PAYMENT_DISPLAYNAME = LCASE(PAYMENT_DISPLAYNAME)
  113.         PAYMENT_DISPLAYNAME = TRIM(PAYMENT_DISPLAYNAME)
  114.     End If
  115.     If PAYMENT_CARDNUMBER <> "" Then
  116.         PAYMENT_CARDNUMBER = LCASE(PAYMENT_CARDNUMBER)
  117.         PAYMENT_CARDNUMBER = TRIM(PAYMENT_CARDNUMBER)
  118.     End If
  119.     If PAYMENT_EXMONTH <> "" Then
  120.         PAYMENT_EXMONTH = LCASE(PAYMENT_EXMONTH)
  121.         PAYMENT_EXMONTH = TRIM(PAYMENT_EXMONTH)
  122.     End If
  123.     If PAYMENT_EXYEAR <> "" Then
  124.         PAYMENT_EXYEAR = LCASE(PAYMENT_EXYEAR)
  125.         PAYMENT_EXYEAR = TRIM(PAYMENT_EXYEAR)
  126.     End If
  127.     If PAYMENT_CARDHOLDER <> "" Then
  128.         PAYMENT_CARDHOLDER = LCASE(PAYMENT_CARDHOLDER)
  129.         PAYMENT_CARDHOLDER = TRIM(PAYMENT_CARDHOLDER)
  130.     End If
  131.     If BILLING <> "" Then
  132.         BILLING = LCASE(BILLING)
  133.         BILLING = TRIM(BILLING)
  134.     End If
  135.     If EMAILNAME <> "" Then
  136.         EMAILNAME = LCASE(EMAILNAME)
  137.         EMAILNAME = TRIM(EMAILNAME)
  138.     End If
  139.     If EMAILPASSWORD <> "" Then
  140.         EMAILPASSWORD = TRIM(EMAILPASSWORD)
  141.     End If
  142.     If POPSELECTION <> "" Then
  143.         POPSELECTION = LCASE(POPSELECTION)
  144.         POPSELECTION = TRIM(POPSELECTION)
  145.     End If
  146.  
  147. '/=======================================================>
  148. '/ now it is time to build the .INS file with the 
  149. '/ Server.CreateObject(Scripting.FileSystemObject) and
  150. '/ then redirect the user to the .INS file for download
  151. '/=======================================================>
  152.     Set FS = CreateObject("Scripting.FileSystemObject")
  153.     Set RS = FS.CreateTextFile("c:\inetpub\wwwroot\ieak.ins", True)
  154.     RS.WriteLine("[Entry]")
  155.     RS.WriteLine("Entry_Name = IEAK Sample")
  156.     RS.WriteLine("[Phone]")
  157.     RS.WriteLine("Dial_As_Is = No")
  158.  
  159.     If POPSELECTION = 1 THEN
  160.         RS.WriteLine("Phone_Number = 5551234")
  161.         RS.WriteLine("Area_Code = 800")
  162.         RS.WriteLine("Country_Code = 1")
  163.         RS.WriteLine("Country_Id = 1")
  164.     END IF
  165.     If POPSELECTION = 2 THEN
  166.         RS.WriteLine("Phone_Number = 5551234")
  167.         RS.WriteLine("Area_Code = 425")
  168.         RS.WriteLine("Country_Code = 1")
  169.         RS.WriteLine("Country_Id = 1")
  170.     END IF
  171.     If POPSELECTION = 3 THEN
  172.         RS.WriteLine("Phone_Number = 5551234")
  173.         RS.WriteLine("Area_Code = 425")
  174.         RS.WriteLine("Country_Code = 1")
  175.         RS.WriteLine("Country_Id = 1")
  176.     END IF
  177.     If POPSELECTION = 4 THEN
  178.         RS.WriteLine("Phone_Number = 5551234")
  179.         RS.WriteLine("Area_Code = 425")
  180.         RS.WriteLine("Country_Code = 1")
  181.         RS.WriteLine("Country_Id = 1")
  182.     END IF
  183.     If POPSELECTION = 5 THEN
  184.         RS.WriteLine("Phone_Number = 5551234")
  185.         RS.WriteLine("Area_Code = 425")
  186.         RS.WriteLine("Country_Code = 1")
  187.         RS.WriteLine("Country_Id = 1")
  188.     END IF
  189.     If POPSELECTION = 6 THEN
  190.         RS.WriteLine("Phone_Number = 5551234")
  191.         RS.WriteLine("Area_Code = 425")
  192.         RS.WriteLine("Country_Code = 1")
  193.         RS.WriteLine("Country_Id = 1")
  194.     END IF
  195.     RS.WriteLine("[Server]")
  196.     RS.WriteLine("Type = PPP")
  197.     RS.WriteLine("SW_Compress = Yes")
  198.     RS.WriteLine("PW_Encrypt = Yes")
  199.     RS.WriteLine("Negotiate_TCP/IP = Yes")
  200.     RS.WriteLine("Disable_LCP = No")
  201.     RS.WriteLine("[TCP/IP]")
  202.     RS.WriteLine("Specify_IP_Address = No")
  203.     RS.WriteLine("Specify_Server_Address = No")
  204.     RS.WriteLine("IP_Header_Compress  = Yes")
  205.     RS.WriteLine("Gateway_On_Remote = Yes")
  206.     RS.WriteLine("[User]")
  207.     RS.WriteLine("Name = john.doe")
  208.     RS.WriteLine("Password = mypassword")
  209.     RS.WriteLine("Display_Password = Yes")
  210.     RS.WriteLine("[Internet_Mail]")
  211.     RS.WriteLine("Email_Name = John Doe")
  212.     RS.WriteLine("Email_Address = john.doe@acme.net")
  213.     RS.WriteLine("POP_Server = mail.ieaksample.net")
  214.     RS.WriteLine("POP_Server_Port_Number = 110")
  215.     RS.WriteLine("POP_Logon_Name = john.doe")
  216.     RS.WriteLine("POP_Logon_Password = mypassword")
  217.     RS.WriteLine("SMTP_Server = mail.ieaksample.net")
  218.     RS.WriteLine("SMTP_Server_Port_Number = 25")
  219.     RS.WriteLine("Install_Mail = 1")
  220.     RS.WriteLine("[Internet_News]")
  221.     RS.WriteLine("NNTP_Server = news.ieaksample.net")
  222.     RS.WriteLine("NNTP_Server_Port_Number = 119")
  223.     RS.WriteLine("Logon_Required = No")
  224.     RS.WriteLine("Install_News = 1")
  225.     RS.WriteLine("[URL]")
  226.     RS.WriteLine("Help_Page = http://www.ieaksample.net/helpdesk")
  227.     RS.WriteLine("Signup_Url = http://myserver/signup01.asp")
  228.     RS.WriteLine("[Favorites]")
  229.     RS.WriteLine("IEAK Sample \ IEAK Sample Help Desk.url = http://www.ieaksample.net/support/helpdesk.asp")
  230.     RS.WriteLine("IEAK Sample \ IEAK Sample Home Page.url = http://www.ieaksample.net/default.asp")
  231.     RS.WriteLine("[URL]")
  232.     RS.WriteLine("Home_Page = http://www.ieaksample.net")
  233.     RS.WriteLine("Search_Page = http://www.ieaksample.net/search")
  234.     RS.WriteLine("Help_Page = http://www.ieaksample.net/helpdesk")
  235.     RS.WriteLine("[Branding]")
  236.     RS.WriteLine("Window_Title = Microsoft Internet Explorer provided by IEAK Sample")
  237.     RS.Close
  238. '/=======================================================>
  239. '/ Redirect The Client To The .INS File
  240. '/=======================================================>
  241.     Response.Redirect ("http://myserver/ieak.ins")
  242. %>
  243.