<%
Dim mapProvider, googleMapsKey, mapTilerKey, mapTilerStyle, mapTilerSdkJsUrl, mapTilerSdkCssUrl
mapProvider = LCase(Trim(GetAppSetting("MapProvider") & ""))
If mapProvider <> "maptiler" Then mapProvider = "google"
googleMapsKey = Trim(GetAppSetting("GoogleMapsApiKey") & "")
mapTilerKey = Trim(GetAppSetting("MapTilerApiKey") & "")
mapTilerStyle = Trim(GetAppSetting("MapTilerStyle") & "")
If mapTilerStyle = "" Or LCase(mapTilerStyle) = "nothing" Then mapTilerStyle = "streets-v2"
mapTilerSdkJsUrl = Trim(GetAppSetting("MapTilerSdkJsUrl") & "")
mapTilerSdkCssUrl = Trim(GetAppSetting("MapTilerSdkCssUrl") & "")
If mapTilerSdkJsUrl = "" Or LCase(mapTilerSdkJsUrl) = "nothing" Then mapTilerSdkJsUrl = "https://cdn.maptiler.com/maptiler-sdk-js/v3.0.0/maptiler-sdk.umd.min.js"
If mapTilerSdkCssUrl = "" Or LCase(mapTilerSdkCssUrl) = "nothing" Then mapTilerSdkCssUrl = "https://cdn.maptiler.com/maptiler-sdk-js/v3.0.0/maptiler-sdk.css"
%>
<%
Dim coordsJson
coordsJson = Trim(TerritoryController.territory.Coordinates & "")
If coordsJson = "" Then coordsJson = "[]"
' Build street names array for JavaScript
Dim streetIter, streetName, streetsJson, isFirst
streetsJson = "["
isFirst = True
If Not TerritoryController.territoryStreets Is Nothing Then
Set streetIter = TerritoryController.territoryStreets.Iterator()
Do While streetIter.HasNext()
streetName = streetIter.GetNext()
If Not isFirst Then streetsJson = streetsJson & ","
streetsJson = streetsJson & """" & Replace(streetName, """", "\""") & """"
isFirst = False
Loop
End If
streetsJson = streetsJson & "]"
' Get border streets from the Description field
Dim borderStreets
borderStreets = Trim(TerritoryController.territory.Description & "")
%>
<% If mapProvider = "maptiler" Then %>
<% Else %>
<% End If %>