Subversion Repositories DevTools

Rev

Rev 6827 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6827 Rev 7286
Line 14... Line 14...
14 
<!--#include file="common/globals.asp"-->
 14 
<!--#include file="common/globals.asp"-->
15 
<!--#include file="common/formating.asp"-->
 15 
<!--#include file="common/formating.asp"-->
16 
<!--#include file="common/qstr.asp"-->
 16 
<!--#include file="common/qstr.asp"-->
17 
<!--#include file="common/common_subs.asp"-->
 17 
<!--#include file="common/common_subs.asp"-->
18 
<!--#include file="common/common_dbedit.asp"-->
 18 
<!--#include file="common/common_dbedit.asp"-->
- 
 
 19 
<!--#include file="common/_popup_window_common.asp"-->
19 
<!--#include file="common/_form_window_common.asp"-->
 20 
<!--#include file="common/_form_window_common.asp"-->
20 
<%
 21 
<%
21 
'------------ ACCESS CONTROL ------------------
 22 
'------------ ACCESS CONTROL ------------------
22 
%>
 23 
%>
23 
<%
 24 
<%
24 
'------------ VARIABLE DEFINITION -------------
 25 
'------------ VARIABLE DEFINITION -------------
25 
Dim rsUser
 26 
Dim rsUser
26 
Dim parViewId
 27 
Dim parViewId
27 
Dim parProjId
 28 
Dim parProjId
28 
'Dim objFormCollector
 - 
 
29 
'------------ CONSTANTS DECLARATION -----------
 29 
'------------ CONSTANTS DECLARATION -----------
30 
'------------ VARIABLE INIT -------------------
 30 
'------------ VARIABLE INIT -------------------
31 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 - 
 
32 
parProjId = Request("proj_id")
 31 
parProjId = Request("proj_id")
33 
parViewId = NiceInt(Request("view_id"), -1)
 32 
parViewId = NiceInt(Request("view_id"), -1)
34 
 
 33 
 
35 
'------------ CONDITIONS ----------------------
 34 
'------------ CONDITIONS ----------------------
36 
'----------------------------------------------
 35 
'----------------------------------------------