Subversion Repositories DevTools

Rev

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

Rev 119 Rev 4809
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="_tabs.asp"-->
17
<!--#include file="_tabs.asp"-->
18
<!--#include file="common/_popup_window_common.asp"-->
18
<!--#include file="common/_popup_window_common.asp"-->
19
<!--#include file="upload/clsUpload2.asp"-->
-
 
20
<%
19
<%
21
' Set rfile parameter. This is a return page after Login
20
' Set rfile parameter. This is a return page after Login
22
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
21
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
23
'------------ ACCESS CONTROL ------------------
22
'------------ ACCESS CONTROL ------------------
24
%>
23
%>
Line 30... Line 29...
30
Dim parPv_id
29
Dim parPv_id
31
Dim parTest_id
30
Dim parTest_id
32
Dim rsQry
31
Dim rsQry
33
Dim rsUsr
32
Dim rsUsr
34
Dim isDLocked
33
Dim isDLocked
35
Dim objUpload
-
 
36
Dim sPath
34
Dim sPath
37
Dim sPkgName
35
Dim sPkgName
38
Dim sPkgVersion
36
Dim sPkgVersion
39
Dim outFileName
37
Dim outFileName
40
'------------ Constants Declaration -----------
38
'------------ Constants Declaration -----------
41
'------------ Variable Init -------------------
39
'------------ Variable Init -------------------
42
Set objUpload = New clsUpload
-
 
43
parPv_id = Request("pv_id")
40
parPv_id = Request("pv_id")
44
parTest_id = Request("test_id")
41
parTest_id = Request("test_id")
45
parRtag_id = Request("rtag_id")
42
parRtag_id = Request("rtag_id")
46
'----------------------------------------------
43
'----------------------------------------------
47
%>
44
%>