password.asp
around line #85 find the following:
elseif Request.Form("pwkey") <> "" and Request.Form("mode") = "UpdateIt" then
key = chkString(Request.Form("pwkey"),"SQLString")
'###Forum_SQL
strSql = "SELECT M_PWKEY, MEMBER_ID, M_NAME, M_EMAIL "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " WHERE M_PWKEY = '" & key & "'"
replace the red highlighted line of code with this: strSql = strSql & " WHERE MEMBER_ID = " & cLng(Request.Form("MEMBER_ID"))
strSql = strSql & " AND M_PWKEY = '" & key & "'"
around line #117 find the following:
if Err_Msg = "" then
strEncodedPassword = sha256("" & Request.Form("Password"))
pwkey = ""
'Update the user's password
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_PASSWORD = '" & chkString(strEncodedPassword,"SQLString") & "'"
strSql = strSql & ", M_PWKEY = '" & chkString(pwkey,"SQLString") & "'"
strSql = strSql & " WHERE MEMBER_ID = " & cLng(Request.Form("MEMBER_ID"))
replace the red highlighted line of code with this: strSql = strSql & " WHERE MEMBER_ID = " & cLng(Request.Form("MEMBER_ID"))
strSql = strSql & " AND M_PWKEY = '" & key & "'"