Subversion Repositories DevTools

Rev

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

Rev 3878 Rev 3928
Line 6... Line 6...
6 
<!--#include file="../class/classPersistanceModule.asp"-->
 6 
<!--#include file="../class/classPersistanceModule.asp"-->
7 
<!--#include file="../class/classAccessControl.asp"-->
 7 
<!--#include file="../class/classAccessControl.asp"-->
8 
<!--#include file="../class/classExceptionHandler.asp"-->
 8 
<!--#include file="../class/classExceptionHandler.asp"-->
9 
<%
 9 
<%
10 
' -- Variable Definition ------------------------------
 10 
' -- Variable Definition ------------------------------
11 
Dim userdetailsHash
 - 
 
12 
Dim parRtag_id
 11 
Dim parRtag_id
13 
Dim pkgInfoHash
 12 
Dim pkgInfoHash
14 
Dim objAccessControl
 13 
Dim objAccessControl
15 
Dim objPMod
 14 
Dim objPMod
16 
Dim objEH
 15 
Dim objEH
Line 19... Line 18...
19 
Dim isPopupWindow
 18 
Dim isPopupWindow
20 
Dim DB_PROJ_ID, DB_RTAG_ID, DB_PV_ID
 19 
Dim DB_PROJ_ID, DB_RTAG_ID, DB_PV_ID
21 
Dim TIMER_VALUE
 20 
Dim TIMER_VALUE
22 
Dim rmDebug                                 ' Will display text in the footer area
 21 
Dim rmDebug                                 ' Will display text in the footer area
23 
' -- Variable Initialisation --------------------------
 22 
' -- Variable Initialisation --------------------------
24 
Set userdetailsHash = CreateObject("Scripting.Dictionary")
 - 
 
25 
parRtag_id = QStrPar("rtag_id")
 23 
parRtag_id = QStrPar("rtag_id")
26 
Set objAccessControl = New AccessControl
 24 
Set objAccessControl = New AccessControl
27 
Set objPMod = New PersistanceModule
 25 
Set objPMod = New PersistanceModule
28 
Set objEH = New ExceptionHandler
 26 
Set objEH = New ExceptionHandler
29 
isPopupWindow = FALSE
 27 
isPopupWindow = FALSE