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