Subversion Repositories DevTools

Rev

Rev 6676 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6676 Rev 6827
Line 25... Line 25...
25 
Dim rsUser
 25 
Dim rsUser
26 
Dim parViewId
 26 
Dim parViewId
27 
Dim parProjId
 27 
Dim parProjId
28 
'Dim objFormCollector
 28 
'Dim objFormCollector
29 
'------------ CONSTANTS DECLARATION -----------
 29 
'------------ CONSTANTS DECLARATION -----------
30 
Const LIMG_USER = "<img src='images/i_user.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
 - 
 
31 
Const LIMG_USER_DISABLED = "<img src='images/i_user_disabled.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
 - 
 
32 
Const LIMG_ROLE = "<img src='images/i_role.gif' width='16' height='16' hspace='2' border='0' align='absmiddle'>"
 - 
 
33 
'------------ VARIABLE INIT -------------------
 30 
'------------ VARIABLE INIT -------------------
34 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 31 
Set objFormCollector = CreateObject("Scripting.Dictionary")
35 
parProjId = Request("proj_id")
 32 
parProjId = Request("proj_id")
36 
parViewId = NiceInt(Request("view_id"), -1)
 33 
parViewId = NiceInt(Request("view_id"), -1)
37 
 
 34