MY PAGE

Account Details

Should you wish to update your particulars. Simply update the form below and click "UPDATE". If you wish to change your registered email address, we will require you to send us an email request.

<% sqlQuery = "SELECT * FROM customer where custEmail='" & session("custEmail") & "'" Set conn = Server.CreateObject("ADODB.Connection") conn.Open "shopusersdb" Set Connection = conn Set rs = conn.Execute(sqlQuery) if not rs.EOF then custFirstName = rs("custFirstName") custLastName = rs("custLastName") custDOB = rs("custDOB") custAdd = rs("custAdd") custCountry = rs("custCountry") custPostal = rs("custPostal") custContactNo = rs("custContactNo") custEmail = rs("custEmail") if not custDOB = "" then DOBDay = datePart("d",formatDateTime(custDOB)) end if if not custDOB = "" then DOBMth = datePart("m",formatDateTime(custDOB)) end if if not custDOB = "" then DOBYr = datePart("yyyy",formatDateTime(custDOB)) end if end if %>
First Name  
Last Name
D.O.B day month year (e.g. 25/03/1979)
Address
Country
Postal Code
Contact No
Email
<% if request.queryString("result") = 1 then %> Your Account Details have been successfully updated. <% end if %>