<% option explicit Response.Buffer = true if session("administrator_id") <> "" then dim conn dim rs dim ssql dim sUsername dim sPassword dim return_page %> <% sUsername = Request.Form("administrator_username") sPassword = Request.Form("administrator_password") 'update data ssql = "select * from tbl_administrator where system_id = '" & session("administrator_id") & "'" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 rs.Fields("administrator_username") = sUsername rs.Fields("administrator_password") = sPassword 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 %>