<%if not (member or clubeditor or editor or master) then response.redirect("/common/private_page.asp")%> <%if int(session("id")) <> int(request("id")) then response.redirect("/common/private_page.asp")%> <%=SiteName%> <% tblName = "tbl_members" dbName = datadir&"npc_members.mdb" OpenOleConn(dbName) select case request("editmode") case "exit" closedata() response.redirect("/members/members_list.asp") case "save any changes" set rs = Server.CreateObject("ADODB.Recordset") if len(request("username")) > 0 then ' check for duplicate user names rs.open "select member_id, username from "&tblName&" where username= '"&request("username")&"'", objconn, 2, 3 if not rs.bof and not rs.eof then ' found that username if rs("member_id") <> cint(request.form("id")) then ' that username is in use, and not by this user VetMessage = "Sorry, that user name is already in use, please try another." Response.Write "" CloseData() Response.end end if end if rs.close end if rs.Open "select * from "&tblName&" where member_id=" & request.form("id"), objConn, 2, 3 rs("title") = request.form("title") rs("firstname") = request.form("firstname") rs("initials") = request.form("initials") rs("address1") = request.form("address1") rs("address2") = request.form("address2") rs("address3") = request.form("address3") rs("address4") = request.form("address4") rs("postcode") = request.form("postcode") rs("email") = request.form("email") if request.form("email_priv") = "true" then rs("email_priv") = true else rs("email_priv") = false end if rs("telephone") = request.form("telephone") if request.form("telephone_priv") = "true" then rs("telephone_priv") = true else rs("telephone_priv") = false end if rs("mobile") = request.form("mobile") if request.form("mobile_priv") = "true" then rs("mobile_priv") = true else rs("mobile_priv") = false end if rs("username") = Request.Form("username") rs("password") = Request.form("n341") rs.update CloseData() response.redirect("/members/members_list.asp") end select set rs = objConn.execute("SELECT * from "&tblName&" where member_ID = " & request("ID")) %>
Your Member Details
You may use this form to update any of your membership details. If you wish to change your user name, when you click save, the system will automatically check that your new name is not already in use by another member. If you change your password, (a good idea from time to time), please remember the new one !
Member Number
<%=rs("member_number")%>
Title
" size="40">
First Name
" size="40">
Initials
" size="20">
Surname
<%=rs("Surname")%>
Address 1
" size="60">
Address 2
" size="60">
Address 3
" size="60">
Address 4
" size="60">
Post Code
">
e-Mail
" size="50"> value="true">
Telephone
" size="50"> value="true">   keep private on website ?
Mobile
" size="50"> value="true">
Date of Birth
<%=rs("dob")%>
Year Joined
<%=rs("joined")%>
User Name
"> (to log in to the website)
Password
"> (eight characters minimum)
Password (repeated)
">


"> <%closedata()%>