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
'------------ Constants Declaration -----------
29
'------------ Constants Declaration -----------
30
'------------ Variable Init -------------------
30
'------------ Variable Init -------------------
31
parPv_id = QStrPar("pv_id")
31
parPv_id = QStrPar("pv_id")
32
Set objFormComponent = New FormComponent
-
 
33
'----------------------------------------------
32
'----------------------------------------------
34
%>
33
%>
35
<%
34
<%
36
Function Get_Comments( NNPv_id )
35
Function Get_Comments( NNPv_id )
37
   Dim rsTemp, Query_String
36
   Dim rsTemp, Query_String