home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 May / PCWorld_1999-05_cd.bin / Komunik / MSIE5 / ieak5.exe / RCDATA / CABINET / signup06.asp < prev    next >
Text File  |  1999-02-24  |  11KB  |  280 lines
  1. <%
  2. '/=======================================================>
  3. '/            Signup Server Sample Page 06
  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 = TRIM(EMAILNAME)
  137.     End If
  138.     If EMAILPASSWORD <> "" Then
  139.         EMAILPASSWORD = TRIM(EMAILPASSWORD)
  140.     End If
  141.     If POPSELECTION <> "" Then
  142.         POPSELECTION = LCASE(POPSELECTION)
  143.         POPSELECTION = TRIM(POPSELECTION)
  144.     End If
  145.  
  146. '/=======================================================>
  147. '/ Build the BACK BACKURL with the name value pairs 
  148. '/=======================================================>
  149.     BACKURL = "http://myserver/signup05.asp?USER_FIRSTNAME="
  150.     BACKURL = BACKURL & Server.URLEncode(USER_FIRSTNAME)
  151.     BACKURL = BACKURL & CHR(38)
  152.     BACKURL = BACKURL & "USER_COMPANYNAME="
  153.     BACKURL = BACKURL & Server.URLEncode(USER_COMPANYNAME)
  154.     BACKURL = BACKURL & CHR(38)
  155.     BACKURL = BACKURL & "USER_LASTNAME="
  156.     BACKURL = BACKURL & Server.URLEncode(USER_LASTNAME)
  157.     BACKURL = BACKURL & CHR(38)
  158.     BACKURL = BACKURL & "USER_ADDRESS="
  159.     BACKURL = BACKURL & Server.URLEncode(USER_ADDRESS)
  160.     BACKURL = BACKURL & CHR(38)
  161.     BACKURL = BACKURL & "USER_MOREADDRESS="
  162.     BACKURL = BACKURL & Server.URLEncode(USER_MOREADDRESS)
  163.     BACKURL = BACKURL & CHR(38)
  164.     BACKURL = BACKURL & "USER_CITY="
  165.     BACKURL = BACKURL & Server.URLEncode(USER_CITY)
  166.     BACKURL = BACKURL & CHR(38)
  167.     BACKURL = BACKURL & "USER_STATE="
  168.     BACKURL = BACKURL & Server.URLEncode(USER_STATE)
  169.     BACKURL = BACKURL & CHR(38)
  170.     BACKURL = BACKURL & "USER_ZIP="
  171.     BACKURL = BACKURL & Server.URLEncode(USER_ZIP)
  172.     BACKURL = BACKURL & CHR(38)
  173.     BACKURL = BACKURL & "USER_PHONE="
  174.     BACKURL = BACKURL & Server.URLEncode(USER_PHONE)
  175.     BACKURL = BACKURL & CHR(38)
  176.     BACKURL = BACKURL & "PAYMENT_TYPE="
  177.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_TYPE)
  178.     BACKURL = BACKURL & CHR(38)
  179.     BACKURL = BACKURL & "PAYMENT_BILLNAME="
  180.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLNAME)
  181.     BACKURL = BACKURL & CHR(38)
  182.     BACKURL = BACKURL & "PAYMENT_BILLADDRESS="
  183.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLADDRESS)
  184.     BACKURL = BACKURL & CHR(38)
  185.     BACKURL = BACKURL & "PAYMENT_BILLEXADDRESS="
  186.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLEXADDRESS)
  187.     BACKURL = BACKURL & CHR(38)
  188.     BACKURL = BACKURL & "PAYMENT_BILLCITY="
  189.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLCITY)
  190.     BACKURL = BACKURL & CHR(38)
  191.     BACKURL = BACKURL & "PAYMENT_BILLSTATE="
  192.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLSTATE)
  193.     BACKURL = BACKURL & CHR(38)
  194.     BACKURL = BACKURL & "PAYMENT_BILLZIP="
  195.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLZIP)
  196.     BACKURL = BACKURL & CHR(38)
  197.     BACKURL = BACKURL & "PAYMENT_BILLPHONE="
  198.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_BILLPHONE)
  199.     BACKURL = BACKURL & CHR(38)
  200.     BACKURL = BACKURL & "PAYMENT_DISPLAYNAME="
  201.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_DISPLAYNAME)
  202.     BACKURL = BACKURL & CHR(38)
  203.     BACKURL = BACKURL & "PAYMENT_CARDNUMBER="
  204.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_CARDNUMBER)
  205.     BACKURL = BACKURL & CHR(38)
  206.     BACKURL = BACKURL & "PAYMENT_EXMONTH="
  207.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_EXMONTH)
  208.     BACKURL = BACKURL & CHR(38)
  209.     BACKURL = BACKURL & "PAYMENT_EXYEAR="
  210.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_EXYEAR)
  211.     BACKURL = BACKURL & CHR(38)
  212.     BACKURL = BACKURL & "PAYMENT_CARDHOLDER="
  213.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_CARDHOLDER)
  214.     BACKURL = BACKURL & CHR(38)
  215.     BACKURL = BACKURL & "BILLING="
  216.     BACKURL = BACKURL & Server.URLEncode(BILLING)
  217.     BACKURL = BACKURL & CHR(38)
  218.     BACKURL = BACKURL & "EMAILNAME="
  219.     BACKURL = BACKURL & Server.URLEncode(EMAILNAME)
  220.     BACKURL = BACKURL & CHR(38)
  221.     BACKURL = BACKURL & "EMAILPASSWORD="
  222.     BACKURL = BACKURL & Server.URLEncode(EMAILPASSWORD)
  223.     BACKURL = BACKURL & CHR(38)
  224.     BACKURL = BACKURL & "POPSELECTION="
  225.     BACKURL = BACKURL & POPSELECTION
  226.  
  227. '/=======================================================>
  228. '/ Build the NEXT BACKURL 
  229. '/=======================================================>
  230.     NEXTURL = "http://myserver/signup07.asp"
  231.  
  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="PAGE6" STYLE="background:transparent"></FORM>
  240. <FORM NAME="BACK" ACTION="<% =BACKURL %>" STYLE="background:transparent"></FORM>
  241. <FORM NAME="PAGETYPE" ACTION="TERMS" STYLE="background:transparent"></FORM>
  242. <FORM NAME="NEXT" ACTION="<% =NEXTURL %>" STYLE="background:transparent">
  243. <B>Welcome To IEAK Sample Signup Server</B><P>
  244. <B>IEAK Sample Rules Of The Road</B><P>
  245. <UL>
  246. <LI>NO E-Mail spamming
  247. <LI>NO IRC Bots
  248. <LI>NO Cross Posting In Usenet News
  249. <LI>NO Malicious attempts to access other resources on the internet
  250. </UL>
  251. <B>Failure to comply with the rules will result in loss of internet access and loss of all data stored on IEAK Sample resources.</B><P>
  252. <INPUT NAME="USER_COMPANYNAME" value="<% =USER_COMPANYNAME %>" TYPE="HIDDEN">
  253. <INPUT NAME="USER_FIRSTNAME" value="<% =USER_FIRSTNAME %>" TYPE="HIDDEN">
  254. <INPUT NAME="USER_LASTNAME" value="<% =USER_LASTNAME %>" TYPE="HIDDEN">
  255. <INPUT NAME="USER_ADDRESS" value="<% =USER_ADDRESS %>" TYPE="HIDDEN">
  256. <INPUT NAME="USER_MOREADDRESS" value="<% =USER_MOREADDRESS %>" TYPE="HIDDEN">
  257. <INPUT NAME="USER_CITY" value="<% =USER_CITY %>" TYPE="HIDDEN">
  258. <INPUT NAME="USER_STATE" value="<% =USER_STATE %>" TYPE="HIDDEN">
  259. <INPUT NAME="USER_ZIP" value="<% =USER_ZIP %>" TYPE="HIDDEN">
  260. <INPUT NAME="USER_PHONE" value="<% =USER_PHONE %>" TYPE="HIDDEN">
  261. <INPUT NAME="PAYMENT_TYPE" value="<% =PAYMENT_TYPE %>" TYPE="HIDDEN">
  262. <INPUT NAME="PAYMENT_BILLNAME" value="<% =PAYMENT_BILLNAME %>" TYPE="HIDDEN">
  263. <INPUT NAME="PAYMENT_BILLADDRESS" value="<% =PAYMENT_BILLADDRESS %>" TYPE="HIDDEN">
  264. <INPUT NAME="PAYMENT_BILLEXADDRESS" value="<% =PAYMENT_BILLEXADDRESS %>" TYPE="HIDDEN">
  265. <INPUT NAME="PAYMENT_BILLCITY" value="<% =PAYMENT_BILLCITY %>" TYPE="HIDDEN">
  266. <INPUT NAME="PAYMENT_BILLSTATE" value="<% =PAYMENT_BILLSTATE %>" TYPE="HIDDEN">
  267. <INPUT NAME="PAYMENT_BILLZIP" value="<% =PAYMENT_BILLZIP %>" TYPE="HIDDEN">
  268. <INPUT NAME="PAYMENT_BILLPHONE" value="<% =PAYMENT_BILLPHONE %>" TYPE="HIDDEN">
  269. <INPUT NAME="PAYMENT_DISPLAYNAME" value="<% =PAYMENT_DISPLAYNAME %>" TYPE="HIDDEN">
  270. <INPUT NAME="PAYMENT_CARDNUMBER" value="<% =PAYMENT_CARDNUMBER %>" TYPE="HIDDEN">
  271. <INPUT NAME="PAYMENT_EXMONTH" value="<% =PAYMENT_EXMONTH %>" TYPE="HIDDEN">
  272. <INPUT NAME="PAYMENT_EXYEAR" value="<% =PAYMENT_EXYEAR %>" TYPE="HIDDEN">
  273. <INPUT NAME="PAYMENT_CARDHOLDER" value="<% =PAYMENT_CARDHOLDER %>" TYPE="HIDDEN">
  274. <INPUT NAME="BILLING" value="<% =BILLING %>" TYPE="HIDDEN">
  275. <INPUT NAME="EMAILNAME" value="<% =EMAILNAME %>" TYPE="HIDDEN">
  276. <INPUT NAME="EMAILPASSWORD" value="<% =EMAILPASSWORD %>" TYPE="HIDDEN">
  277. <INPUT NAME="POPSELECTION" value="<% =POPSELECTION %>" TYPE="HIDDEN">
  278. </FORM>
  279. </BODY>
  280. </HTML>