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