| Line 18... |
Line 18... |
| 18 |
<!--#include file="common/common_subs.asp"-->
|
18 |
<!--#include file="common/common_subs.asp"-->
|
| 19 |
<!--#include file="common/_form_window_common.asp"-->
|
19 |
<!--#include file="common/_form_window_common.asp"-->
|
| 20 |
<!--#include file="_action_buttons.asp"-->
|
20 |
<!--#include file="_action_buttons.asp"-->
|
| 21 |
<!--#include file="class/classActionButtonControl.asp"-->
|
21 |
<!--#include file="class/classActionButtonControl.asp"-->
|
| 22 |
<!--#include file="common/daemon_instructions.asp"-->
|
22 |
<!--#include file="common/daemon_instructions.asp"-->
|
| 23 |
<script type="text/javascript" src="scripts/json2.js"></script>
|
- |
|
| 24 |
<%
|
23 |
<%
|
| 25 |
' Set rfile parameter. This is a return page after Login
|
24 |
' Set rfile parameter. This is a return page after Login
|
| 26 |
Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
|
25 |
Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
|
| 27 |
objPMod.PersistInQryString("proj_id")
|
26 |
objPMod.PersistInQryString("proj_id")
|
| 28 |
'------------ ACCESS CONTROL ------------------
|
27 |
'------------ ACCESS CONTROL ------------------
|
| Line 31... |
Line 30... |
| 31 |
If Request("action") <> "" AND NOT objAccessControl.UserLogedIn Then%>
|
30 |
If Request("action") <> "" AND NOT objAccessControl.UserLogedIn Then%>
|
| 32 |
<!--#include file="_access_control_login.asp"-->
|
31 |
<!--#include file="_access_control_login.asp"-->
|
| 33 |
<!--#include file="_access_control_project.asp"-->
|
32 |
<!--#include file="_access_control_project.asp"-->
|
| 34 |
<%End If%>
|
33 |
<%End If%>
|
| 35 |
<!--#include file="_access_control_general.asp"-->
|
34 |
<!--#include file="_access_control_general.asp"-->
|
| - |
|
35 |
<% '------------ Scripts -------------------------- %>
|
| - |
|
36 |
<script type="text/javascript" src="scripts/json2.js"></script>
|
| 36 |
<%
|
37 |
<%
|
| 37 |
'------------ Variable Definition -------------
|
38 |
'------------ Variable Definition -------------
|
| 38 |
Dim objSortHelper
|
39 |
Dim objSortHelper
|
| 39 |
Dim rsQry
|
40 |
Dim rsQry
|
| 40 |
Dim parRtagId
|
41 |
Dim parRtagId
|