%@ Language=VBScript %>
<%
Option Explicit
Response.Buffer = True
%>
<%
AgeRangeARRY=split("Under 18|19-25|26-30|31-35|36-40|41-45|46-50|51-55|56-60|61+","|")
dim CardHolderName
dim CCN
dim CVVNumber
dim ExpYear, ExpMon
dim marketing
dim CustomerEmail
dim hearaboutus
dim placeofpurchase
dim dateofpurchase
dim serialno
action=trim(lcase(Request("action")))
if action="update" then
CustomerID = trim(request("CustomerID"))
FirstName = trim(request("FirstName"))
LastName = trim(request("LastName"))
'phoneH = trim(request("phoneH"))
CustomerEmail = trim(request("email"))
BA_address01 = trim(request("BA_address01"))
BA_suburb = trim(request("BA_suburb"))
BA_state = trim(request("BA_state"))
'BA_pcode = trim(request("BA_pcode"))
AgeRange = trim(request("AgeRange"))
hearaboutus = trim(request("hearaboutus"))
marketing = trim(request("marketing"))
'PaymentOption = trim(request("PaymentOption"))
'CardHolderName = trim(request("CardHolderName"))
'CardType = trim(request("CardType"))
'CCN = trim(request("CCN"))
'ExpMon = trim(request("ExpMon"))
'ExpYear = trim(request("ExpYear"))
'placeofpurchase = trim(request("placeofpurchase"))
'dateofpurchase = trim(request("dateofpurchase"))
'serialno = trim(request("serialno"))
valid="Y"
if FirstName="" then
Valid="N"
ValidationMessage=ValidationMessage&"First name required
"
end if
if LastName="" then
Valid="N"
ValidationMessage=ValidationMessage&"Last name required
"
end if
if CustomerEmail="" then
Valid="N"
ValidationMessage=ValidationMessage&"Email address required
"
else
if not isValidEmail(CustomerEmail) then
Valid="N"
ValidationMessage=ValidationMessage&"Email address was invalid
"
end if
end if
'if BA_address01="" then
' Valid="N"
' ValidationMessage=ValidationMessage&"Address required
"
'end if
if BA_suburb="" then
Valid="N"
ValidationMessage=ValidationMessage&"Suburb required
"
end if
if BA_state="" then
Valid="N"
ValidationMessage=ValidationMessage&"State required
"
end if
if AgeRange="" then
Valid="N"
ValidationMessage=ValidationMessage&"Age range required
"
end if
if hearaboutus="" then
Valid="N"
ValidationMessage=ValidationMessage&"Please enter how you heard about Beyonwiz
"
end if
if cdbl(returnzero(CustomerID))=0 and valid="Y" then
'-- create raw customer record
SQL = "INSERT INTO CUSTOMER (email,CustPassword,RegDate) VALUES ('" & SQLTXT(CustomerEmail) & "','VIPREGO',#" & now() & "#)"
conn.execute(SQL)
SQL = "SELECT max(CustomerID) as CustomerID from Customer where email = '" & SQLTXT(CustomerEmail) & "' AND CustPassword='VIPREGO'"
set r=conn.execute(SQL)
CustomerID = r("CustomerID")
session("FNAME") = FirstName
SQL = "INSERT INTO CUSTOMER_ADDRESS (CustomerID,AddressType) VALUES (" & CustomerID & ",'PRIMARY')"
conn.execute(SQL)
SQL = "INSERT INTO CUSTOMER_ADDRESS (CustomerID,AddressType) VALUES (" & CustomerID & ",'DELIVERY')"
conn.execute(SQL)
end if
if cdbl(returnzero(CustomerID))>0 and valid="Y" then
'-- now update the records
SQL = "UPDATE CUSTOMER SET "
SQL = SQL & "FirstName = '" & SQLTXT(FirstName) & "',"
SQL = SQL & "LastName = '" & SQLTXT(LastName) & "',"
SQL = SQL & "AgeRange = '" & SQLTXT(AgeRange) & "',"
SQL = SQL & "email = '" & SQLTXT(CustomerEmail) & "',"
SQL = SQL & "HearAboutUs = '" & SQLTXT(hearaboutus) & "',"
'SQL = SQL & "PhoneH = '" & SQLTXT(PhoneH) & "',"
'SQL = SQL & "placeofpurchase = '" & SQLTXT(placeofpurchase) & "',"
'SQL = SQL & "dateofpurchase = '" & SQLTXT(dateofpurchase) & "',"
'SQL = SQL & "serialno = '" & SQLTXT(serialno) & "',"
SQL = SQL & "LastModified = #" & now() & "# " '--access
'SQL = SQL & "LastModified = getdate() "
SQL = SQL & "WHERE CustomerID = " & CustomerID
conn.execute(SQL)
'--check if there is a primary (Billing) address record and create one if there isnt
SQL="SELECT * FROM CUSTOMER_ADDRESS "
SQL = SQL & "WHERE AddressType='PRIMARY' AND CustomerID = " & CustomerID
set r2=conn.execute(SQL)
if r2.eof then
SQL = "INSERT INTO CUSTOMER_ADDRESS (CustomerID,AddressType) VALUES (" & CustomerID & ",'PRIMARY')"
conn.execute(SQL)
end if
r2.close
set r2=nothing
'-- now update the billing record
SQL = "UPDATE CUSTOMER_ADDRESS SET "
'SQL = SQL & "Address01 = '" & SQLTXT(BA_Address01) & "',"
SQL = SQL & "Suburb = '" & SQLTXT(BA_Suburb) & "',"
SQL = SQL & "State = '" & SQLTXT(BA_State) & "' "
'SQL = SQL & "PCode = '" & SQLTXT(BA_PCode) & "' "
SQL = SQL & "WHERE AddressType='PRIMARY' AND CustomerID = " & CustomerID
conn.execute(SQL)
if request("marketing") = "Y" and CustomerEmail<>"" then
SQL = "SELECT * FROM CUSTOMER_NEWSLETTER WHERE EMAIL = '" & SQLTXT(CustomerEmail) & "'"
set rs=conn.execute(SQL)
if rs.eof then
SQL = "INSERT INTO CUSTOMER_NEWSLETTER (EMAIL,CustomerID,FirstName,RegDate,Ref) VALUES ('" & SQLTXT(CustomerEmail) & "'," & session("customerid") & ",'" & SQLTXT(session("FNAME")) & "',#" & now() & "#,"
SQL = SQL & "'VIP')"
conn.execute(SQL)
session("Subscribed") = "Y"
end if
end if
session("message")="Thank you "&Firstname&" - you are now registered
"
else
session("message")=ValidationMessage
end if
end if%>
Beyonwiz : Christmas 2007 Free Gift Offer