home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 May / PCWorld_1999-05_cd.bin / Komunik / MSIE5 / ieak5cd.exe / signup04.asp < prev    next >
Encoding:
Text File  |  1999-02-24  |  20.8 KB  |  545 lines
  1. <%
  2. '/=======================================================>
  3. '/            Signup 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.     THETIME = HOUR(TIME) & MINUTE(TIME) & SECOND(TIME)
  13.     THEDATE = YEAR(date) & MONTH(DATE) & DAY(DATE)
  14.     USER_COMPANYNAME = Request("USER_COMPANYNAME")
  15.     USER_FIRSTNAME = Request("USER_FIRSTNAME")
  16.     USER_LASTNAME = Request("USER_LASTNAME")
  17.     USER_ADDRESS = Request("USER_ADDRESS")
  18.     USER_MOREADDRESS = Request("USER_MOREADDRESS")
  19.     USER_CITY = Request("USER_CITY")
  20.     USER_STATE = Request("USER_STATE")
  21.     USER_ZIP = Request("USER_ZIP")
  22.     USER_PHONE = Request("USER_PHONE")
  23.     PAYMENT_TYPE = Request("PAYMENT_METHOD")
  24.  
  25.         V_PAYMENT_BILLADDRESS = Request("V_PAYMENT_BILLADDRESS")
  26.         V_PAYMENT_BILLZIP = Request("V_PAYMENT_BILLZIP")
  27.         V_PAYMENT_CARDNUMBER = Request("V_PAYMENT_CARDNUMBER")
  28.         V_PAYMENT_EXMONTH = Request("V_PAYMENT_EXMONTH")
  29.         V_PAYMENT_EXYEAR = Request("V_PAYMENT_EXYEAR")
  30.         V_PAYMENT_CARDHOLDER = Request("V_PAYMENT_CARDHOLDER")
  31.         MC_PAYMENT_BILLADDRESS = Request("MC_PAYMENT_BILLADDRESS")
  32.         MC_PAYMENT_BILLZIP = Request("MC_PAYMENT_BILLZIP")
  33.         MC_PAYMENT_CARDNUMBER = Request("MC_PAYMENT_CARDNUMBER")
  34.         MC_PAYMENT_EXMONTH = Request("MC_PAYMENT_EXMONTH")
  35.         MC_PAYMENT_EXYEAR = Request("MC_PAYMENT_EXYEAR")
  36.         MC_PAYMENT_CARDHOLDER = Request("MC_PAYMENT_CARDHOLDER")
  37.         AE_PAYMENT_BILLADDRESS = Request("AE_PAYMENT_BILLADDRESS")
  38.         AE_PAYMENT_BILLZIP = Request("AE_PAYMENT_BILLZIP")
  39.         AE_PAYMENT_CARDNUMBER = Request("AE_PAYMENT_CARDNUMBER")
  40.         AE_PAYMENT_EXMONTH = Request("AE_PAYMENT_EXMONTH")
  41.         AE_PAYMENT_EXYEAR = Request("AE_PAYMENT_EXYEAR")
  42.         AE_PAYMENT_CARDHOLDER = Request("AE_PAYMENT_CARDHOLDER")
  43.         PB_PAYMENT_BILLNAME = Request("PB_PAYMENT_BILLNAME")
  44.         PB_PAYMENT_BILLPHONE = Request("PB_PAYMENT_BILLPHONE")
  45.         BM_PAYMENT_BILLADDRESS = Request("BM_PAYMENT_BILLADDRESS")
  46.         BM_PAYMENT_BILLEXADDRESS = Request("BM_PAYMENT_BILLEXADDRESS")
  47.         BM_PAYMENT_BILLCITY = Request("BM_PAYMENT_BILLCITY")
  48.         BM_PAYMENT_BILLSTATE = Request("BM_PAYMENT_BILLSTATE")
  49.         BM_PAYMENT_BILLZIP = Request("BM_PAYMENT_BILLZIP")
  50.  
  51.     If PAYMENT_TYPE = "Visa" Then
  52.         PAYMENT_BILLADDRESS = V_PAYMENT_BILLADDRESS
  53.         PAYMENT_BILLZIP = V_PAYMENT_BILLZIP
  54.         PAYMENT_CARDNUMBER = V_PAYMENT_CARDNUMBER
  55.         PAYMENT_EXMONTH = V_PAYMENT_EXMONTH
  56.         PAYMENT_EXYEAR = V_PAYMENT_EXYEAR
  57.         PAYMENT_CARDHOLDER = V_PAYMENT_CARDHOLDER
  58.     End If
  59.  
  60.     If PAYMENT_TYPE = "Master Card" Then
  61.         PAYMENT_BILLADDRESS = MC_PAYMENT_BILLADDRESS
  62.         PAYMENT_BILLZIP = MC_PAYMENT_BILLZIP
  63.         PAYMENT_CARDNUMBER = MC_PAYMENT_CARDNUMBER
  64.         PAYMENT_EXMONTH = MC_PAYMENT_EXMONTH
  65.         PAYMENT_EXYEAR = MC_PAYMENT_EXYEAR
  66.         PAYMENT_CARDHOLDER = MC_PAYMENT_CARDHOLDER
  67.     End If
  68.  
  69.     If PAYMENT_TYPE = "American Express" Then
  70.         PAYMENT_BILLADDRESS = AE_PAYMENT_BILLADDRESS
  71.         PAYMENT_BILLZIP = AE_PAYMENT_BILLZIP
  72.         PAYMENT_CARDNUMBER = AE_PAYMENT_CARDNUMBER
  73.         PAYMENT_EXMONTH = AE_PAYMENT_EXMONTH
  74.         PAYMENT_EXYEAR = AE_PAYMENT_EXYEAR
  75.         PAYMENT_CARDHOLDER = AE_PAYMENT_CARDHOLDER
  76.     End If
  77.  
  78.     If PAYMENT_TYPE = "Bill Through Mail" Then
  79.         PAYMENT_BILLADDRESS = BM_PAYMENT_BILLADDRESS
  80.         PAYMENT_BILLEXADDRESS = BM_PAYMENT_BILLEXADDRESS
  81.         PAYMENT_BILLCITY = BM_PAYMENT_BILLCITY
  82.         PAYMENT_BILLSTATE = BM_PAYMENT_BILLSTATE
  83.         PAYMENT_BILLZIP = BM_PAYMENT_BILLZIP
  84.  
  85.     End If
  86.     If PAYMENT_TYPE = "Phone Bill" Then
  87.         PAYMENT_BILLNAME = PB_PAYMENT_BILLNAME
  88.         PAYMENT_BILLPHONE = PB_PAYMENT_BILLPHONE
  89.     End If
  90.  
  91.     BILLING =  Request("BILLING") 
  92.     
  93. '/=======================================================>
  94. '/ lowercase the contents of the varriables and 
  95. '/ then trim any leading or trailing spaces
  96. '/=======================================================>
  97.     If USER_COMPANYNAME <> "" Then
  98.         USER_COMPANYNAME = LCASE(USER_COMPANYNAME)
  99.         USER_COMPANYNAME = TRIM(USER_COMPANYNAME)
  100.     End If
  101.     If USER_FIRSTNAME <> "" Then
  102.         USER_FIRSTNAME = LCASE(USER_FIRSTNAME)
  103.         USER_FIRSTNAME = TRIM(USER_FIRSTNAME)
  104.     End If
  105.     If USER_LASTNAME <> "" Then
  106.         USER_LASTNAME = LCASE(USER_LASTNAME)
  107.         USER_LASTNAME = TRIM(USER_LASTNAME)
  108.     End If
  109.     If USER_ADDRESS <> "" Then
  110.         USER_ADDRESS = LCASE(USER_ADDRESS)
  111.         USER_ADDRESS = TRIM(USER_ADDRESS)
  112.     End If
  113.     If USER_MOREADDRESS <> "" Then
  114.         USER_MOREADDRESS = LCASE(USER_MOREADDRESS)
  115.         USER_MOREADDRESS = TRIM(USER_MOREADDRESS)
  116.     End If
  117.     If USER_CITY <> "" Then
  118.         USER_CITY = LCASE(USER_CITY)
  119.         USER_CITY = TRIM(USER_CITY)
  120.     End If
  121.     If USER_STATE <> "" Then
  122.         USER_STATE = LCASE(USER_STATE)
  123.         USER_STATE = TRIM(USER_STATE)
  124.     End If
  125.     If USER_ZIP <> "" Then
  126.         USER_ZIP = LCASE(USER_ZIP)
  127.         USER_ZIP = TRIM(USER_ZIP)
  128.     End If
  129.     If USER_PHONE <> "" Then
  130.         USER_PHONE = LCASE(USER_PHONE)
  131.         USER_PHONE = TRIM(USER_PHONE)
  132.     End If
  133.     If PAYMENT_TYPE <> "" Then
  134.         PAYMENT_TYPE = LCASE(PAYMENT_TYPE)
  135.         PAYMENT_TYPE = TRIM(PAYMENT_TYPE)
  136.     End If
  137.     If PAYMENT_BILLNAME <> "" Then
  138.         PAYMENT_BILLNAME = LCASE(PAYMENT_BILLNAME)
  139.         PAYMENT_BILLNAME = TRIM(PAYMENT_BILLNAME)
  140.     End If
  141.     If PAYMENT_BILLADDRESS <> "" Then
  142.         PAYMENT_BILLADDRESS = LCASE(PAYMENT_BILLADDRESS)
  143.         PAYMENT_BILLADDRESS = TRIM(PAYMENT_BILLADDRESS)
  144.     End If
  145.     If PAYMENT_BILLEXADDRESS <> "" Then
  146.         PAYMENT_BILLEXADDRESS = LCASE(PAYMENT_BILLEXADDRESS)
  147.         PAYMENT_BILLEXADDRESS = TRIM(PAYMENT_BILLEXADDRESS)
  148.     End If
  149.     If PAYMENT_BILLCITY <> "" Then
  150.         PAYMENT_BILLCITY = LCASE(PAYMENT_BILLCITY)
  151.         PAYMENT_BILLCITY = TRIM(PAYMENT_BILLCITY)
  152.     End If
  153.     If PAYMENT_BILLSTATE <> "" Then
  154.         PAYMENT_BILLSTATE = LCASE(PAYMENT_BILLSTATE)
  155.         PAYMENT_BILLSTATE = TRIM(PAYMENT_BILLSTATE)
  156.     End If
  157.     If PAYMENT_BILLZIP <> "" Then
  158.         PAYMENT_BILLZIP = LCASE(PAYMENT_BILLZIP)
  159.         PAYMENT_BILLZIP = TRIM(PAYMENT_BILLZIP)
  160.     End If
  161.     If PAYMENT_BILLPHONE <> "" Then
  162.         PAYMENT_BILLPHONE = LCASE(PAYMENT_BILLPHONE)
  163.         PAYMENT_BILLPHONE = TRIM(PAYMENT_BILLPHONE)
  164.     End If
  165.     If PAYMENT_DISPLAYNAME <> "" Then
  166.         PAYMENT_DISPLAYNAME = LCASE(PAYMENT_DISPLAYNAME)
  167.         PAYMENT_DISPLAYNAME = TRIM(PAYMENT_DISPLAYNAME)
  168.     End If
  169.     If PAYMENT_CARDNUMBER <> "" Then
  170.         PAYMENT_CARDNUMBER = LCASE(PAYMENT_CARDNUMBER)
  171.         PAYMENT_CARDNUMBER = TRIM(PAYMENT_CARDNUMBER)
  172.     End If
  173.     If PAYMENT_EXMONTH <> "" Then
  174.         PAYMENT_EXMONTH = LCASE(PAYMENT_EXMONTH)
  175.         PAYMENT_EXMONTH = TRIM(PAYMENT_EXMONTH)
  176.     End If
  177.     If PAYMENT_EXYEAR <> "" Then
  178.         PAYMENT_EXYEAR = LCASE(PAYMENT_EXYEAR)
  179.         PAYMENT_EXYEAR = TRIM(PAYMENT_EXYEAR)
  180.     End If
  181.     If PAYMENT_CARDHOLDER <> "" Then
  182.         PAYMENT_CARDHOLDER = LCASE(PAYMENT_CARDHOLDER)
  183.         PAYMENT_CARDHOLDER = TRIM(PAYMENT_CARDHOLDER)
  184.     End If
  185.     If BILLING <> "" Then
  186.         BILLING = LCASE(BILLING)
  187.         BILLING = TRIM(BILLING)
  188.     End If
  189.  
  190. '/=======================================================>
  191. '/ Build the URL with the name value pairs 
  192. '/ in case we need to go to the error page
  193. '/=======================================================>
  194.     URL = "http://myserver/signup03.asp?USER_FIRSTNAME="
  195.     URL = URL & Server.URLEncode(USER_FIRSTNAME)
  196.     URL = URL & CHR(38)
  197.     URL = URL & "USER_COMPANYNAME="
  198.     URL = URL & Server.URLEncode(USER_COMPANYNAME)
  199.     URL = URL & CHR(38)
  200.     URL = URL & "USER_LASTNAME="
  201.     URL = URL & Server.URLEncode(USER_LASTNAME)
  202.     URL = URL & CHR(38)
  203.     URL = URL & "USER_ADDRESS="
  204.     URL = URL & Server.URLEncode(USER_ADDRESS)
  205.     URL = URL & CHR(38)
  206.     URL = URL & "USER_MOREADDRESS="
  207.     URL = URL & Server.URLEncode(USER_MOREADDRESS)
  208.     URL = URL & CHR(38)
  209.     URL = URL & "USER_CITY="
  210.     URL = URL & Server.URLEncode(USER_CITY)
  211.     URL = URL & CHR(38)
  212.     URL = URL & "USER_STATE="
  213.     URL = URL & Server.URLEncode(USER_STATE)
  214.     URL = URL & CHR(38)
  215.     URL = URL & "USER_ZIP="
  216.     URL = URL & Server.URLEncode(USER_ZIP)
  217.     URL = URL & CHR(38)
  218.     URL = URL & "USER_PHONE="
  219.     URL = URL & Server.URLEncode(USER_PHONE)
  220.     URL = URL & CHR(38)
  221.     URL = URL & "PAYMENT_TYPE="
  222.     URL = URL & Server.URLEncode(PAYMENT_TYPE)
  223.     URL = URL & CHR(38)
  224.     URL = URL & "PAYMENT_BILLNAME="
  225.     URL = URL & Server.URLEncode(PAYMENT_BILLNAME)
  226.     URL = URL & CHR(38)
  227.     URL = URL & "PAYMENT_BILLADDRESS="
  228.     URL = URL & Server.URLEncode(PAYMENT_BILLADDRESS)
  229.     URL = URL & CHR(38)
  230.     URL = URL & "PAYMENT_BILLEXADDRESS="
  231.     URL = URL & Server.URLEncode(PAYMENT_BILLEXADDRESS)
  232.     URL = URL & CHR(38)
  233.     URL = URL & "PAYMENT_BILLCITY="
  234.     URL = URL & Server.URLEncode(PAYMENT_BILLCITY)
  235.     URL = URL & CHR(38)
  236.     URL = URL & "PAYMENT_BILLSTATE="
  237.     URL = URL & Server.URLEncode(PAYMENT_BILLSTATE)
  238.     URL = URL & CHR(38)
  239.     URL = URL & "PAYMENT_BILLZIP="
  240.     URL = URL & Server.URLEncode(PAYMENT_BILLZIP)
  241.     URL = URL & CHR(38)
  242.     URL = URL & "PAYMENT_BILLPHONE="
  243.     URL = URL & Server.URLEncode(PAYMENT_BILLPHONE)
  244.     URL = URL & CHR(38)
  245.     URL = URL & "PAYMENT_DISPLAYNAME="
  246.     URL = URL & Server.URLEncode(PAYMENT_DISPLAYNAME)
  247.     URL = URL & CHR(38)
  248.     URL = URL & "PAYMENT_CARDNUMBER="
  249.     URL = URL & Server.URLEncode(PAYMENT_CARDNUMBER)
  250.     URL = URL & CHR(38)
  251.     URL = URL & "PAYMENT_EXMONTH="
  252.     URL = URL & Server.URLEncode(PAYMENT_EXMONTH)
  253.     URL = URL & CHR(38)
  254.     URL = URL & "PAYMENT_EXYEAR="
  255.     URL = URL & Server.URLEncode(PAYMENT_EXYEAR)
  256.     URL = URL & CHR(38)
  257.     URL = URL & "PAYMENT_CARDHOLDER="
  258.     URL = URL & Server.URLEncode(PAYMENT_CARDHOLDER)
  259.     URL = URL & CHR(38)
  260.     URL = URL & "BILLING="
  261.     URL = URL & Server.URLEncode(BILLING)
  262.     URL = URL & CHR(38)
  263.     
  264. '/=======================================================>
  265. '/ Check for null values in our required fields if
  266. '/ they are not set we redirect to the error page
  267. '/=======================================================>
  268. '/     If PAYMENT_TYPE = "" THEN
  269. '/         Response.Redirect (http://myserver/errorpage_paymenttype.htm)
  270. '/     End If
  271.     
  272.  
  273. '/=======================================================>
  274. '/ Check for NULL values and if 
  275. '/ they are NULL set them to chr(32)
  276. '/=======================================================>
  277.     IF USER_COMPANYNAME = "" THEN
  278.         USER_COMPANYNAME = CHR(32)
  279.     End If
  280.     IF USER_FIRSTNAME = "" THEN
  281.         USER_FIRSTNAME = CHR(32)
  282.     End If
  283.     IF USER_LASTNAME = "" THEN
  284.         USER_LASTNAME = CHR(32)
  285.     End If
  286.     IF USER_ADDRESS = "" THEN
  287.         USER_ADDRESS = CHR(32)
  288.     End If
  289.     IF USER_MOREADDRESS = "" THEN
  290.         USER_MOREADDRESS = CHR(32)
  291.     End If
  292.     IF USER_CITY = "" THEN
  293.         USER_CITY = CHR(32)
  294.     End If
  295.     IF USER_STATE = "" THEN
  296.         USER_STATE = CHR(32)
  297.     End If
  298.     IF USER_ZIP = "" THEN
  299.         USER_ZIP = CHR(32)
  300.     End If
  301.     IF USER_PHONE = "" THEN
  302.         USER_PHONE = CHR(32)
  303.     End If
  304.     IF PAYMENT_TYPE = "" THEN
  305.         PAYMENT_TYPE = CHR(32)
  306.     End If
  307.     IF PAYMENT_BILLNAME = "" THEN
  308.         PAYMENT_BILLNAME = CHR(32)
  309.     End If
  310.     IF PAYMENT_BILLADDRESS = "" THEN
  311.         PAYMENT_BILLADDRESS = CHR(32)
  312.     End If
  313.     IF PAYMENT_BILLEXADDRESS = "" THEN
  314.         PAYMENT_BILLEXADDRESS = CHR(32)
  315.     End If
  316.     IF PAYMENT_BILLCITY = "" THEN
  317.         PAYMENT_BILLCITY = CHR(32)
  318.     End If
  319.     IF PAYMENT_BILLSTATE = "" THEN
  320.         PAYMENT_BILLSTATE = CHR(32)
  321.     End If
  322.     IF PAYMENT_BILLZIP = "" THEN
  323.         PAYMENT_BILLZIP = CHR(32)
  324.     End If
  325.     IF PAYMENT_BILLPHONE = "" THEN
  326.         PAYMENT_BILLPHONE = CHR(32)
  327.     End If
  328.     IF PAYMENT_DISPLAYNAME = "" THEN
  329.         PAYMENT_DISPLAYNAME = CHR(32)
  330.     End If
  331.     IF PAYMENT_CARDNUMBER = "" THEN
  332.         PAYMENT_CARDNUMBER = CHR(32)
  333.     End If
  334.     IF PAYMENT_EXMONTH = "" THEN
  335.         PAYMENT_EXMONTH = CHR(32)
  336.     End If
  337.     IF PAYMENT_EXYEAR = "" THEN
  338.         PAYMENT_EXYEAR = CHR(32)
  339.     End If
  340.     IF PAYMENT_CARDHOLDER = "" THEN
  341.         PAYMENT_CARDHOLDER = CHR(32)
  342.     End If
  343.     IF BILLING = "" THEN
  344.         BILLING = CHR(32)
  345.     End If
  346.     
  347. '/=======================================================>
  348. '/ Build the BACK BACKURL with the name value pairs 
  349. '/=======================================================>
  350.     BACKURL = "http://myserver/signup03.asp?USER_FIRSTNAME="
  351.     BACKURL = BACKURL & Server.URLEncode(USER_FIRSTNAME)
  352.     BACKURL = BACKURL & CHR(38)
  353.     BACKURL = BACKURL & "USER_COMPANYNAME="
  354.     BACKURL = BACKURL & Server.URLEncode(USER_COMPANYNAME)
  355.     BACKURL = BACKURL & CHR(38)
  356.     BACKURL = BACKURL & "USER_LASTNAME="
  357.     BACKURL = BACKURL & Server.URLEncode(USER_LASTNAME)
  358.     BACKURL = BACKURL & CHR(38)
  359.     BACKURL = BACKURL & "USER_ADDRESS="
  360.     BACKURL = BACKURL & Server.URLEncode(USER_ADDRESS)
  361.     BACKURL = BACKURL & CHR(38)
  362.     BACKURL = BACKURL & "USER_MOREADDRESS="
  363.     BACKURL = BACKURL & Server.URLEncode(USER_MOREADDRESS)
  364.     BACKURL = BACKURL & CHR(38)
  365.     BACKURL = BACKURL & "USER_CITY="
  366.     BACKURL = BACKURL & Server.URLEncode(USER_CITY)
  367.     BACKURL = BACKURL & CHR(38)
  368.     BACKURL = BACKURL & "USER_STATE="
  369.     BACKURL = BACKURL & Server.URLEncode(USER_STATE)
  370.     BACKURL = BACKURL & CHR(38)
  371.     BACKURL = BACKURL & "USER_ZIP="
  372.     BACKURL = BACKURL & Server.URLEncode(USER_ZIP)
  373.     BACKURL = BACKURL & CHR(38)
  374.     BACKURL = BACKURL & "USER_PHONE="
  375.     BACKURL = BACKURL & Server.URLEncode(USER_PHONE)
  376.     BACKURL = BACKURL & CHR(38)
  377.     BACKURL = BACKURL & "PAYMENT_TYPE="
  378.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_TYPE)
  379.     BACKURL = BACKURL & CHR(38)
  380.     BACKURL = BACKURL & "PAYMENT_BILLNAME="
  381.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLNAME)
  382.     BACKURL = BACKURL & CHR(38)
  383.     BACKURL = BACKURL & "PAYMENT_BILLADDRESS="
  384.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLADDRESS)
  385.     BACKURL = BACKURL & CHR(38)
  386.     BACKURL = BACKURL & "PAYMENT_BILLEXADDRESS="
  387.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLEXADDRESS)
  388.     BACKURL = BACKURL & CHR(38)
  389.     BACKURL = BACKURL & "PAYMENT_BILLCITY="
  390.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLCITY)
  391.     BACKURL = BACKURL & CHR(38)
  392.     BACKURL = BACKURL & "PAYMENT_BILLSTATE="
  393.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLSTATE)
  394.     BACKURL = BACKURL & CHR(38)
  395.     BACKURL = BACKURL & "PAYMENT_BILLZIP="
  396.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLZIP)
  397.     BACKURL = BACKURL & CHR(38)
  398.     BACKURL = BACKURL & "PAYMENT_BILLPHONE="
  399.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLPHONE)
  400.     BACKURL = BACKURL & CHR(38)
  401.     BACKURL = BACKURL & "PAYMENT_DISPLAYNAME="
  402.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_DISPLAYNAME)
  403.     BACKURL = BACKURL & CHR(38)
  404.     BACKURL = BACKURL & "PAYMENT_CARDNUMBER="
  405.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_CARDNUMBER)
  406.     BACKURL = BACKURL & CHR(38)
  407.     BACKURL = BACKURL & "PAYMENT_EXMONTH="
  408.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_EXMONTH)
  409.     BACKURL = BACKURL & CHR(38)
  410.     BACKURL = BACKURL & "PAYMENT_EXYEAR="
  411.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_EXYEAR)
  412.     BACKURL = BACKURL & CHR(38)
  413.     BACKURL = BACKURL & "PAYMENT_CARDHOLDER="
  414.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_CARDHOLDER)
  415.     BACKURL = BACKURL & CHR(38)
  416.     BACKURL = BACKURL & "BILLING="
  417.     BACKURL = BACKURL & Server.URLEncode(BILLING)
  418.     BACKURL = BACKURL & CHR(38)
  419.         BACKURL = BACKURL & "V_PAYMENT_BILLADDRESS="
  420.         BACKURL = BACKURL & Server.URLEncode(V_PAYMENT_BILLADDRESS) 
  421.     BACKURL = BACKURL & CHR(38)
  422.         BACKURL = BACKURL & "V_PAYMENT_BILLZIP="
  423.         BACKURL = BACKURL & Server.URLEncode(V_PAYMENT_BILLZIP)
  424.     BACKURL = BACKURL & CHR(38)
  425.         BACKURL = BACKURL & "V_PAYMENT_CARDNUMBER="
  426.         BACKURL = BACKURL & Server.URLEncode(V_PAYMENT_CARDNUMBER) 
  427.     BACKURL = BACKURL & CHR(38)
  428.         BACKURL = BACKURL & "V_PAYMENT_EXMONTH="
  429.         BACKURL = BACKURL & Server.URLEncode(V_PAYMENT_EXMONTH )
  430.     BACKURL = BACKURL & CHR(38)
  431.         BACKURL = BACKURL & "V_PAYMENT_EXYEAR="
  432.         BACKURL = BACKURL & Server.URLEncode(V_PAYMENT_EXYEAR )
  433.     BACKURL = BACKURL & CHR(38)
  434.         BACKURL = BACKURL & "V_PAYMENT_CARDHOLDER="
  435.         BACKURL = BACKURL & Server.URLEncode(V_PAYMENT_CARDHOLDER )
  436.     BACKURL = BACKURL & CHR(38)
  437.         BACKURL = BACKURL & "MC_PAYMENT_BILLADDRESS="
  438.         BACKURL = BACKURL & Server.URLEncode(MC_PAYMENT_BILLADDRESS) 
  439.     BACKURL = BACKURL & CHR(38)
  440.         BACKURL = BACKURL & "MC_PAYMENT_BILLZIP="
  441.         BACKURL = BACKURL & Server.URLEncode(MC_PAYMENT_BILLZIP )
  442.     BACKURL = BACKURL & CHR(38)
  443.         BACKURL = BACKURL & "MC_PAYMENT_CARDNUMBER="
  444.         BACKURL = BACKURL & Server.URLEncode(MC_PAYMENT_CARDNUMBER) 
  445.     BACKURL = BACKURL & CHR(38)
  446.         BACKURL = BACKURL & "MC_PAYMENT_EXMONTH="
  447.         BACKURL = BACKURL & Server.URLEncode(MC_PAYMENT_EXMONTH )
  448.     BACKURL = BACKURL & CHR(38)
  449.         BACKURL = BACKURL & "MC_PAYMENT_EXYEAR="
  450.         BACKURL = BACKURL & Server.URLEncode(MC_PAYMENT_EXYEAR )
  451.     BACKURL = BACKURL & CHR(38)
  452.         BACKURL = BACKURL & "MC_PAYMENT_CARDHOLDER="
  453.         BACKURL = BACKURL & Server.URLEncode(MC_PAYMENT_CARDHOLDER )
  454.     BACKURL = BACKURL & CHR(38)
  455.         BACKURL = BACKURL & "AE_PAYMENT_BILLADDRESS="
  456.         BACKURL = BACKURL & Server.URLEncode(AE_PAYMENT_BILLADDRESS) 
  457.     BACKURL = BACKURL & CHR(38)
  458.         BACKURL = BACKURL & "AE_PAYMENT_BILLZIP="
  459.         BACKURL = BACKURL & Server.URLEncode(AE_PAYMENT_BILLZIP )
  460.     BACKURL = BACKURL & CHR(38)
  461.         BACKURL = BACKURL & "AE_PAYMENT_CARDNUMBER="
  462.         BACKURL = BACKURL & Server.URLEncode(AE_PAYMENT_CARDNUMBER) 
  463.     BACKURL = BACKURL & CHR(38)
  464.         BACKURL = BACKURL & "AE_PAYMENT_EXMONTH="
  465.         BACKURL = BACKURL & Server.URLEncode(AE_PAYMENT_EXMONTH) 
  466.     BACKURL = BACKURL & CHR(38)
  467.         BACKURL = BACKURL & "AE_PAYMENT_EXYEAR="
  468.         BACKURL = BACKURL & Server.URLEncode(AE_PAYMENT_EXYEAR)
  469.     BACKURL = BACKURL & CHR(38)
  470.         BACKURL = BACKURL & "AE_PAYMENT_CARDHOLDER="
  471.         BACKURL = BACKURL & Server.URLEncode(AE_PAYMENT_CARDHOLDER) 
  472.     BACKURL = BACKURL & CHR(38)
  473.         BACKURL = BACKURL & "PB_PAYMENT_BILLNAME="
  474.         BACKURL = BACKURL & Server.URLEncode(PB_PAYMENT_BILLNAME)
  475.     BACKURL = BACKURL & CHR(38)
  476.         BACKURL = BACKURL & "PB_PAYMENT_BILLPHONE="
  477.         BACKURL = BACKURL & Server.URLEncode(PB_PAYMENT_BILLPHONE)
  478.     BACKURL = BACKURL & CHR(38)
  479.         BACKURL = BACKURL & "BM_PAYMENT_BILLADDRESS="
  480.         BACKURL = BACKURL & Server.URLEncode(BM_PAYMENT_BILLADDRESS)
  481.     BACKURL = BACKURL & CHR(38)
  482.         BACKURL = BACKURL & "BM_PAYMENT_BILLEXADDRESS="
  483.         BACKURL = BACKURL & Server.URLEncode(BM_PAYMENT_BILLEXADDRESS) 
  484.     BACKURL = BACKURL & CHR(38)
  485.         BACKURL = BACKURL & "BM_PAYMENT_BILLCITY="
  486.         BACKURL = BACKURL & Server.URLEncode(BM_PAYMENT_BILLCITY)
  487.     BACKURL = BACKURL & CHR(38)
  488.         BACKURL = BACKURL & "BM_PAYMENT_BILLSTATE="
  489.         BACKURL = BACKURL & Server.URLEncode(BM_PAYMENT_BILLSTATE) 
  490.     BACKURL = BACKURL & CHR(38)
  491.         BACKURL = BACKURL & "BM_PAYMENT_BILLZIP="
  492.         BACKURL = BACKURL & Server.URLEncode(BM_PAYMENT_BILLZIP) 
  493.     BACKURL = BACKURL & CHR(38)
  494.  
  495. '/=======================================================>
  496. '/ Build the NEXT BACKURL 
  497. '/=======================================================>
  498.     NEXTURL = "http://myserver/signup05.asp"
  499.  
  500. %>
  501. <HTML>
  502. <HEAD>
  503. <TITLE>IEAK Sample</TITLE>
  504. </HEAD>
  505. <BODY  bgColor=THREEDFACE color=WINDOWTEXT><FONT style="font: 8pt ' ms sans serif' black">
  506. <FORM NAME="PAGEID" ACTION="PAGE4" STYLE="background:transparent"></FORM>
  507. <FORM NAME="BACK" ACTION="<% =BACKURL%>" STYLE="background:transparent"></FORM>
  508. <FORM NAME="PAGETYPE" ACTION="" STYLE="background:transparent"></FORM>
  509. <FORM NAME="NEXT" ACTION="<% =NEXTURL %>" STYLE="background:transparent">
  510. <B>Welcome To IEAK Sample Signup Server</B><BR>
  511. This is where we will collect the information to create your internet account.<P>
  512. <TABLE style="font: 8pt ' ms sans serif' black" cellpadding=5>
  513. <TR><TD COLSPAN=2>Please enter the e-mail name you wish to use.</TD></TR>
  514. <TR><TD>E-Mail Name </TD><TD><INPUT NAME="EMAILNAME" TYPE="TEXT" SIZE="25" VALUE="<% =EMAILNAME%>"></TD></TR>
  515. <TR><TD COLSPAN=2>Please enter the e-mail password you wish to use.</TD></TR>
  516. <TR><TD>E-Mail Password </TD><TD><INPUT NAME="EMAILPASSWORD" TYPE="TEXT" SIZE="25" VALUE="<% =EMAILPASSWORD%>"></TD></TR>
  517. <INPUT NAME="USER_COMPANYNAME" value="<% =USER_COMPANYNAME %>" TYPE="HIDDEN">
  518. <INPUT NAME="USER_FIRSTNAME" value="<% =USER_FIRSTNAME %>" TYPE="HIDDEN">
  519. <INPUT NAME="USER_LASTNAME" value="<% =USER_LASTNAME %>" TYPE="HIDDEN">
  520. <INPUT NAME="USER_ADDRESS" value="<% =USER_ADDRESS %>" TYPE="HIDDEN">
  521. <INPUT NAME="USER_MOREADDRESS" value="<% =USER_MOREADDRESS %>" TYPE="HIDDEN">
  522. <INPUT NAME="USER_CITY" value="<% =USER_CITY %>" TYPE="HIDDEN">
  523. <INPUT NAME="USER_STATE" value="<% =USER_STATE %>" TYPE="HIDDEN">
  524. <INPUT NAME="USER_ZIP" value="<% =USER_ZIP %>" TYPE="HIDDEN">
  525. <INPUT NAME="USER_PHONE" value="<% =USER_PHONE %>" TYPE="HIDDEN">
  526. <INPUT NAME="PAYMENT_TYPE" value="<% =PAYMENT_TYPE %>" TYPE="HIDDEN">
  527. <INPUT NAME="PAYMENT_BILLNAME" value="<% =PAYMENT_BILLNAME %>" TYPE="HIDDEN">
  528. <INPUT NAME="PAYMENT_BILLADDRESS" value="<% =PAYMENT_BILLADDRESS %>" TYPE="HIDDEN">
  529. <INPUT NAME="PAYMENT_BILLEXADDRESS" value="<% =PAYMENT_BILLEXADDRESS %>" TYPE="HIDDEN">
  530. <INPUT NAME="PAYMENT_BILLCITY" value="<% =PAYMENT_BILLCITY %>" TYPE="HIDDEN">
  531. <INPUT NAME="PAYMENT_BILLSTATE" value="<% =PAYMENT_BILLSTATE %>" TYPE="HIDDEN">
  532. <INPUT NAME="PAYMENT_BILLZIP" value="<% =PAYMENT_BILLZIP %>" TYPE="HIDDEN">
  533. <INPUT NAME="PAYMENT_BILLPHONE" value="<% =PAYMENT_BILLPHONE %>" TYPE="HIDDEN">
  534. <INPUT NAME="PAYMENT_DISPLAYNAME" value="<% =PAYMENT_DISPLAYNAME %>" TYPE="HIDDEN">
  535. <INPUT NAME="PAYMENT_CARDNUMBER" value="<% =PAYMENT_CARDNUMBER %>" TYPE="HIDDEN">
  536. <INPUT NAME="PAYMENT_EXMONTH" value="<% =PAYMENT_EXMONTH %>" TYPE="HIDDEN">
  537. <INPUT NAME="PAYMENT_EXYEAR" value="<% =PAYMENT_EXYEAR %>" TYPE="HIDDEN">
  538. <INPUT NAME="PAYMENT_CARDHOLDER" value="<% =PAYMENT_CARDHOLDER %>" TYPE="HIDDEN">
  539. <INPUT NAME="BILLING" value="<% =BILLING %>" TYPE="HIDDEN">
  540. <INPUT NAME="EMAILNAME" value="<% =EMAILNAME %>" TYPE="HIDDEN">
  541. <INPUT NAME="EMAILPASSWORD" value="<% =EMAILPASSWORD %>" TYPE="HIDDEN">
  542. </TABLE>
  543. </FORM>
  544. </BODY>
  545. </HTML>