MY ADMIN PAGE

<% custEmail = request.QueryString("custEmail") %>

Account Details For User : <%=custEmail%>

<% sqlQuery = "SELECT * FROM customer where custEmail='" & 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 %>