home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 1999 May
/
PCWorld_1999-05_cd.bin
/
Komunik
/
MSIE5
/
ieak5.exe
/
RCDATA
/
CABINET
/
signup03.asp
< prev
next >
Wrap
Text File
|
1999-02-24
|
16KB
|
344 lines
<%
'/=======================================================>
'/ Signup Server Sample Page 03
'/ Daniel Jacobson
'/ Modified by Edward C Kubaitis
'/ Rev .07 9/98
'/=======================================================>
'/=======================================================>
'/ Get all of the varriables from the ICW
'/and get them set into varriables
'/=======================================================>
THETIME = HOUR(TIME) & MINUTE(TIME) & SECOND(TIME)
THEDATE = YEAR(date) & MONTH(DATE) & DAY(DATE)
USER_FIRSTNAME = Request("USER_FIRSTNAME")
USER_LASTNAME = Request("USER_LASTNAME")
USER_ADDRESS = Request("USER_ADDRESS")
USER_MOREADDRESS = Request("USER_MOREADDRESS")
USER_CITY = Request("USER_CITY")
USER_STATE = Request("USER_STATE")
USER_ZIP = Request("USER_ZIP")
USER_PHONE = Request("USER_PHONE")
BILLING = Request("BILLING")
'/=======================================================>
'/ lowercase the contents of the varriables and
'/ then trim any leading or trailing spaces
'/=======================================================>
If USER_FIRSTNAME <> "" Then
USER_FIRSTNAME = LCASE(USER_FIRSTNAME)
USER_FIRSTNAME = TRIM(USER_FIRSTNAME)
End If
If USER_LASTNAME <> "" Then
USER_LASTNAME = LCASE(USER_LASTNAME)
USER_LASTNAME = TRIM(USER_LASTNAME)
End If
If USER_ADDRESS <> "" Then
USER_ADDRESS = LCASE(USER_ADDRESS)
USER_ADDRESS = TRIM(USER_ADDRESS)
End If
If USER_MOREADDRESS <> "" Then
USER_MOREADDRESS = LCASE(USER_MOREADDRESS)
USER_MOREADDRESS = TRIM(USER_MOREADDRESS)
End If
If USER_CITY <> "" Then
USER_CITY = LCASE(USER_CITY)
USER_CITY = TRIM(USER_CITY)
End If
If USER_STATE <> "" Then
USER_STATE = LCASE(USER_STATE)
USER_STATE = TRIM(USER_STATE)
End If
If USER_ZIP <> "" Then
USER_ZIP = LCASE(USER_ZIP)
USER_ZIP = TRIM(USER_ZIP)
End If
If USER_PHONE <> "" Then
USER_PHONE = LCASE(USER_PHONE)
USER_PHONE = TRIM(USER_PHONE)
End If
If BILLING <> "" Then
BILLING = LCASE(BILLING)
BILLING = TRIM(BILLING)
End If
'/=======================================================>
'/ Build the URL with the name value pairs
'/ in case we need to go to the error page
'/=======================================================>
URL = "http://myserver/signup02.asp?USER_FIRSTNAME="
URL = URL & Server.URLEncode(USER_FIRSTNAME)
URL = URL & CHR(38)
URL = URL & "USER_LASTNAME="
URL = URL & Server.URLEncode(USER_LASTNAME)
URL = URL & CHR(38)
URL = URL & "USER_ADDRESS="
URL = URL & Server.URLEncode(USER_ADDRESS)
URL = URL & CHR(38)
URL = URL & "USER_MOREADDRESS="
URL = URL & Server.URLEncode(USER_MOREADDRESS)
URL = URL & CHR(38)
URL = URL & "USER_CITY="
URL = URL & Server.URLEncode(USER_CITY)
URL = URL & CHR(38)
URL = URL & "USER_STATE="
URL = URL & Server.URLEncode(USER_STATE)
URL = URL & CHR(38)
URL = URL & "USER_ZIP="
URL = URL & Server.URLEncode(USER_ZIP)
URL = URL & CHR(38)
URL = URL & "USER_PHONE="
URL = URL & Server.URLEncode(USER_PHONE)
URL = URL & CHR(38)
URL = URL & "BILLING="
URL = URL & Server.URLEncode(BILLING)
URL = URL & CHR(38)
'/=======================================================>
'/ Check for null values in our required fields if
'/ they are not set we redirect to the error page
'/=======================================================>
'/ If USER_BILLING = "" THEN
'/ Response.Redirect (http://myserver/errorpage_billing.htm)
'/ End If
'/=======================================================>
'/ Check for NULL values and if
'/ they are NULL set them to chr(32)
'/=======================================================>
IF USER_FIRSTNAME = "" THEN
USER_FIRSTNAME = CHR(32)
End If
IF USER_LASTNAME = "" THEN
USER_LASTNAME = CHR(32)
End If
IF USER_ADDRESS = "" THEN
USER_ADDRESS = CHR(32)
End If
IF USER_MOREADDRESS = "" THEN
USER_MOREADDRESS = CHR(32)
End If
IF USER_CITY = "" THEN
USER_CITY = CHR(32)
End If
IF USER_STATE = "" THEN
USER_STATE = CHR(32)
End If
IF USER_ZIP = "" THEN
USER_ZIP = CHR(32)
End If
IF USER_PHONE = "" THEN
USER_PHONE = CHR(32)
End If
IF BILLING = "" THEN
BILLING = CHR(32)
End If
'/=======================================================>
'/ Build the BACK BACKURL with the name value pairs
'/=======================================================>
BACKURL = "http://myserver/signup02.asp?USER_FIRSTNAME="
BACKURL = BACKURL & Server.URLEncode(USER_FIRSTNAME)
BACKURL = BACKURL & CHR(38)
BACKURL = BACKURL & "USER_COMPANYNAME="
BACKURL = BACKURL & Server.URLEncode(USER_COMPANYNAME)
BACKURL = BACKURL & CHR(38)
BACKURL = BACKURL & "USER_LASTNAME="
BACKURL = BACKURL & Server.URLEncode(USER_LASTNAME)
BACKURL = BACKURL & CHR(38)
BACKURL = BACKURL & "USER_ADDRESS="
BACKURL = BACKURL & Server.URLEncode(USER_ADDRESS)
BACKURL = BACKURL & CHR(38)
BACKURL = BACKURL & "USER_MOREADDRESS="
BACKURL = BACKURL & Server.URLEncode(USER_MOREADDRESS)
BACKURL = BACKURL & CHR(38)
BACKURL = BACKURL & "USER_CITY="
BACKURL = BACKURL & Server.URLEncode(USER_CITY)
BACKURL = BACKURL & CHR(38)
BACKURL = BACKURL & "USER_STATE="
BACKURL = BACKURL & Server.URLEncode(USER_STATE)
BACKURL = BACKURL & CHR(38)
BACKURL = BACKURL & "USER_ZIP="
BACKURL = BACKURL & Server.URLEncode(USER_ZIP)
BACKURL = BACKURL & CHR(38)
BACKURL = BACKURL & "USER_PHONE="
BACKURL = BACKURL & Server.URLEncode(USER_PHONE)
BACKURL = BACKURL & CHR(38)
BACKURL = BACKURL & "BILLING="
BACKURL = BACKURL & Server.URLEncode(BILLING)
BACKURL = BACKURL & CHR(38)
'/=======================================================>
'/ Build the NEXT BACKURL
'/=======================================================>
NEXTURL = "http://myserver/signup04.asp"
%>
<HTML>
<HEAD>
<TITLE>IEAK Sample</TITLE>
<STYLE>
<!--
H2 {color: darkgreen; }
H3 {text-align: center; color: black; font: 14pt sans-serif; font-weight: bold}
TD {font: arial}
#header {position: absolute; top: 10px; left: 5px}
#page0, #page1, #page2, #page3, #page4, #page5, #page6 {position: absolute; width: 430px; top: 50px; left: 5px; border: 1px black solid; font: 10pt arial, geneva, sans-serif}
OL {font: 8pt sans-serif}
-->
</STYLE>
<SCRIPT LANGUAGE="JavaScript">
<!--
var pageCount = 6
var allSupport = (document.all!=null)
var layersSupport = (document.layers!=null)
function getElement(elName) {
// Get an element from its ID
if (allSupport)
return document.all[elName]
else
return document.layers[elName]
}
function setVisibility(el, bDisplay) {
// Hide or show to tip
if (bDisplay)
if (allSupport)
el.style.visibility = "visible"
else
el.visibility = "show";
else
if (allSupport)
el.style.visibility = "hidden"
else
el.visibility = "hidden"
}
function movePage(what) {
if ((allSupport) || (layersSupport)) {
for (var i=0; i <=pageCount; i++)
setVisibility(getElement("page"+i),what==i)
return false
} else
return true
}
function doResize() {
location.reload()
}
// Work-around Netscape resize bug
if (layersSupport)
setTimeout('window.onresize=doResize',1000)
// -->
</SCRIPT>
</HEAD>
<BODY bgColor=THREEDFACE color=WINDOWTEXT><FONT style="font: 8pt ' ms sans serif' black">
<FORM NAME="PAGEID" ACTION="PAGE3" STYLE="background:transparent"></FORM>
<FORM NAME="BACK" ACTION="<% =BACKURL%>" STYLE="background:transparent"></FORM>
<FORM NAME="PAGETYPE" ACTION="" STYLE="background:transparent"></FORM>
<FORM NAME="NEXT" ACTION="<% =NEXTURL %>" STYLE="background:transparent">
<DIV ID=header><B><FONT COLOR=navy>Select A Payment Method</FONT></B><BR>
<select NAME=PAYMENT_METHOD size="1" onchange="movePage(this.options[this.selectedIndex].value)">
<option value="0">Select a choice</option><option value="1">Visa</option>
<option value="2">Mastercard</option><option value="3">American Express</option>
<option value="4">Phone Bill</option><option value="5">Bill Through Mail</option>
<select><br></FONT></DIV>
<DIV ID=page0 STYLE="visibility: visible"><A NAME=p0></A></font></DIV>
<DIV ID=page1 STYLE="visibility: visible"><A NAME=p1></A><center>
<table border=0 cellpadding=1 cellspacing=0 height=210 style="font: 8pt ' ms sans serif' black">
<tr><td colspan=2>Credit Card Number:<br><INPUT NAME=V_PAYMENT_CARDNUMBER size=40 TYPE=INPUT VALUE="<% =V_PAYMENT_CARDNUMBER%>"></td></tr>
<tr><td>Expiration Month:<br><INPUT NAME=V_PAYMENT_EXMONTH TYPE=INPUT size=27 VALUE="<% =V_PAYMENT_EXMONTH%>">
</td><td>Expiration Year:<br><INPUT NAME=V_PAYMENT_EXYEAR TYPE=INPUT size=11 VALUE="<% =V_PAYMENT_EXYEAR %>"></td></tr>
<tr><td colspan=2>Name that Appears on Card:<br><INPUT NAME=V_PAYMENT_CARDHOLDER size=40 VALUE="<% =V_PAYMENT_CARDHOLDER%>" TYPE=INPUT></td></tr>
<tr><td>Billing address for the card:<br><INPUT NAME=V_PAYMENT_BILLADDRESS size=27 TYPE=INPUT VALUE="<% =V_PAYMENT_BILLADDRESS%>">
</td><td>ZIP or postal code:<br><INPUT NAME=V_PAYMENT_BILLZIP size=11 TYPE=INPUT VALUE="<% =V_PAYMENT_BILLZIP%>"></td></tr>
</table></center></DIV>
<DIV ID=page2 STYLE="visibility: visible"><A NAME=p2></A><p>
<center><table border=0 cellpadding=1 cellspacing=0 height=210 style="font: 8pt ' ms sans serif' black">
<tr><td colspan=2>Credit Card Number:<br><INPUT NAME=MC_PAYMENT_CARDNUMBER size=40 TYPE=INPUT VALUE="<% =MC_PAYMENT_CARDNUMBER%>"></td></tr>
<tr><td>Expiration Month:<br><INPUT NAME=MC_PAYMENT_EXMONTH TYPE=INPUT size=27 VALUE="<% =MC_PAYMENT_EXMONTH%>">
</td><td>Expiration Year:<br><INPUT NAME=MC_PAYMENT_EXYEAR TYPE=INPUT size=11 VALUE="<% =MC_PAYMENT_EXYEAR%>"></td></tr>
<tr><td colspan=2>Name that Appears on Card:<br><INPUT NAME=MC_PAYMENT_CARDHOLDER size=40 TYPE=INPUT VALUE="<% =MC_PAYMENT_CARDHOLDER%>"></td></tr>
<tr><td>Billing address for the card:<br><INPUT NAME=MC_PAYMENT_BILLADDRESS size=27 TYPE=INPUT VALUE="<% =MC_PAYMENT_BILLADDRESS%>">
</td><td>ZIP or postal code:<br><INPUT NAME=MC_PAYMENT_BILLZIP size=11 TYPE=INPUT VALUE="<% =MC_PAYMENT_BILLZIP%>"></td></tr>
</table></center></DIV>
<DIV ID=page3 STYLE="visibility: visible"><A NAME=p3></A>
<center><table border=0 cellpadding=1 cellspacing=0 height=210 style="font: 8pt ' ms sans serif' black">
<tr><td colspan=2>Credit Card Number:<br><INPUT NAME=AE_PAYMENT_CARDNUMBER size=40 TYPE=INPUT VALUE="<% =AE_PAYMENT_CARDNUMBER%>"></td></tr>
<tr><td>Expiration Month:<br><INPUT NAME=AE_PAYMENT_EXMONTH TYPE=INPUT size=27 VALUE="<% =AE_PAYMENT_EXMONTH%>">
</td><td>Expiration Year:<br><INPUT NAME=AE_PAYMENT_EXYEAR TYPE=INPUT size=11 VALUE="<% =AE_PAYMENT_EXYEAR%>"></td></tr>
<tr><td colspan=2>Name that Appears on Card:<br><INPUT NAME=AE_PAYMENT_CARDHOLDER size=40 TYPE=INPUT VALUE="<% =AE_PAYMENT_CARDHOLDER%>"></td></tr>
<tr><td>Billing address for the card:<br><INPUT NAME=AE_PAYMENT_BILLADDRESS size=27 TYPE=INPUT VALUE="<% =AE_PAYMENT_BILLADDRESS%>">
</td><td>ZIP or postal code:<br><INPUT NAME=AE_PAYMENT_BILLZIP size=11 TYPE=INPUT VALUE="<% =AE_PAYMENT_BILLZIP%>"></td></tr>
</table><center></DIV>
<DIV ID=page4 STYLE="visibility: visible"><A NAME=p4></A>
<center><table border=0 cellpadding=1 cellspacing=0 height=210 style="font: 8pt ' ms sans serif' black">
<tr><td>Name on phone bill:<br><INPUT NAME=PB_PAYMENT_BILLNAME size=40 TYPE=INPUT VALUE="<% =PB_PAYMENT_BILLNAME%>"></td></tr>
<tr><td>Phone account number:<br><INPUT NAME=PB_PAYMENT_BILLPHONE TYPE=INPUT size=40 VALUE="<% =PB_PAYMENT_BILLPHONE%>"></td></tr>
<tr><td><br> </td></tr>
<tr><td><br> </td></tr>
<tr><td><br> </td></tr>
</table></center></DIV>
<DIV ID=page5 STYLE="visibility: visible"><A NAME=p5></A>
<center><table border=0 cellpadding=1 cellspacing=0 height=210 style="font: 8pt ' ms sans serif' black">
<tr><td colspan=2>Address:<br><INPUT NAME=BH_PAYMENT_BILLADDRESS size=40 TYPE=INPUT VALUE="<% =BH_PAYMENT_BILLADDRESS%>"></td></tr>
<tr><td colspan=2>Additional address information (optional):<br><INPUT NAME=BH_PAYMENT_BILLEXADDRESS VALUE="<% =BH_PAYMENT_BILLEXADDRESS%>" TYPE=INPUT size=40></td></tr>
<tr><td colspan=2>City:<br><INPUT NAME=BH_PAYMENT_BILLCITY size=40 TYPE=INPUT VALUE="<% =BH_PAYMENT_BILLCITY%>"></td></tr>
<tr><td>State or province:<br><INPUT NAME=BH_PAYMENT_BILLSTATE size=27 TYPE=INPUT VALUE="<% =BH_PAYMENT_BILLSTATE%>">
</td><td>ZIP or postal code:<br><INPUT NAME=BH_PAYMENT_BILLZIP size=11 TYPE=INPUT VALUE="<% =BH_PAYMENT_BILLZIP%>"></td></tr>
</table></center></DIV>
<DIV ID=page6 STYLE="visibility: visible"><A NAME=p6></A>
<table border=0 cellpadding=1 cellspacing=0 width=428 height=210 bgcolor=THREEDFACE><tr><td><br> </td></tr></table>
</DIV>
<INPUT NAME="USER_COMPANYNAME" value="<% =USER_COMPANYNAME %>" TYPE="HIDDEN">
<INPUT NAME="USER_FIRSTNAME" value="<% =USER_FIRSTNAME %>" TYPE="HIDDEN">
<INPUT NAME="USER_LASTNAME" value="<% =USER_LASTNAME %>" TYPE="HIDDEN">
<INPUT NAME="USER_ADDRESS" value="<% =USER_ADDRESS %>" TYPE="HIDDEN">
<INPUT NAME="USER_MOREADDRESS" value="<% =USER_MOREADDRESS %>" TYPE="HIDDEN">
<INPUT NAME="USER_CITY" value="<% =USER_CITY %>" TYPE="HIDDEN">
<INPUT NAME="USER_STATE" value="<% =USER_STATE %>" TYPE="HIDDEN">
<INPUT NAME="USER_ZIP" value="<% =USER_ZIP %>" TYPE="HIDDEN">
<INPUT NAME="USER_PHONE" value="<% =USER_PHONE %>" TYPE="HIDDEN">
<INPUT NAME="BILLING" value="<% =BILLING %>" TYPE="HIDDEN">
<INPUT NAME="PAYMENT_METHOD" value="<% =PAYMENT_METHOD %>" TYPE="HIDDEN">
<INPUT NAME="V_PAYMENT_CARDNUMBER" value="<% =V_PAYMENT_CARDNUMBER %>" TYPE="HIDDEN">
<INPUT NAME="V_PAYMENT_BILLADDRESS" value="<% =V_PAYMENT_BILLADDRESS %>" TYPE="HIDDEN">
<INPUT NAME="V_PAYMENT_BILLZIP" value="<% =V_PAYMENT_BILLZIP %>" TYPE="HIDDEN">
<INPUT NAME="V_PAYMENT_EXMONTH" value="<% =V_PAYMENT_EXMONTH %>" TYPE="HIDDEN">
<INPUT NAME="V_PAYMENT_EXYEAR" value="<% =V_PAYMENT_EXYEAR %>" TYPE="HIDDEN">
<INPUT NAME="V_PAYMENT_CARDHOLDER" value="<% =V_PAYMENT_CARDHOLDER %>" TYPE="HIDDEN">
<INPUT NAME="MC_PAYMENT_BILLADDRESS" value="<% =MC_PAYMENT_BILLADDRESS %>" TYPE="HIDDEN">
<INPUT NAME="MC_PAYMENT_BILLZIP" value="<% =MC_PAYMENT_BILLZIP %>" TYPE="HIDDEN">
<INPUT NAME="MC_PAYMENT_CARDNUMBER" value="<% =MC_PAYMENT_CARDNUMBER %>" TYPE="HIDDEN">
<INPUT NAME="MC_PAYMENT_EXMONTH" value="<% =MC_PAYMENT_EXMONTH %>" TYPE="HIDDEN">
<INPUT NAME="MC_PAYMENT_EXYEAR" value="<% =MC_PAYMENT_EXYEAR %>" TYPE="HIDDEN">
<INPUT NAME="MC_PAYMENT_CARDHOLDER" value="<% =MC_PAYMENT_CARDHOLDER %>" TYPE="HIDDEN">
<INPUT NAME="AE_PAYMENT_BILLADDRESS" value="<% =AE_PAYMENT_BILLADDRESS %>" TYPE="HIDDEN">
<INPUT NAME="AE_PAYMENT_BILLZIP" value="<% =AE_PAYMENT_BILLZIP %>" TYPE="HIDDEN">
<INPUT NAME="AE_PAYMENT_CARDNUMBER" value="<% =AE_PAYMENT_CARDNUMBER %>" TYPE="HIDDEN">
<INPUT NAME="AE_PAYMENT_EXMONTH" value="<% =AE_PAYMENT_EXMONTH %>" TYPE="HIDDEN">
<INPUT NAME="AE_PAYMENT_EXYEAR" value="<% =AE_PAYMENT_EXYEAR %>" TYPE="HIDDEN">
<INPUT NAME="AE_PAYMENT_CARDHOLDER" value="<% =AE_PAYMENT_CARDHOLDER %>" TYPE="HIDDEN">
<INPUT NAME="PB_PAYMENT_BILLNAME" value="<% =PB_PAYMENT_BILLNAME %>" TYPE="HIDDEN">
<INPUT NAME="PB_PAYMENT_BILLPHONE" value="<% =PB_PAYMENT_BILLPHONE %>" TYPE="HIDDEN">
<INPUT NAME="BM_PAYMENT_BILLADDRESS" value="<% =BM_PAYMENT_BILLADDRESS %>" TYPE="HIDDEN">
<INPUT NAME="BM_PAYMENT_BILLEXADDRESS" value="<% =BM_PAYMENT_BILLEXADDRESS %>" TYPE="HIDDEN">
<INPUT NAME="BM_PAYMENT_BILLCITY" value="<% =BM_PAYMENT_BILLCITY %>" TYPE="HIDDEN">
<INPUT NAME="BM_PAYMENT_BILLSTATE" value="<% =BM_PAYMENT_BILLSTATE %>" TYPE="HIDDEN">
<INPUT NAME="BM_PAYMENT_BILLZIP" value="<% =BM_PAYMENT_BILLZIP %>" TYPE="HIDDEN">
</FORM>
</BODY>
</HTML>