<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| My Details |
'| |
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0 ' always load the page, dont store
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim parDomainAuth
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parDomainAuth = QStrPar("FRdomainauth")
If parDomainAuth = "" Then parDomainAuth = "N"
'----------------------------------------------
%>
<%
Sub Update_Personal_Details ( NNuser_id, SSfullname, SSemail, SSDomainAuth, SSdomain_name )
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("full_name").Value = SSfullname
rsTemp.Fields("user_email").Value = SSemail
' Removed ability for user to configure domain name
' This is done via access manager
' Note: Code is suspect anyway. Can clear domain login - but can't set it
'If SSDomainAuth = "N" AND objAccessControl.Domain <> "" Then
' If SSDomainAuth = "Y" Then
' rsTemp.Fields("user_password").Value = NULL
' rsTemp.Fields("domain").Value = SSdomain_name
' Else
' rsTemp.Fields("domain").Value = NULL
' End If
'End If
rsTemp.Update
rsTemp.Close
Set rsTemp = nothing
End Sub
%>
<%
'--- Process submition ---
If CBool(QStrPar("action")) Then
' All mandatory parameters FOUND
Call Update_Personal_Details ( objAccessControl.UserId, QStrPar("FRfullname"), QStrPar("FRemail"), parDomainAuth, Request("FRdomain_name") )
If NOT objAccessControl.Domain <> "" Then
If parDomainAuth = "N" Then
Call Destroy_All_Objects
Response.Redirect("members_new_password.asp")
End If
End If
Session.Abandon
Call Destroy_All_Objects
Response.Redirect("message.asp?msg=200-9")
End If
%>
Release Manager
