| Line 30... |
Line 30... |
| 30 |
Dim FAULT_EMAIL_LIST
|
30 |
Dim FAULT_EMAIL_LIST
|
| 31 |
Dim FavIcon ' Favorite Icon
|
31 |
Dim FavIcon ' Favorite Icon
|
| 32 |
Dim ServiceConfig ' All service config
|
32 |
Dim ServiceConfig ' All service config
|
| 33 |
Dim ForcePageLogon ' Page Protection Mode
|
33 |
Dim ForcePageLogon ' Page Protection Mode
|
| 34 |
Dim IndefPause ' Global indication of error
|
34 |
Dim IndefPause ' Global indication of error
|
| 35 |
Dim VixVerNum : VixVerNum = 33 ' Bump to force cache reload of many resources
|
35 |
Dim VixVerNum : VixVerNum = 34 ' Bump to force cache reload of many resources
|
| 36 |
|
36 |
|
| 37 |
' -- Variable Initialisation --------------------------
|
37 |
' -- Variable Initialisation --------------------------
|
| 38 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
38 |
'Set OraSession = CreateObject("OracleInProcServer.XOraSession")
|
| 39 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
39 |
'OraSession.CreateDatabasePool 1,2,1, TNS_NAME, DB_AUTHENTICATION, 0
|
| 40 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|
40 |
'Set OraDatabase = OraSession.GetDatabaseFromPool(5000)
|