MY PAGE

Change Password

Having a queer feeling that someone's gonna hack your account. Fear not! Simply key in your new password and click the "Change Password" button.

<% 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") custAdd = rs("custAdd") custCountry = rs("custCountry") custPostal = rs("custPostal") custContactNo = rs("custContactNo") custEmail = rs("custEmail") end if %>
User ID
Old Password (max 6 - 12 chars)
New Password (max 6 - 12 chars)
New Password (max 6 - 12 chars)
<% if request.queryString("result") = 1 then %> Your Account Password has been successfully updated. <% elseif request.queryString("result") = 2 then %> Password Change was unsuccessful, please try again. <% end if %>