| Line 12... |
Line 12... |
| 12 |
Dim objComputerCollector
|
12 |
Dim objComputerCollector
|
| 13 |
Dim objBtnControl
|
13 |
Dim objBtnControl
|
| 14 |
Dim aTabBtnsDef
|
14 |
Dim aTabBtnsDef
|
| 15 |
'------------ CONSTANTS DECLARATION -----------
|
15 |
'------------ CONSTANTS DECLARATION -----------
|
| 16 |
Const PARENT_TITLE = "Computers"
|
16 |
Const PARENT_TITLE = "Computers"
|
| 17 |
Const LIMG_COMPUTERS = "<img src='images/i_computer.gif' width='11' height='16' hspace='2' border='0' align='absmiddle'>"
|
- |
|
| 18 |
Const LIMG_COMPUTERS_LRG = "<img src='images/i_computer_lrg.gif' width='18' height='18' hspace='2' border='0' align='absmiddle'>"
|
- |
|
| 19 |
'------------ VARIABLE INIT -------------------
|
17 |
'------------ VARIABLE INIT -------------------
|
| 20 |
parClient_ip = Request("client_ip")
|
18 |
parClient_ip = Request("client_ip")
|
| 21 |
Set objComputerCollector = CreateObject("Scripting.Dictionary")
|
19 |
Set objComputerCollector = CreateObject("Scripting.Dictionary")
|
| 22 |
Set objBtnControl = New ActionButtonControl
|
20 |
Set objBtnControl = New ActionButtonControl
|
| 23 |
'------------ CONDITIONS ----------------------
|
21 |
'------------ CONDITIONS ----------------------
|