<%
'===================================================================
' Computer Common
'===================================================================
%>
<%
'------------ VARIABLE DEFINITION -------------
Dim parClient_ip
Dim objComputerCollector
Dim objBtnControl
Dim aTabBtnsDef
'------------ CONSTANTS DECLARATION -----------
Const PARENT_TITLE = "Computers"
Const LIMG_COMPUTERS = "
"
Const LIMG_COMPUTERS_LRG = "
"
'------------ 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 &""& objCollector.Item("client_ip") &""
End Sub
'-----------------------------------------------------------------------------------------------------------------
%>