<%@ 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%>

<%if session("message")<>"" then%> <%session("message")="" end if%> Your Details <%=session("message")%> Name: *  (First)   (Last)  Email Address: * Suburb: * State: *  <%SQL="SELECT * FROM States " SQL=SQL&"WHERE state<>'default'" set r=conn.execute(SQL) if not r.eof then do while not r.eof %>" <%if ucase(trim(r("abbrev")))=trim(BA_state) then%>SELECTED<%end if%>><%=ucase(trim(r("abbrev")))%><% r.movenext loop end if r.close set r=nothing%> Age: * <%for i=lbound(AgeRangeARRY) to ubound(AgeRangeARRY)%> SELECTED<%end if%>><%=AgeRangeARRY(i)%> <%next%> Where did you hear about Beyonwiz? * <%conn.close set conn=nothing%>