<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wEditRole | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim objFormCollector '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '----------------------------------------------------------------------------------------------------------------- Sub GetRoleDetails ( nRole_id, ByRef outobjDetails ) Dim rsQry, query query = "SELECT * FROM ROLES WHERE role_id = "& nRole_id Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT ) If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then outobjDetails.Item ("role_id") = rsQry("role_id") outobjDetails.Item ("role_name") = rsQry("role_name") outobjDetails.Item ("role_comments") = rsQry("comments") Else Err.Raise 8, "Sub GetRoleDetails", "Empty record set returned. nRole_id="& nRole_id End If rsQry.Close Set rsQry = Nothing End Sub '-------------------------------------------------------------------------------------------------------------------------- Sub UpdateRole () On Error Resume Next OraDatabase.Parameters.Add "ROLE_NAME", Request("role_name"), ORAPARM_INPUT, ORATYPE_STRING OraDatabase.Parameters.Add "ROLE_COMMENTS", Request("role_comments"), ORAPARM_INPUT, ORATYPE_STRING OraDatabase.Parameters.Add "ROLE_ID", Request("role_id"), ORAPARM_INPUT, ORATYPE_NUMBER objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Role.Update_Role ( :ROLE_ID, :ROLE_NAME, :ROLE_COMMENTS ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "ROLE_NAME" OraDatabase.Parameters.Remove "ROLE_COMMENTS" OraDatabase.Parameters.Remove "ROLE_ID" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB (for edit forms only) --- '------------------------------------------------------- Call GetRoleDetails ( Request("role_id"), objUserCollector ) ' --- Load Validation Rules --- Call objForm.LoadValidationRules ( Array("role_name", "role_comments"), OraDatabase ) ' Load Validation Rules ' --- Enter Form Validation Rule Changes here... ---- '---------------------------------------------------- If CBool(Request("action")) Then If objForm.IsValidOnPostBack Then ' --- Form is Valid --- Call UpdateRole() If objEH.Finally Then If Request("rmode") <> "" Then Call OpenInParentWindow ( Request("rfile") &"?updated=ok2"& objPMod.ComposeURLWithout("rfile,rmode") ) Else Call OpenInParentWindow ( Request("rfile") &"?updated=ok"& objPMod.ComposeURLWithout("rfile,role_id,rmode") ) End If Call CloseWindow() End If End If End If '---------------------------------------------- %> <%=objPMod.ComposeHiddenTags()%> ">

Edit Role Edit Role Name and Description.

<%If NOT objEH.Finally Then%> <%End If%>   <%objEH.DisplayMessage()%> Role Name "> <%=objForm.Validate ("role_name")%> Description <%=objUserCollector("role_comments")%> <%=objForm.Validate ("role_comments")%>

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