MS Optimizing, CurrentLocal

This commit is contained in:
2020-12-30 14:12:26 +01:00
parent 93cc0acfbd
commit 00222efb88
21 changed files with 235 additions and 273 deletions

View File

@@ -29,7 +29,7 @@ Public Class ProfileSearches
Try
If _Environment.Service.IsActive = True Then
Try
Dim oSplit() As String = _Environment.Service.Address.Split(";")
Dim oSplit() As String = _Environment.Service.Address.Split(":")
Dim oAppServerAddress As String = oSplit(0)
Dim oAppServerPort As Integer = 9000
If oSplit.Length = 2 Then