| Line 22... |
Line 22... |
| 22 |
Const LIMG_USER_LRG = "<img src='images/i_user_lrg.gif' width='13' height='17' hspace='2' border='0' align='absmiddle'>"
|
22 |
Const LIMG_USER_LRG = "<img src='images/i_user_lrg.gif' width='13' height='17' hspace='2' border='0' align='absmiddle'>"
|
| 23 |
Const LIMG_USER_DISABLED_LRG = "<img src='images/i_user_disabled_lrg.gif' width='17' height='18' hspace='2' border='0' align='absmiddle'>"
|
23 |
Const LIMG_USER_DISABLED_LRG = "<img src='images/i_user_disabled_lrg.gif' width='17' height='18' hspace='2' border='0' align='absmiddle'>"
|
| 24 |
Const LIMG_USER = "<img src='images/i_user.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
|
24 |
Const LIMG_USER = "<img src='images/i_user.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
|
| 25 |
Const LIMG_USER_DISABLED = "<img src='images/i_user_disabled.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
|
25 |
Const LIMG_USER_DISABLED = "<img src='images/i_user_disabled.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
|
| 26 |
Const LIMG_DISK = "<img src='images/i_disk.gif' width='16' height='16' hspace='4' border='0' align='absmiddle'>"
|
26 |
Const LIMG_DISK = "<img src='images/i_disk.gif' width='16' height='16' hspace='4' border='0' align='absmiddle'>"
|
| - |
|
27 |
Const LIMG_EDIT = "<img src='images/i_edit_no_border.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
|
| - |
|
28 |
Const LIMG_REMOVE = "<img src='images/i_remove_no_border.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
|
| 27 |
Const LMINUTES_SINCE_LAST_REQUEST = 20 'minutes
|
29 |
Const LMINUTES_SINCE_LAST_REQUEST = 20 'minutes
|
| 28 |
'------------ VARIABLE INIT -------------------
|
30 |
'------------ VARIABLE INIT -------------------
|
| 29 |
parUser_id = Request("user_id")
|
31 |
parUser_id = Request("user_id")
|
| 30 |
parApp_id = Request("app_id")
|
32 |
parApp_id = Request("app_id")
|
| 31 |
Set objUserCollector = CreateObject("Scripting.Dictionary")
|
33 |
Set objUserCollector = CreateObject("Scripting.Dictionary")
|
| Line 50... |
Line 52... |
| 50 |
|
52 |
|
| 51 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
53 |
If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
|
| 52 |
outobjDetails.Item ("user_id") = rsQry("user_id")
|
54 |
outobjDetails.Item ("user_id") = rsQry("user_id")
|
| 53 |
outobjDetails.Item ("full_name") = rsQry("full_name")
|
55 |
outobjDetails.Item ("full_name") = rsQry("full_name")
|
| 54 |
outobjDetails.Item ("user_name") = rsQry("user_name")
|
56 |
outobjDetails.Item ("user_name") = rsQry("user_name")
|
| - |
|
57 |
outobjDetails.Item ("domain") = rsQry("domain")
|
| 55 |
outobjDetails.Item ("is_disabled") = rsQry("is_disabled")
|
58 |
outobjDetails.Item ("is_disabled") = rsQry("is_disabled")
|
| - |
|
59 |
outobjDetails.Item ("user_email") = rsQry("user_email")
|
| 56 |
|
60 |
|
| 57 |
Else
|
61 |
Else
|
| 58 |
Err.Raise 8, "Sub GetUserDetails", "Empty record set returned. nUser_id="& nUser_id
|
62 |
Err.Raise 8, "Sub GetUserDetails", "Empty record set returned. nUser_id="& nUser_id
|
| 59 |
|
63 |
|
| 60 |
End If
|
64 |
End If
|