home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 May / PCWorld_1999-05_cd.bin / Komunik / MSIE5 / ieak5cd.exe / signup05.asp < prev    next >
Encoding:
Text File  |  1999-02-24  |  11.2 KB  |  275 lines
  1. <%
  2. '/=======================================================>
  3. '/            Signup Server Sample Page 05
  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.  
  38. '/=======================================================>
  39. '/ lowercase the contents of the varriables and 
  40. '/ then trim any leading or trailing spaces
  41. '/=======================================================>
  42.     If USER_COMPANYNAME <> "" Then
  43.         USER_COMPANYNAME = LCASE(USER_COMPANYNAME)
  44.         USER_COMPANYNAME = TRIM(USER_COMPANYNAME)
  45.     End If
  46.     If USER_FIRSTNAME <> "" Then
  47.         USER_FIRSTNAME = LCASE(USER_FIRSTNAME)
  48.         USER_FIRSTNAME = TRIM(USER_FIRSTNAME)
  49.     End If
  50.     If USER_LASTNAME <> "" Then
  51.         USER_LASTNAME = LCASE(USER_LASTNAME)
  52.         USER_LASTNAME = TRIM(USER_LASTNAME)
  53.     End If
  54.     If USER_ADDRESS <> "" Then
  55.         USER_ADDRESS = LCASE(USER_ADDRESS)
  56.         USER_ADDRESS = TRIM(USER_ADDRESS)
  57.     End If
  58.     If USER_MOREADDRESS <> "" Then
  59.         USER_MOREADDRESS = LCASE(USER_MOREADDRESS)
  60.         USER_MOREADDRESS = TRIM(USER_MOREADDRESS)
  61.     End If
  62.     If USER_CITY <> "" Then
  63.         USER_CITY = LCASE(USER_CITY)
  64.         USER_CITY = TRIM(USER_CITY)
  65.     End If
  66.     If USER_STATE <> "" Then
  67.         USER_STATE = LCASE(USER_STATE)
  68.         USER_STATE = TRIM(USER_STATE)
  69.     End If
  70.     If USER_ZIP <> "" Then
  71.         USER_ZIP = LCASE(USER_ZIP)
  72.         USER_ZIP = TRIM(USER_ZIP)
  73.     End If
  74.     If USER_PHONE <> "" Then
  75.         USER_PHONE = LCASE(USER_PHONE)
  76.         USER_PHONE = TRIM(USER_PHONE)
  77.     End If
  78.     If PAYMENT_TYPE <> "" Then
  79.         PAYMENT_TYPE = LCASE(PAYMENT_TYPE)
  80.         PAYMENT_TYPE = TRIM(PAYMENT_TYPE)
  81.     End If
  82.     If PAYMENT_BILLNAME <> "" Then
  83.         PAYMENT_BILLNAME = LCASE(PAYMENT_BILLNAME)
  84.         PAYMENT_BILLNAME = TRIM(PAYMENT_BILLNAME)
  85.     End If
  86.     If PAYMENT_BILLADDRESS <> "" Then
  87.         PAYMENT_BILLADDRESS = LCASE(PAYMENT_BILLADDRESS)
  88.         PAYMENT_BILLADDRESS = TRIM(PAYMENT_BILLADDRESS)
  89.     End If
  90.     If PAYMENT_BILLEXADDRESS <> "" Then
  91.         PAYMENT_BILLEXADDRESS = LCASE(PAYMENT_BILLEXADDRESS)
  92.         PAYMENT_BILLEXADDRESS = TRIM(PAYMENT_BILLEXADDRESS)
  93.     End If
  94.     If PAYMENT_BILLCITY <> "" Then
  95.         PAYMENT_BILLCITY = LCASE(PAYMENT_BILLCITY)
  96.         PAYMENT_BILLCITY = TRIM(PAYMENT_BILLCITY)
  97.     End If
  98.     If PAYMENT_BILLSTATE <> "" Then
  99.         PAYMENT_BILLSTATE = LCASE(PAYMENT_BILLSTATE)
  100.         PAYMENT_BILLSTATE = TRIM(PAYMENT_BILLSTATE)
  101.     End If
  102.     If PAYMENT_BILLZIP <> "" Then
  103.         PAYMENT_BILLZIP = LCASE(PAYMENT_BILLZIP)
  104.         PAYMENT_BILLZIP = TRIM(PAYMENT_BILLZIP)
  105.     End If
  106.     If PAYMENT_BILLPHONE <> "" Then
  107.         PAYMENT_BILLPHONE = LCASE(PAYMENT_BILLPHONE)
  108.         PAYMENT_BILLPHONE = TRIM(PAYMENT_BILLPHONE)
  109.     End If
  110.     If PAYMENT_DISPLAYNAME <> "" Then
  111.         PAYMENT_DISPLAYNAME = LCASE(PAYMENT_DISPLAYNAME)
  112.         PAYMENT_DISPLAYNAME = TRIM(PAYMENT_DISPLAYNAME)
  113.     End If
  114.     If PAYMENT_CARDNUMBER <> "" Then
  115.         PAYMENT_CARDNUMBER = LCASE(PAYMENT_CARDNUMBER)
  116.         PAYMENT_CARDNUMBER = TRIM(PAYMENT_CARDNUMBER)
  117.     End If
  118.     If PAYMENT_EXMONTH <> "" Then
  119.         PAYMENT_EXMONTH = LCASE(PAYMENT_EXMONTH)
  120.         PAYMENT_EXMONTH = TRIM(PAYMENT_EXMONTH)
  121.     End If
  122.     If PAYMENT_EXYEAR <> "" Then
  123.         PAYMENT_EXYEAR = LCASE(PAYMENT_EXYEAR)
  124.         PAYMENT_EXYEAR = TRIM(PAYMENT_EXYEAR)
  125.     End If
  126.     If PAYMENT_CARDHOLDER <> "" Then
  127.         PAYMENT_CARDHOLDER = LCASE(PAYMENT_CARDHOLDER)
  128.         PAYMENT_CARDHOLDER = TRIM(PAYMENT_CARDHOLDER)
  129.     End If
  130.     If BILLING <> "" Then
  131.         BILLING = LCASE(BILLING)
  132.         BILLING = TRIM(BILLING)
  133.     End If
  134.     If EMAILNAME <> "" Then
  135.         EMAILNAME = LCASE(EMAILNAME)
  136.         EMAILNAME = TRIM(EMAILNAME)
  137.     End If
  138.     If EMAILPASSWORD <> "" Then
  139.         EMAILPASSWORD = LCASE(EMAILPASSWORD)
  140.         EMAILPASSWORD = TRIM(EMAILPASSWORD)
  141.     End If
  142.  
  143. '/=======================================================>
  144. '/ Build the BACK BACKURL with the name value pairs 
  145. '/=======================================================>
  146.     BACKURL = "http://myserver/signup04.asp?USER_FIRSTNAME="
  147.     BACKURL = BACKURL & Server.URLEncode(USER_FIRSTNAME)
  148.     BACKURL = BACKURL & CHR(38)
  149.     BACKURL = BACKURL & "USER_COMPANYNAME="
  150.     BACKURL = BACKURL & Server.URLEncode(USER_COMPANYNAME)
  151.     BACKURL = BACKURL & CHR(38)
  152.     BACKURL = BACKURL & "USER_LASTNAME="
  153.     BACKURL = BACKURL & Server.URLEncode(USER_LASTNAME)
  154.     BACKURL = BACKURL & CHR(38)
  155.     BACKURL = BACKURL & "USER_ADDRESS="
  156.     BACKURL = BACKURL & Server.URLEncode(USER_ADDRESS)
  157.     BACKURL = BACKURL & CHR(38)
  158.     BACKURL = BACKURL & "USER_MOREADDRESS="
  159.     BACKURL = BACKURL & Server.URLEncode(USER_MOREADDRESS)
  160.     BACKURL = BACKURL & CHR(38)
  161.     BACKURL = BACKURL & "USER_CITY="
  162.     BACKURL = BACKURL & Server.URLEncode(USER_CITY)
  163.     BACKURL = BACKURL & CHR(38)
  164.     BACKURL = BACKURL & "USER_STATE="
  165.     BACKURL = BACKURL & Server.URLEncode(USER_STATE)
  166.     BACKURL = BACKURL & CHR(38)
  167.     BACKURL = BACKURL & "USER_ZIP="
  168.     BACKURL = BACKURL & Server.URLEncode(USER_ZIP)
  169.     BACKURL = BACKURL & CHR(38)
  170.     BACKURL = BACKURL & "USER_PHONE="
  171.     BACKURL = BACKURL & Server.URLEncode(USER_PHONE)
  172.     BACKURL = BACKURL & CHR(38)
  173.     BACKURL = BACKURL & "PAYMENT_TYPE="
  174.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_TYPE)
  175.     BACKURL = BACKURL & CHR(38)
  176.     BACKURL = BACKURL & "PAYMENT_BILLNAME="
  177.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLNAME)
  178.     BACKURL = BACKURL & CHR(38)
  179.     BACKURL = BACKURL & "PAYMENT_BILLADDRESS="
  180.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLADDRESS)
  181.     BACKURL = BACKURL & CHR(38)
  182.     BACKURL = BACKURL & "PAYMENT_BILLEXADDRESS="
  183.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLEXADDRESS)
  184.     BACKURL = BACKURL & CHR(38)
  185.     BACKURL = BACKURL & "PAYMENT_BILLCITY="
  186.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLCITY)
  187.     BACKURL = BACKURL & CHR(38)
  188.     BACKURL = BACKURL & "PAYMENT_BILLSTATE="
  189.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLSTATE)
  190.     BACKURL = BACKURL & CHR(38)
  191.     BACKURL = BACKURL & "PAYMENT_BILLZIP="
  192.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLZIP)
  193.     BACKURL = BACKURL & CHR(38)
  194.     BACKURL = BACKURL & "PAYMENT_BILLPHONE="
  195.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLPHONE)
  196.     BACKURL = BACKURL & CHR(38)
  197.     BACKURL = BACKURL & "PAYMENT_DISPLAYNAME="
  198.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_DISPLAYNAME)
  199.     BACKURL = BACKURL & CHR(38)
  200.     BACKURL = BACKURL & "PAYMENT_CARDNUMBER="
  201.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_CARDNUMBER)
  202.     BACKURL = BACKURL & CHR(38)
  203.     BACKURL = BACKURL & "PAYMENT_EXMONTH="
  204.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_EXMONTH)
  205.     BACKURL = BACKURL & CHR(38)
  206.     BACKURL = BACKURL & "PAYMENT_EXYEAR="
  207.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_EXYEAR)
  208.     BACKURL = BACKURL & CHR(38)
  209.     BACKURL = BACKURL & "PAYMENT_CARDHOLDER="
  210.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_CARDHOLDER)
  211.     BACKURL = BACKURL & CHR(38)
  212.     BACKURL = BACKURL & "BILLING="
  213.     BACKURL = BACKURL & Server.URLEncode(BILLING)
  214.     BACKURL = BACKURL & CHR(38)
  215.     BACKURL = BACKURL & "EMAILNAME="
  216.     BACKURL = BACKURL & Server.URLEncode(EMAILNAME)
  217.     BACKURL = BACKURL & CHR(38)
  218.     BACKURL = BACKURL & "EMAILPASSWORD="
  219.     BACKURL = BACKURL & Server.URLEncode(EMAILPASSWORD)
  220.  
  221. '/=======================================================>
  222. '/ Build the NEXT BACKURL 
  223. '/=======================================================>
  224.     NEXTURL = "http://myserver/signup06.asp"
  225.  
  226. %>
  227. <HTML>
  228. <HEAD>
  229. <TITLE>IEAK Sample</TITLE>
  230. </HEAD>
  231. <BODY  bgColor=THREEDFACE color=WINDOWTEXT><FONT style="font: 8pt ' ms sans serif' black">
  232. <FORM NAME="PAGEID" ACTION="PAGE5" STYLE="background:transparent"></FORM>
  233. <FORM NAME="BACK" ACTION="<% =BACKURL %>" STYLE="background:transparent"></FORM>
  234. <FORM NAME="PAGETYPE" ACTION="" STYLE="background:transparent"></FORM>
  235. <FORM NAME="NEXT" ACTION="<% =NEXTURL %>" STYLE="background:transparent">
  236. <B>Welcome To IEAK Sample Signup Server</B><BR>
  237. This is where we will collect the information about the phone number that you will dial to gain access to the internet.<P>
  238. Please select the telephone number you wish to use.<BR>
  239. <SELECT NAME="POPSELECTION">
  240. <OPTION VALUE="1" >800 555 1234 Nation Wide 56K X2
  241. <OPTION VALUE="2" >425 555 1234 Seattle / Redmond 56K X2
  242. <OPTION VALUE="3" >425 555 1234 Seattle / Redmond 56K X2
  243. <OPTION VALUE="4" >425 555 1234 Seattle / Redmond ISDN
  244. <OPTION VALUE="5" >425 555 1234 Seattle / Redmond ISDN
  245. <OPTION VALUE="6" >425 555 1234 Seattle / Redmond ISDN
  246. </SELECT>
  247. <INPUT NAME="USER_COMPANYNAME" value="<% =USER_COMPANYNAME %>" TYPE="HIDDEN">
  248. <INPUT NAME="USER_FIRSTNAME" value="<% =USER_FIRSTNAME %>" TYPE="HIDDEN">
  249. <INPUT NAME="USER_LASTNAME" value="<% =USER_LASTNAME %>" TYPE="HIDDEN">
  250. <INPUT NAME="USER_ADDRESS" value="<% =USER_ADDRESS %>" TYPE="HIDDEN">
  251. <INPUT NAME="USER_MOREADDRESS" value="<% =USER_MOREADDRESS %>" TYPE="HIDDEN">
  252. <INPUT NAME="USER_CITY" value="<% =USER_CITY %>" TYPE="HIDDEN">
  253. <INPUT NAME="USER_STATE" value="<% =USER_STATE %>" TYPE="HIDDEN">
  254. <INPUT NAME="USER_ZIP" value="<% =USER_ZIP %>" TYPE="HIDDEN">
  255. <INPUT NAME="USER_PHONE" value="<% =USER_PHONE %>" TYPE="HIDDEN">
  256. <INPUT NAME="BILLING" value="<% =BILLING %>" TYPE="HIDDEN">
  257. <INPUT NAME="PAYMENT_TYPE" value="<% =PAYMENT_TYPE %>" TYPE="HIDDEN">
  258. <INPUT NAME="PAYMENT_BILLNAME" value="<% =PAYMENT_BILLNAME %>" TYPE="HIDDEN">
  259. <INPUT NAME="PAYMENT_BILLADDRESS" value="<% =PAYMENT_BILLADDRESS %>" TYPE="HIDDEN">
  260. <INPUT NAME="PAYMENT_BILLEXADDRESS" value="<% =PAYMENT_BILLEXADDRESS %>" TYPE="HIDDEN">
  261. <INPUT NAME="PAYMENT_BILLCITY" value="<% =PAYMENT_BILLCITY %>" TYPE="HIDDEN">
  262. <INPUT NAME="PAYMENT_BILLSTATE" value="<% =PAYMENT_BILLSTATE %>" TYPE="HIDDEN">
  263. <INPUT NAME="PAYMENT_BILLZIP" value="<% =PAYMENT_BILLZIP %>" TYPE="HIDDEN">
  264. <INPUT NAME="PAYMENT_BILLPHONE" value="<% =PAYMENT_BILLPHONE %>" TYPE="HIDDEN">
  265. <INPUT NAME="PAYMENT_DISPLAYNAME" value="<% =PAYMENT_DISPLAYNAME %>" TYPE="HIDDEN">
  266. <INPUT NAME="PAYMENT_CARDNUMBER" value="<% =PAYMENT_CARDNUMBER %>" TYPE="HIDDEN">
  267. <INPUT NAME="PAYMENT_EXMONTH" value="<% =PAYMENT_EXMONTH %>" TYPE="HIDDEN">
  268. <INPUT NAME="PAYMENT_EXYEAR" value="<% =PAYMENT_EXYEAR %>" TYPE="HIDDEN">
  269. <INPUT NAME="PAYMENT_CARDHOLDER" value="<% =PAYMENT_CARDHOLDER %>" TYPE="HIDDEN">
  270. <INPUT NAME="EMAILNAME" value="<% =EMAILNAME %>" TYPE="HIDDEN">
  271. <INPUT NAME="EMAILPASSWORD" value="<% =EMAILPASSWORD %>" TYPE="HIDDEN">
  272. <INPUT NAME="POPSELECTION" value="<% =POPSELECTION %>" TYPE="HIDDEN">
  273. </FORM>
  274. </BODY>
  275. </HTML>