| Line 21... |
Line 21... |
| 21 |
'------------ VARIABLE DEFINITION -------------
|
21 |
'------------ VARIABLE DEFINITION -------------
|
| 22 |
Dim rsQry
|
22 |
Dim rsQry
|
| 23 |
Dim parApp_id
|
23 |
Dim parApp_id
|
| 24 |
Dim objAppCollector
|
24 |
Dim objAppCollector
|
| 25 |
'------------ CONSTANTS DECLARATION -----------
|
25 |
'------------ CONSTANTS DECLARATION -----------
|
| 26 |
Const LIMG_DISK = "<img src='images/i_disk.gif' width='16' height='16' hspace='4' border='0' align='absmiddle'>"
|
- |
|
| 27 |
'------------ VARIABLE INIT -------------------
|
26 |
'------------ VARIABLE INIT -------------------
|
| 28 |
parApp_id = Request("app_id")
|
27 |
parApp_id = Request("app_id")
|
| 29 |
Set objAppCollector = CreateObject("Scripting.Dictionary")
|
28 |
Set objAppCollector = CreateObject("Scripting.Dictionary")
|
| 30 |
'------------ CONDITIONS ----------------------
|
29 |
'------------ CONDITIONS ----------------------
|
| 31 |
'----------------------------------------------
|
30 |
'----------------------------------------------
|