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

Edit Control Edit Control Name and Description.

<%If NOT objEH.Finally Then%> <%End If%>   <%objEH.DisplayMessage()%> Control Name "> <%=objForm.Validate ("obj_name")%> Description <%=objUserCollector("obj_description")%> <%=objForm.Validate ("obj_description")%>

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