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