<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| wAddDataTable | '| | '===================================================== %> <% Option explicit Response.Expires = 0 %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ VARIABLE DEFINITION ------------- Dim objFormCollector '------------ CONSTANTS DECLARATION ----------- '------------ VARIABLE INIT ------------------- Set objFormCollector = CreateObject("Scripting.Dictionary") '------------ CONDITIONS ---------------------- '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub AddDataTable () On Error Resume Next OraDatabase.Parameters.Add "OBJ_ID", Request("obj_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "TABLE_NAME", Request("table_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "REF_COLUMN", Request("ref_column_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "DISPLAY_COLUMN", Request("display_column_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2 objEH.TryORA ( OraSession ) OraDatabase.ExecuteSQL _ "BEGIN pk_Control.Add_DataTable ( :OBJ_ID, :TABLE_NAME, :REF_COLUMN, :DISPLAY_COLUMN ); END;" objEH.CatchORA ( OraSession ) OraDatabase.Parameters.Remove "OBJ_ID" OraDatabase.Parameters.Remove "TABLE_NAME" OraDatabase.Parameters.Remove "REF_COLUMN" OraDatabase.Parameters.Remove "DISPLAY_COLUMN" End Sub '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- ' --- Get Form details from DB (for edit forms only) --- '------------------------------------------------------- ' --- Load Validation Rules --- Call objForm.LoadValidationRules ( Array("table_name", "ref_column_name", "display_column_name") , OraDatabase ) ' Load Validation Rules ' --- Enter Form Validation Rule Changes here... ---- '---------------------------------------------------- If CBool(Request("action")) Then If objForm.IsValidOnPostBack Then ' --- Form is Valid --- Call AddDataTable() If objEH.Finally Then Call OpenInParentWindow ( Request("rfile") &"?"& objPMod.ComposeURL() ) Call CloseWindow() End If End If End If '---------------------------------------------- %> <%=objPMod.ComposeHiddenTags()%>

New Data Table Enter database table name, referencing column and display column.

<%If NOT objEH.Finally Then%> <%End If%>   <%objEH.DisplayMessage()%> Table Name "> <%=objForm.Validate ("table_name")%> Reference Column Name "> <%=objForm.Validate ("ref_column_name")%> Display Column Name "> <%=objForm.Validate ("display_column_name")%>

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