<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
' members_new_password.asp
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0 ' always load the page, dont store
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
'----------------------------------------------
%>
<%
Sub Update_LogIn_Details ( NNuser_id, SSpassword )
Dim rsTemp, Query_String
Query_String = _
"SELECT * FROM users WHERE user_id= "& NNuser_id
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
'update fields
rsTemp.Edit
rsTemp.Fields("user_password").Value = EnCrypt(SSpassword)
rsTemp.Fields("domain").Value = NULL
rsTemp.Update
rsTemp.Close
Set rsTemp = nothing
End Sub
%>
<%
'--- Process submition ---
If CBool(QStrPar("action")) Then
' All mandatory parameters FOUND
Call Update_LogIn_Details ( objAccessControl.UserId, QStrPar("FRpassword"))
Session.Abandon
Call Destroy_All_Objects
Response.Redirect("message.asp?msg=200-9")
End If
%>
Release Manager
