<% option explicit Response.Buffer = true if session("company_id") <> "" then dim conn dim rs dim ssql dim sMember_Name dim sMember_Address dim sMember_Phone dim sMember_Email dim sMember_Password dim sMember_Level dim return_page %> <% sMember_Name = trim(Request.Form("member_name")) sMember_Address = trim(Request.Form("member_address")) sMember_Phone = trim(Request.Form("member_phone")) sMember_Email = trim(Request.Form("member_email")) sMember_Password = trim(Request.Form("member_password")) sMember_Level = trim(Request.Form("member_level")) 'replace vbCrLf to
if len(sMember_Address) > 0 then sMember_Address = replace(sMember_Address, vbcrlf, "
", 1, -1, 1) end if 'update data ssql = "select * from tbl_member where member_email = '" & sMember_Email & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 rs.Fields("member_name") = sMember_Name rs.Fields("member_address") = sMember_Address rs.Fields("member_phone") = sMember_Phone rs.Fields("member_password") = sMember_Password rs.Fields("member_level") = sMember_Level rs.Update rs.Close conn.Close set rs = nothing set conn = nothing return_page = "" Response.Write return_page else Response.Redirect "../../index.asp" end if %>