<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wEditAccount | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim objFormCollector '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub EditUserAccount () On Error Resume Next OraDatabase.Parameters.Add "USER_ID", Request("user_id"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "FULL_NAME", Request("full_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "USER_NAME", Request("user_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "USER_EMAIL", Request("user_email"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "DOMAIN", Request("domain"), ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN PK_USER.UPDATE_USER_ACCOUNT (:USER_ID, :FULL_NAME, :USER_NAME, :USER_EMAIL, :DOMAIN ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "USER_ID" OraDatabase.Parameters.Remove "FULL_NAME" OraDatabase.Parameters.Remove "USER_NAME" OraDatabase.Parameters.Remove "USER_EMAIL" OraDatabase.Parameters.Remove "DOMAIN" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB (for edit forms only) --- Call GetUserDetails ( parUser_id, objUserCollector ) '------------------------------------------------------- ' --- Load Validation Rules --- Call objForm.LoadValidationRules ( Array("full_name", "user_name", "user_email", "domain"), OraDatabase ) ' Load Validation Rules ' --- Enter Form Validation Rule Changes here... ---- '---------------------------------------------------- If CBool(Request("action")) Then If objForm.IsValidOnPostBack Then ' --- Form is Valid --- Call EditUserAccount() If objEH.Finally Then Call OpenInParentWindow ( Request("rfile") &"?updated=ok"& objPMod.ComposeURLWithout("rfile,user_id") ) Call CloseWindow() End If End If End If '---------------------------------------------- %> <%=objPMod.ComposeHiddenTags()%>

Edit Account Enter User Account details.

<%If NOT objEH.Finally Then%> <%End If%>   <%objEH.DisplayMessage()%> Full Name "> <%=objForm.Validate ("full_name")%> User Name "> <%=objForm.Validate ("user_name")%> Email "> <%=objForm.Validate ("user_email")%> User Domain "> <%=objForm.Validate ("domain")%>

<% '------------ RUN AFTER PAGE RENDER ----------- Set objFormCollector = Nothing '---------------------------------------------- %>