Public Sub Initialize
Dim config As Map = LoadConfigMap
pool.Initialize(config.Get("DriverClass"), config.Get("JdbcUrl"), config.Get("User"), _
config.Get("Password"))
#if DEBUG
DebugQueries = True
#else
DebugQueries = False
#end if
DebugQueries = True 'This line added by Anser to make Debug Mode always enabled
serverPort = config.Get("ServerPort")
LoadSQLCommands(config)
End Sub
Private Sub LoadConfigMap As Map
'Return File.ReadMap(File.DirAssets, "config.properties")
Return File.ReadMap(File.DirApp, "config.properties") 'Changed by Anser
End Sub