Subversion Repositories DevTools

<%
'===================================================================
'                                                       Control Common
'===================================================================
%>
<!--#include file="../class/classTemplateManager.asp"-->
<!--#include file="../class/classTabControl.asp"-->
<!--#include file="../class/classActionButtonControl.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
Dim parApp_id
Dim parObj_id
Dim parDt_id
Dim objObjCollector
Dim objBtnControl
Dim aTabBtnsDef
'------------ CONSTANTS DECLARATION -----------
Const PARENT_TITLE = "Action"
'------------ VARIABLE INIT -------------------
parDt_id = Request("dt_id")
parObj_id = Request("obj_id")
parApp_id = Request("app_id")
Set objBtnControl = New ActionButtonControl
Set objObjCollector = CreateObject("Scripting.Dictionary")
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
objPMod.PersistInQryString ("obj_id")
objPMod.PersistInQryString ("app_id")
objPMod.PersistInQryString ("tree")
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------
Sub GetControlDetails ( nObj_id, nApp_id, ByRef outobjDetails )
        Dim rsQry, query
        query = "SELECT *  FROM   CONTROL_OBJECTS  WHERE obj_id = "& nObj_id &" AND app_id = "& nApp_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 &", nApp_id="& nApp_id
                
        End If
        
        rsQry.Close
        Set rsQry = Nothing
End Sub
'-----------------------------------------------------------------------------------------------------------------
Sub RenderTitle ( objCollector )
        Response.write LIMG_CONTROL_LRG
        Response.write "<b>"& objCollector.Item("obj_name") &"</b>"
End Sub
'-----------------------------------------------------------------------------------------------------------------
%>