Rev 6 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| wEditAccount |'| |'=====================================================%><%Option explicitResponse.Expires = 0%><!--#include file="common/globals.asp"--><!--#include file="common/config.asp"--><!--#include file="common/common_subs.asp"--><!--#include file="common/_popup_window_common.asp"--><!--#include file="common/_user_common.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_general.asp"--><%'------------ VARIABLE DEFINITION -------------Dim objFormCollector'------------ CONSTANTS DECLARATION -----------'------------ VARIABLE INIT -------------------Set objFormCollector = CreateObject("Scripting.Dictionary")'------------ CONDITIONS ----------------------'----------------------------------------------%><%'--------------------------------------------------------------------------------------------------------------------------Sub EditUserAccount ()On Error Resume NextOraDatabase.Parameters.Add "USER_ID", Request("user_id"), ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "FULL_NAME", Request("full_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "USER_NAME", Request("user_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "USER_EMAIL", Request("user_email"), ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "DOMAIN", Request("domain"), ORAPARM_INPUT, ORATYPE_VARCHAR2objEH.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")) ThenIf objForm.IsValidOnPostBack Then' --- Form is Valid ---Call EditUserAccount()If objEH.Finally ThenCall OpenInParentWindow ( Request("rfile") &"?updated=ok"& objPMod.ComposeURLWithout("rfile,user_id") )Call CloseWindow()End IfEnd IfEnd If'----------------------------------------------%><html><head><title>Access Manager</title><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link href="scripts/access_manager.css" rel="stylesheet" type="text/css"><script language="JavaScript" src="scripts/common.js"></script></head><body background="images/bg_bage_pane.gif" leftmargin="0" topmargin="0" onLoad="self.focus();"><table width="100%" border="0" cellspacing="0" cellpadding="10"><tr><td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="images/i_role_lrg.gif" width="13" height="18" hspace="0" align="absmiddle"> Edit Account</span> <br>Enter User Account details.</td></tr><form name="FormName" method="post" action="<%=SCRIPT_NAME%>"><tr><td background="images/bg_drk_bage_pane.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td> </td><td align="right"><input name="btn" type="submit" class="form_btn" value="Update"><input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td></tr></table></td></tr><tr><td background="images/bg_form.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%"><img src="images/spacer.gif" width="60" height="200"></td><td width="100%"><table width="100%" border="0" cellspacing="2" cellpadding="0"><!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ --><%If NOT objEH.Finally Then%><tr><td class="form_iname"> </td><td><%objEH.DisplayMessage()%></td><td class="val_err"></td></tr><%End If%><!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><tr><td nowrap class="form_iname" valign="top">Full Name </td><td valign="top"><input name="full_name" type="text" class="form_ivalue" size="60" value="<%=Response.Write(objUserCollector("full_name"))%>"></td><td valign="top"> <%=objForm.Validate ("full_name")%> </td></tr><tr><td nowrap class="form_iname" valign="top">User Name </td><td valign="top"><input name="user_name" type="text" class="form_ivalue" size="60" value="<%=Response.Write(objUserCollector("user_name"))%>"></td><td valign="top"> <%=objForm.Validate ("user_name")%> </td></tr><tr><td nowrap class="form_iname" valign="top">Email </td><td valign="top"><input name="user_email" type="text" class="form_ivalue" size="60" value="<%=Response.Write(objUserCollector("user_email"))%>"></td><td valign="top"> <%=objForm.Validate ("user_email")%> </td></tr><tr><td nowrap class="form_iname" valign="top">User Domain </td><td valign="top"><input name="domain" type="text" class="form_ivalue" size="60" value="<%=Response.Write(objUserCollector("domain"))%>"></td><td valign="top"> <%=objForm.Validate ("domain")%> </td></tr><tr><td width="10%" class="form_iname"> </td><td width="1%"> </td><td width="90%" class="val_err"></td></tr></table></td></tr></table></td></tr><%=objPMod.ComposeHiddenTags()%><input type="hidden" name="action" value="true"></form></table></body></html><%'------------ RUN AFTER PAGE RENDER -----------Set objFormCollector = Nothing'----------------------------------------------%><!--#include file="common/globals_destructor.asp"-->