' The following parameters are generated automatically by the Map Author,
' see the parameters.user file in your web site directory.

Const par_ServerUrl = "http://127.0.0.1/webgate/webgate.dll"
Const par_Uid = "test"
Const par_Groupid = "routemap"
Const par_MapName = "Map 1"

'depends on your map
Const par_Location = "-122.996058;45.124554;6687.631535;4454.699470;0.189586;0;600;400"

Const par_Width = 600
Const par_Height = 400

' miles = 0, kilometers = 1, map units = 2 (see apiconst.asp)
Const par_Units = 0

Const par_Lang = "EN"
Const par_Country = "US"

Dim conn, Map
Set conn = Server.CreateObject("RMIMS.IMSConnection")

conn.setConnectionURL(par_ServerUrl)
conn.setGroup(par_Groupid)
conn.setUserName(par_Uid)
conn.setLocale par_Lang, par_Country
conn.setCharset ""

Set Map = conn.loadMap(par_MapName)

' set image size
Map.setImageSize par_Width, par_Height

' set location
Dim location
Set location = Server.CreateObject("RMIMS.Location")
location.setString(par_Location)
        
Map.setLocation(location)

' set measure units
Map.setMeasureUnits(par_Units)