home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 May / PCWorld_1999-05_cd.bin / Komunik / MSIE5 / ieak5cd.exe / signup02.asp < prev    next >
Encoding:
Text File  |  1999-02-24  |  8.5 KB  |  242 lines
  1. <%
  2. '/=======================================================>
  3. '/            Signup Server Sample Page 02
  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.  
  22. '/=======================================================>
  23. '/ lowercase the contents of the varriables and 
  24. '/ then trim any leading or trailing spaces
  25. '/=======================================================>
  26.     If USER_COMPANYNAME <> "" Then
  27.         USER_COMPANYNAME = LCASE(USER_COMPANYNAME)
  28.         USER_COMPANYNAME = TRIM(USER_COMPANYNAME)
  29.     End If
  30.     If USER_FIRSTNAME <> "" Then
  31.         USER_FIRSTNAME = LCASE(USER_FIRSTNAME)
  32.         USER_FIRSTNAME = TRIM(USER_FIRSTNAME)
  33.     End If
  34.     If USER_LASTNAME <> "" Then
  35.         USER_LASTNAME = LCASE(USER_LASTNAME)
  36.         USER_LASTNAME = TRIM(USER_LASTNAME)
  37.     End If
  38.     If USER_ADDRESS <> "" Then
  39.         USER_ADDRESS = LCASE(USER_ADDRESS)
  40.         USER_ADDRESS = TRIM(USER_ADDRESS)
  41.     End If
  42.     If USER_MOREADDRESS <> "" Then
  43.         USER_MOREADDRESS = LCASE(USER_MOREADDRESS)
  44.         USER_MOREADDRESS = TRIM(USER_MOREADDRESS)
  45.     End If
  46.     If USER_CITY <> "" Then
  47.         USER_CITY = LCASE(USER_CITY)
  48.         USER_CITY = TRIM(USER_CITY)
  49.     End If
  50.     If USER_STATE <> "" Then
  51.         USER_STATE = LCASE(USER_STATE)
  52.         USER_STATE = TRIM(USER_STATE)
  53.     End If
  54.     If USER_ZIP <> "" Then
  55.         USER_ZIP = LCASE(USER_ZIP)
  56.         USER_ZIP = TRIM(USER_ZIP)
  57.     End If
  58.     If USER_PHONE <> "" Then
  59.         USER_PHONE = LCASE(USER_PHONE)
  60.         USER_PHONE = TRIM(USER_PHONE)
  61.     End If
  62.  
  63. '/=======================================================>
  64. '/ Build the URL with the name value pairs 
  65. '/ in case we need to go to the error page
  66. '/=======================================================>
  67.     URL = "http://myserver/signup01.asp?USER_FIRSTNAME="
  68.     URL = URL & Server.URLEncode(USER_FIRSTNAME)
  69.     URL = URL & CHR(38)
  70.     URL = URL & "USER_COMPANYNAME="
  71.     URL = URL & Server.URLEncode(USER_COMPANYNAME)
  72.     URL = URL & CHR(38)
  73.     URL = URL & "USER_LASTNAME="
  74.     URL = URL & Server.URLEncode(USER_LASTNAME)
  75.     URL = URL & CHR(38)
  76.     URL = URL & "USER_ADDRESS="
  77.     URL = URL & Server.URLEncode(USER_ADDRESS)
  78.     URL = URL & CHR(38)
  79.     URL = URL & "USER_MOREADDRESS="
  80.     URL = URL & Server.URLEncode(USER_MOREADDRESS)
  81.     URL = URL & CHR(38)
  82.     URL = URL & "USER_CITY="
  83.     URL = URL & Server.URLEncode(USER_CITY)
  84.     URL = URL & CHR(38)
  85.     URL = URL & "USER_STATE="
  86.     URL = URL & Server.URLEncode(USER_STATE)
  87.     URL = URL & CHR(38)
  88.     URL = URL & "USER_ZIP="
  89.     URL = URL & Server.URLEncode(USER_ZIP)
  90.     URL = URL & CHR(38)
  91.     URL = URL & "USER_PHONE="
  92.     URL = URL & Server.URLEncode(USER_PHONE)
  93.     URL = URL & CHR(38)
  94.  
  95. '/=======================================================>
  96. '/ Check for null values in our required fields if
  97. '/ they are not set we redirect to the error page
  98. '/=======================================================>
  99. '/    If USER_COMPANYNAME = "" THEN
  100. '/        Response.Redirect (http://myserver/errorpage_companyname.htm)
  101. '/    End If
  102. '/    If USER_FIRSTNAME = "" THEN
  103. '/        Response.Redirect (http://myserver/errorpage_userfirstname.htm)
  104. '/    End If
  105. '/    If USER_LASTNAME = "" THEN
  106. '/        Response.Redirect (http://myserver/errorpage_userlastname.htm)
  107. '/    End If
  108. '/    If USER_ADDRESS = "" THEN
  109. '/        Response.Redirect (http://myserver/errorpage_useraddress.htm)
  110. '/    End If
  111. '/    If USER_CITY = "" THEN
  112. '/        Response.Redirect (http://myserver/errorpage_usercity.htm)
  113. '/    End If
  114. '/    If USER_STATE = "" THEN
  115. '/        Response.Redirect (http://myserver/errorpage_userstate.htm)
  116. '/    End If
  117. '/    If USER_ZIP = "" THEN
  118. '/        Response.Redirect (http://myserver/errorpage_userzip.htm)
  119. '/    End If
  120. '/    If USER_PHONE = "" THEN
  121. '/        Response.Redirect (http://myserver/errorpage_userphone.htm)
  122. '/    End If
  123.  
  124. '/=======================================================>
  125. '/ Check for NULL values and if 
  126. '/ they are NULL set them to chr(32)
  127. '/=======================================================>
  128.     IF USER_COMPANYNAME = "" THEN
  129.         USER_COMPANYNAME = CHR(32)
  130.     End If
  131.     IF USER_FIRSTNAME = "" THEN
  132.         USER_FIRSTNAME = CHR(32)
  133.     End If
  134.     IF USER_LASTNAME = "" THEN
  135.         USER_LASTNAME = CHR(32)
  136.     End If
  137.     IF USER_ADDRESS = "" THEN
  138.         USER_ADDRESS = CHR(32)
  139.     End If
  140.     IF USER_MOREADDRESS = "" THEN
  141.         USER_MOREADDRESS = CHR(32)
  142.     End If
  143.     IF USER_CITY = "" THEN
  144.         USER_CITY = CHR(32)
  145.     End If
  146.     IF USER_STATE = "" THEN
  147.         USER_STATE = CHR(32)
  148.     End If
  149.     IF USER_ZIP = "" THEN
  150.         USER_ZIP = CHR(32)
  151.     End If
  152.     IF USER_PHONE = "" THEN
  153.         USER_PHONE = CHR(32)
  154.     End If
  155.  
  156. '/=======================================================>
  157. '/ Build the BACK BACKURL with the name value pairs 
  158. '/=======================================================>
  159.     BACKURL = "http://myserver/signup01.asp?USER_FIRSTNAME="
  160.     BACKURL = BACKURL & Server.URLEncode(USER_FIRSTNAME)
  161.     BACKURL = BACKURL & CHR(38)
  162.     BACKURL = BACKURL & "USER_COMPANYNAME="
  163.     BACKURL = BACKURL & Server.URLEncode(USER_COMPANYNAME)
  164.     BACKURL = BACKURL & CHR(38)
  165.     BACKURL = BACKURL & "USER_LASTNAME="
  166.     BACKURL = BACKURL & Server.URLEncode(USER_LASTNAME)
  167.     BACKURL = BACKURL & CHR(38)
  168.     BACKURL = BACKURL & "USER_ADDRESS="
  169.     BACKURL = BACKURL & Server.URLEncode(USER_ADDRESS)
  170.     BACKURL = BACKURL & CHR(38)
  171.     BACKURL = BACKURL & "USER_MOREADDRESS="
  172.     BACKURL = BACKURL & Server.URLEncode(USER_MOREADDRESS)
  173.     BACKURL = BACKURL & CHR(38)
  174.     BACKURL = BACKURL & "USER_CITY="
  175.     BACKURL = BACKURL & Server.URLEncode(USER_CITY)
  176.     BACKURL = BACKURL & CHR(38)
  177.     BACKURL = BACKURL & "USER_STATE="
  178.     BACKURL = BACKURL & Server.URLEncode(USER_STATE)
  179.     BACKURL = BACKURL & CHR(38)
  180.     BACKURL = BACKURL & "USER_ZIP="
  181.     BACKURL = BACKURL & Server.URLEncode(USER_ZIP)
  182.     BACKURL = BACKURL & CHR(38)
  183.     BACKURL = BACKURL & "USER_PHONE="
  184.     BACKURL = BACKURL & Server.URLEncode(USER_PHONE)
  185.     BACKURL = BACKURL & CHR(38)
  186.     BACKURL = BACKURL & "PAYMENT_TYPE="
  187.     BACKURL = BACKURL & Server.URLEncode(PAYMENT_TYPE)
  188.     BACKURL = BACKURL & CHR(38)
  189.     BACKURL = BACKURL & "CUSTPAY1="
  190.     BACKURL = BACKURL & Server.URLEncode(CUSTPAY1)
  191.     BACKURL = BACKURL & CHR(38)
  192.     BACKURL = BACKURL & "CUSTPAY2="
  193.     BACKURL = BACKURL & Server.URLEncode(CUSTPAY2)
  194.     BACKURL = BACKURL & CHR(38)
  195.     BACKURL = BACKURL & "CUSTPAY3="
  196.     BACKURL = BACKURL & Server.URLEncode(CUSTPAY3)
  197.     BACKURL = BACKURL & CHR(38)
  198.     BACKURL = BACKURL & "EMAILNAME="
  199.  
  200. '/=======================================================>
  201. '/ Build the NEXT BACKURL 
  202. '/=======================================================>
  203.     NEXTURL = "http://myserver/signup03.asp"
  204.  
  205. %>
  206.  
  207.  
  208. <HTML>
  209. <HEAD>
  210. <TITLE>IEAK Sample</TITLE>
  211. </HEAD>
  212. <BODY  bgColor=THREEDFACE color=WINDOWTEXT><FONT style="font: 8pt ' ms sans serif' black">
  213. <FORM NAME="PAGEID" ACTION="PAGE2" STYLE="background:transparent"></FORM>
  214. <FORM NAME="BACK" ACTION="<% =BACKURL%>" STYLE="background:transparent"></FORM>
  215. <FORM NAME="PAGETYPE" ACTION="" STYLE="background:transparent"></FORM>
  216. <FORM NAME="NEXT" ACTION="<% =NEXTURL %>" STYLE="background:transparent">
  217. <B>Welcome To Signup</B><P>
  218. <TABLE style="font: 8pt ' ms sans serif' black" cellpadding=2>
  219.  
  220.   <INPUT ID = "BILLING1" NAME = "BILLING" TYPE = "radio" VALUE = "option1" ACCESSKEY = "1" CHECKED>
  221.   <LABEL FOR = "BILLING1">
  222.   <U>1</U>: Unlimited use for $19.95 a month
  223.   </LABEL>
  224.   <P>
  225.   <INPUT ID = "BILLING2" NAME = "BILLING" TYPE = "radio" VALUE = "option2" ACCESSKEY = "2">
  226.   <LABEL FOR = "BILLING2">
  227.   <U>2</U>: $2.00 per hour during peak hours
  228.   </LABEL>
  229. <INPUT NAME="USER_COMPANYNAME" value="<% =USER_COMPANYNAME %>" TYPE="HIDDEN">
  230. <INPUT NAME="USER_FIRSTNAME" value="<% =USER_FIRSTNAME %>" TYPE="HIDDEN">
  231. <INPUT NAME="USER_LASTNAME" value="<% =USER_LASTNAME %>" TYPE="HIDDEN">
  232. <INPUT NAME="USER_ADDRESS" value="<% =USER_ADDRESS %>" TYPE="HIDDEN">
  233. <INPUT NAME="USER_MOREADDRESS" value="<% =USER_MOREADDRESS %>" TYPE="HIDDEN">
  234. <INPUT NAME="USER_CITY" value="<% =USER_CITY %>" TYPE="HIDDEN">
  235. <INPUT NAME="USER_STATE" value="<% =USER_STATE %>" TYPE="HIDDEN">
  236. <INPUT NAME="USER_ZIP" value="<% =USER_ZIP %>" TYPE="HIDDEN">
  237. <INPUT NAME="USER_PHONE" value="<% =USER_PHONE %>" TYPE="HIDDEN">
  238. <INPUT NAME="BILLING" value="<% =BILLING %>" TYPE="HIDDEN">
  239. </TABLE>
  240. </FORM>
  241. </BODY>
  242. </HTML>