| Line 28... |
Line 28... |
| 28 |
Dim parProjId
|
28 |
Dim parProjId
|
| 29 |
Dim Query_String
|
29 |
Dim Query_String
|
| 30 |
parProjId = Request("proj_id")
|
30 |
parProjId = Request("proj_id")
|
| 31 |
'Dim objFormCollector
|
31 |
'Dim objFormCollector
|
| 32 |
'------------ CONSTANTS DECLARATION -----------
|
32 |
'------------ CONSTANTS DECLARATION -----------
|
| 33 |
Const LIMG_USER = "<img src='images/i_user.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
|
- |
|
| 34 |
Const LIMG_USER_DISABLED = "<img src='images/i_user_disabled.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
|
- |
|
| 35 |
Const LIMG_ROLE = "<img src='images/i_role.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
|
- |
|
| 36 |
'------------ VARIABLE INIT -------------------
|
33 |
'------------ VARIABLE INIT -------------------
|
| 37 |
Set objFormCollector = CreateObject("Scripting.Dictionary")
|
34 |
Set objFormCollector = CreateObject("Scripting.Dictionary")
|
| 38 |
|
35 |
|
| 39 |
'------------ CONDITIONS ----------------------
|
36 |
'------------ CONDITIONS ----------------------
|
| 40 |
'----------------------------------------------
|
37 |
'----------------------------------------------
|