| 2 |
rsolanki |
1 |
<%
|
|
|
2 |
'=====================================================
|
|
|
3 |
' CONFIG FILE
|
|
|
4 |
'=====================================================
|
|
|
5 |
%>
|
|
|
6 |
<%
|
|
|
7 |
' -- VARIABLE DEFINITION ------------------------------
|
|
|
8 |
Dim OraSession, OraDatabase ' DB connection
|
|
|
9 |
Dim QUERIES_PATH
|
|
|
10 |
Dim SCRIPT_NAME
|
|
|
11 |
Dim APP_ROOT
|
|
|
12 |
' -----------------------------------------------------
|
|
|
13 |
%>
|
|
|
14 |
<%
|
|
|
15 |
' -- DATABASE CONNECTIONS -----------------------------
|
|
|
16 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
|
|
17 |
'OraSession.CreateDatabasePool 1,10,100, Application("TNS_NAME"), Application("ACCESS_MANAGER_LOGIN"), 0
|
|
|
18 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(10)
|
|
|
19 |
|
|
|
20 |
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
|
|
21 |
Set OraDatabase = OraSession.OpenDatabase( Application("TNS_NAME"), Application("ACCESS_MANAGER_LOGIN"), Cint(0))
|
|
|
22 |
|
|
|
23 |
' -----------------------------------------------------
|
|
|
24 |
%>
|
|
|
25 |
<%
|
|
|
26 |
' -- CONFIGURATIONS -----------------------------------
|
|
|
27 |
APP_ROOT = Server.MapPath(".")
|
|
|
28 |
Const APPLICATION_ID = 9 ' Stored in Access Manager, [APPLICATIONS] table
|
|
|
29 |
QUERIES_PATH = APP_ROOT &"\queries"
|
|
|
30 |
Const ADMIN_EMAIL = "svukovic@erggroup.com"
|
|
|
31 |
' -----------------------------------------------------
|
|
|
32 |
%>
|
|
|
33 |
<%
|
|
|
34 |
' -- VARIABLE INITIALISATION --------------------------
|
|
|
35 |
SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
|
|
|
36 |
' -----------------------------------------------------
|
|
|
37 |
%>
|
|
|
38 |
<%
|
|
|
39 |
' -- CONSTANTS ----------------------------------------
|
|
|
40 |
Const enumDB_DEFAULT_EMPTY = -1
|
|
|
41 |
Const enumDB_YES = "Y"
|
|
|
42 |
Const enumDB_NO = "N"
|
|
|
43 |
Const enumCOOKIE_NAME = "ACCESS_MANAGER"
|
|
|
44 |
Const SPACER = "<img src='images/spacer.gif' width='1' height='1'>"
|
|
|
45 |
' -----------------------------------------------------
|
|
|
46 |
%>
|
|
|
47 |
<%
|
|
|
48 |
' -- OO4O ---------------------------------------------
|
|
|
49 |
const ORATYPE_VARCHAR2 = 1
|
|
|
50 |
const ORATYPE_NUMBER = 2
|
|
|
51 |
const ORATYPE_SINT = 3
|
|
|
52 |
const ORATYPE_FLOAT = 4
|
|
|
53 |
const ORATYPE_STRING = 5
|
|
|
54 |
const ORATYPE_VARCHAR = 9
|
|
|
55 |
const ORATYPE_DATE = 12
|
|
|
56 |
const ORATYPE_UINT = 68
|
|
|
57 |
const ORATYPE_RAW = 95
|
|
|
58 |
const ORATYPE_CHAR = 96
|
|
|
59 |
const ORATYPE_CHARZ = 97
|
|
|
60 |
const ORATYPE_MLSLABEL = 105
|
|
|
61 |
const ORATYPE_OBJECT = 108
|
|
|
62 |
const ORATYPE_REF = 110
|
|
|
63 |
const ORATYPE_CLOB = 112
|
|
|
64 |
const ORATYPE_BLOB = 113
|
|
|
65 |
const ORATYPE_BFILE = 114
|
|
|
66 |
const ORATYPE_VARRAY = 247
|
|
|
67 |
const ORATYPE_TABLE = 248
|
|
|
68 |
|
|
|
69 |
const ORAPARM_INPUT=1
|
|
|
70 |
const ORAPARM_OUTPUT=2
|
|
|
71 |
const ORAPARM_BOTH=3
|
|
|
72 |
|
|
|
73 |
const ORADYN_DEFAULT=&H0&
|
|
|
74 |
' -----------------------------------------------------
|
|
|
75 |
%>
|
|
|
76 |
<%
|
|
|
77 |
' -- ERROR MESSAGES -----------------------------------
|
|
|
78 |
' -----------------------------------------------------
|
|
|
79 |
%>
|
|
|
80 |
<%
|
|
|
81 |
' -- ICONS --------------------------------------------
|
|
|
82 |
' -- ICONS SMALL --------------------------------------
|
|
|
83 |
' -----------------------------------------------------
|
|
|
84 |
%>
|