Subversion Repositories DevTools

Rev

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

Rev 6579 Rev 7286
Line 14... Line 14...
14 
<!--#include file="common/qstr.asp"-->
 14 
<!--#include file="common/qstr.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/common_dbedit.asp"-->
 16 
<!--#include file="common/common_dbedit.asp"-->
17 
<!--#include file="controls/ERGFormComponent/classFormComponent.asp"-->
 17 
<!--#include file="controls/ERGFormComponent/classFormComponent.asp"-->
18 
<!--#include file="common/_popup_window_common.asp"-->
 18 
<!--#include file="common/_popup_window_common.asp"-->
- 
 
 19 
<!--#include file="common/_form_window_common.asp"-->
19 
<%
 20 
<%
20 
'------------ ACCESS CONTROL ------------------
 21 
'------------ ACCESS CONTROL ------------------
21 
%>
 22 
%>
22 
<!--#include file="_access_control_login.asp"-->
 23 
<!--#include file="_access_control_login.asp"-->
23 
<!--#include file="_access_control_general.asp"-->
 24 
<!--#include file="_access_control_general.asp"-->
24 
<!--#include file="_access_control_project.asp"-->
 25 
<!--#include file="_access_control_project.asp"-->
25 
<%
 26 
<%
26 
'------------ Variable Definition -------------
 27 
'------------ Variable Definition -------------
27 
Dim parPv_id
 28 
Dim parPv_id
28 
Dim objFormComponent
 - 
 
29 
Dim patchRecCount
 29 
Dim patchRecCount
30 
Dim rsTemp
 30 
Dim rsTemp
31 
'------------ Constants Declaration -----------
 31 
'------------ Constants Declaration -----------
32 
'------------ Variable Init -------------------
 32 
'------------ Variable Init -------------------
33 
parPv_id = QStrPar("pv_id")
 33 
parPv_id = QStrPar("pv_id")
34 
Set objFormComponent = New FormComponent
 - 
 
35 
'----------------------------------------------
 34 
'----------------------------------------------
36 
%>
 35 
%>
37 
<%
 36 
<%
38 
'Function Get_Comments( NNPv_id )
 37 
'Function Get_Comments( NNPv_id )
39 
'   Dim rsTemp, Query_String
 38 
'   Dim rsTemp, Query_String