Subversion Repositories DevTools

Rev

Rev 5299 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 rsolanki 1
<%
2
'===================================================================
3
'							Computer Common
4
'===================================================================
5
%>
6
<!--#include file="../class/classTemplateManager.asp"-->
7
<!--#include file="../class/classTabControl.asp"-->
8
<!--#include file="../class/classActionButtonControl.asp"-->
9
<%
10
'------------ VARIABLE DEFINITION -------------
11
Dim parClient_ip
12
Dim objComputerCollector
13
Dim objBtnControl
14
Dim aTabBtnsDef
15
'------------ CONSTANTS DECLARATION -----------
16
Const PARENT_TITLE = "Computers"
17
'------------ VARIABLE INIT -------------------
18
parClient_ip = Request("client_ip")
19
Set objComputerCollector = CreateObject("Scripting.Dictionary")
20
Set objBtnControl = New ActionButtonControl
21
'------------ CONDITIONS ----------------------
22
'----------------------------------------------
23
%>
24
<%
25
'------------ RUN BEFORE PAGE RENDER ----------
26
objPMod.PersistInQryString ("client_ip")
27
objPMod.PersistInQryString ("tree")
28
'----------------------------------------------
29
%>
30
<%
31
'-----------------------------------------------------------------------------------------------------------------
32
Sub GetComputerDetails ( sClient_ip, ByRef outobjDetails )
33
	outobjDetails.Item ("client_ip")   = sClient_ip
34
End Sub
35
'-----------------------------------------------------------------------------------------------------------------
36
Sub RenderTitle ( objCollector )
37
	Response.write LIMG_COMPUTERS_LRG &"<b>"& objCollector.Item("client_ip") &"</b>"
38
 
39
End Sub
40
'-----------------------------------------------------------------------------------------------------------------
41
%>