Subversion Repositories DevTools

<%
'===================================================================
'                                                       Computer Common
'===================================================================
%>
<!--#include file="../class/classTemplateManager.asp"-->
<!--#include file="../class/classTabControl.asp"-->
<!--#include file="../class/classActionButtonControl.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
Dim parClient_ip
Dim objComputerCollector
Dim objBtnControl
Dim aTabBtnsDef
'------------ CONSTANTS DECLARATION -----------
Const PARENT_TITLE = "Computers"
'------------ VARIABLE INIT -------------------
parClient_ip = Request("client_ip")
Set objComputerCollector = CreateObject("Scripting.Dictionary")
Set objBtnControl = New ActionButtonControl
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
objPMod.PersistInQryString ("client_ip")
objPMod.PersistInQryString ("tree")
'----------------------------------------------
%>
<%
'-----------------------------------------------------------------------------------------------------------------
Sub GetComputerDetails ( sClient_ip, ByRef outobjDetails )
        outobjDetails.Item ("client_ip")   = sClient_ip
End Sub
'-----------------------------------------------------------------------------------------------------------------
Sub RenderTitle ( objCollector )
        Response.write LIMG_COMPUTERS_LRG &"<b>"& objCollector.Item("client_ip") &"</b>"
        
End Sub
'-----------------------------------------------------------------------------------------------------------------
%>