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"
Const LIMG_COMPUTERS = "<img src='images/i_computer.gif' width='11' height='16' hspace='2' border='0' align='absmiddle'>"
Const LIMG_COMPUTERS_LRG = "<img src='images/i_computer_lrg.gif' width='18' height='18' hspace='2' border='0' align='absmiddle'>"
'------------ 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
'-----------------------------------------------------------------------------------------------------------------
%>