home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 May / PCWorld_1999-05_cd.bin / Komunik / MSIE5 / ieak5cd.exe / signup07.asp < prev    next >
Encoding:
Text File  |  1999-02-24  |  11.3 KB  |  275 lines
  1. <%
  2. '/=======================================================>
  3. '/            Signup Server Sample Page 07
  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. '/ Build the BACK BACKURL with the name value pairs 
  149. '/=======================================================>
  150.     BACKURL = "http://myserver/signup06.asp?USER_FIRSTNAME="
  151.     BACKURL = BACKURL & Server.URLEncode(USER_FIRSTNAME)
  152.     BACKURL = BACKURL & CHR(38)
  153.     BACKURL = BACKURL & "USER_COMPANYNAME="
  154.     BACKURL = BACKURL & Server.URLEncode(USER_COMPANYNAME)
  155.     BACKURL = BACKURL & CHR(38)
  156.     BACKURL = BACKURL & "USER_LASTNAME="
  157.     BACKURL = BACKURL & Server.URLEncode(USER_LASTNAME)
  158.     BACKURL = BACKURL & CHR(38)
  159.     BACKURL = BACKURL & "USER_ADDRESS="
  160.     BACKURL = BACKURL & Server.URLEncode(USER_ADDRESS)
  161.     BACKURL = BACKURL & CHR(38)
  162.     BACKURL = BACKURL & "USER_MOREADDRESS="
  163.     BACKURL = BACKURL & Server.URLEncode(USER_MOREADDRESS)
  164.     BACKURL = BACKURL & CHR(38)
  165.     BACKURL = BACKURL & "USER_CITY="
  166.     BACKURL = BACKURL & Server.URLEncode(USER_CITY)
  167.     BACKURL = BACKURL & CHR(38)
  168.     BACKURL = BACKURL & "USER_STATE="
  169.     BACKURL = BACKURL & Server.URLEncode(USER_STATE)
  170.     BACKURL = BACKURL & CHR(38)
  171.     BACKURL = BACKURL & "USER_ZIP="
  172.     BACKURL = BACKURL & Server.URLEncode(USER_ZIP)
  173.     BACKURL = BACKURL & CHR(38)
  174.     BACKURL = BACKURL & "USER_PHONE="
  175.     BACKURL = BACKURL & Server.URLEncode(USER_PHONE)
  176.     BACKURL = BACKURL & CHR(38)
  177.     BACKURL = BACKURL & "PAYMENT_TYPE="
  178.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_TYPE)
  179.     BACKURL = BACKURL & CHR(38)
  180.     BACKURL = BACKURL & "PAYMENT_BILLNAME="
  181.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLNAME)
  182.     BACKURL = BACKURL & CHR(38)
  183.     BACKURL = BACKURL & "PAYMENT_BILLADDRESS="
  184.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLADDRESS)
  185.     BACKURL = BACKURL & CHR(38)
  186.     BACKURL = BACKURL & "PAYMENT_BILLEXADDRESS="
  187.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLEXADDRESS)
  188.     BACKURL = BACKURL & CHR(38)
  189.     BACKURL = BACKURL & "PAYMENT_BILLCITY="
  190.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLCITY)
  191.     BACKURL = BACKURL & CHR(38)
  192.     BACKURL = BACKURL & "PAYMENT_BILLSTATE="
  193.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLSTATE)
  194.     BACKURL = BACKURL & CHR(38)
  195.     BACKURL = BACKURL & "PAYMENT_BILLZIP="
  196.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLZIP)
  197.     BACKURL = BACKURL & CHR(38)
  198.     BACKURL = BACKURL & "PAYMENT_BILLPHONE="
  199.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLPHONE)
  200.     BACKURL = BACKURL & CHR(38)
  201.     BACKURL = BACKURL & "PAYMENT_DISPLAYNAME="
  202.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_DISPLAYNAME)
  203.     BACKURL = BACKURL & CHR(38)
  204.     BACKURL = BACKURL & "PAYMENT_CARDNUMBER="
  205.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_CARDNUMBER)
  206.     BACKURL = BACKURL & CHR(38)
  207.     BACKURL = BACKURL & "PAYMENT_EXMONTH="
  208.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_EXMONTH)
  209.     BACKURL = BACKURL & CHR(38)
  210.     BACKURL = BACKURL & "PAYMENT_EXYEAR="
  211.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_EXYEAR)
  212.     BACKURL = BACKURL & CHR(38)
  213.     BACKURL = BACKURL & "PAYMENT_CARDHOLDER="
  214.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_CARDHOLDER)
  215.     BACKURL = BACKURL & CHR(38)
  216.     BACKURL = BACKURL & "BILLING="
  217.     BACKURL = BACKURL & Server.URLEncode(BILLING)
  218.     BACKURL = BACKURL & CHR(38)
  219.     BACKURL = BACKURL & "EMAILNAME="
  220.     BACKURL = BACKURL & Server.URLEncode(EMAILNAME)
  221.     BACKURL = BACKURL & CHR(38)
  222.     BACKURL = BACKURL & "EMAILPASSWORD="
  223.     BACKURL = BACKURL & Server.URLEncode(EMAILPASSWORD)
  224.     BACKURL = BACKURL & CHR(38)
  225.     BACKURL = BACKURL & "POPSELECTION="
  226.     BACKURL = BACKURL & POPSELECTION
  227.  
  228. '/=======================================================>
  229. '/ Build the NEXT BACKURL 
  230. '/=======================================================>
  231.     NEXTURL = "http://myserver/signup08.asp"
  232.  
  233. %>
  234. <HTML>
  235. <HEAD>
  236. <TITLE>IEAK Sample</TITLE>
  237. </HEAD>
  238. <BODY  bgColor=THREEDFACE color=WINDOWTEXT><FONT style="font: 8pt ' ms sans serif' black">
  239. <FORM NAME="PAGEID" ACTION="PAGE7" STYLE="background:transparent"></FORM>
  240. <FORM NAME="BACK" ACTION="<% =BACKURL %>" STYLE="background:transparent"></FORM>
  241. <FORM NAME="PAGETYPE" ACTION="FINISH" STYLE="background:transparent"></FORM>
  242. <FORM NAME="NEXT" ACTION="<% =NEXTURL %>" STYLE="background:transparent">
  243. <B>Welcome To IEAK Sample Signup Server</B><BR>
  244. Your signup is completed. Please note that it may take us up to 30 minutes to process and activate your account. If your account is not active within 30 minutes please notify our system administrators and they will rectify the problem for you.<P>
  245. <INPUT TYPE="HIDDEN" NAME="USER_COMPANYNAME" VALUE="<% =USER_COMPANYNAME %>">
  246. <INPUT TYPE="HIDDEN" NAME="USER_FIRSTNAME" VALUE="<% =USER_FIRSTNAME %>">
  247. <INPUT TYPE="HIDDEN" NAME="USER_LASTNAME" VALUE="<% =USER_LASTNAME %>">
  248. <INPUT TYPE="HIDDEN" NAME="USER_ADDRESS" VALUE="<% =USER_ADDRESS %>">
  249. <INPUT TYPE="HIDDEN" NAME="USER_MOREADDRESS" VALUE="<% =USER_MOREADDRESS %>">
  250. <INPUT TYPE="HIDDEN" NAME="USER_CITY" VALUE="<% =USER_CITY %>">
  251. <INPUT TYPE="HIDDEN" NAME="USER_STATE" VALUE="<% =USER_STATE %>">
  252. <INPUT TYPE="HIDDEN" NAME="USER_ZIP" VALUE="<% =USER_ZIP %>">
  253. <INPUT TYPE="HIDDEN" NAME="USER_PHONE" VALUE="<% =USER_PHONE %>">
  254. <INPUT TYPE="HIDDEN" NAME="AREACODE" VALUE="<% =AREACODE %>">
  255. <INPUT TYPE="HIDDEN" NAME="COUNTRYCODE" VALUE="<% =COUNTRYCODE %>">
  256. <INPUT TYPE="HIDDEN" NAME="USER_FE_NAME" VALUE="<% =USER_FE_NAME %>">
  257. <INPUT TYPE="HIDDEN" NAME="PAYMENT_TYPE" VALUE="<% =PAYMENT_TYPE %>">
  258. <INPUT TYPE="HIDDEN" NAME="PAYMENT_BILLNAME" VALUE="<% =PAYMENT_BILLNAME %>">
  259. <INPUT TYPE="HIDDEN" NAME="PAYMENT_BILLADDRESS" VALUE="<% =PAYMENT_BILLADDRESS %>">
  260. <INPUT TYPE="HIDDEN" NAME="PAYMENT_BILLEXADDRESS" VALUE="<% =PAYMENT_BILLEXADDRESS %>">
  261. <INPUT TYPE="HIDDEN" NAME="PAYMENT_BILLCITY" VALUE="<% =PAYMENT_BILLCITY %>">
  262. <INPUT TYPE="HIDDEN" NAME="PAYMENT_BILLSTATE" VALUE="<% =PAYMENT_BILLSTATE %>">
  263. <INPUT TYPE="HIDDEN" NAME="PAYMENT_BILLZIP" VALUE="<% =PAYMENT_BILLZIP %>">
  264. <INPUT TYPE="HIDDEN" NAME="PAYMENT_BILLPHONE" VALUE="<% =PAYMENT_BILLPHONE %>">
  265. <INPUT TYPE="HIDDEN" NAME="PAYMENT_DISPLAYNAME" VALUE="<% =PAYMENT_DISPLAYNAME %>">
  266. <INPUT TYPE="HIDDEN" NAME="PAYMENT_CARDNUMBER" VALUE="<% =PAYMENT_CARDNUMBER %>">
  267. <INPUT TYPE="HIDDEN" NAME="PAYMENT_EXMONTH" VALUE="<% =PAYMENT_EXMONTH %>">
  268. <INPUT TYPE="HIDDEN" NAME="PAYMENT_EXYEAR" VALUE="<% =PAYMENT_EXYEAR %>">
  269. <INPUT TYPE="HIDDEN" NAME="PAYMENT_CARDHOLDER" VALUE="<% =PAYMENT_CARDHOLDER %>">
  270. <INPUT TYPE="HIDDEN" NAME="SIGNED_PID" VALUE="<% =SIGNED_PID %>">
  271. <INPUT TYPE="HIDDEN" NAME="EMAILNAME" VALUE="<% =EMAILNAME %>">
  272. <INPUT TYPE="HIDDEN" NAME="EMAILPASSWORD" VALUE="<% =EMAILPASSWORD %>">
  273. <INPUT TYPE="HIDDEN" NAME="POPSELECTION" VALUE="<% =POPSELECTION %>">
  274. </FORM></BODY>
  275. </HTML>