Map OpenMap()

Returns:
Map object

All the parameters are from the parameters.user file.

Function OpenMap()
    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 CInt(par_Width), CInt(par_Height)

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

    ' set measure units
    map.setMeasureUnits(CInt(par_Units))

    Set OpenMap = map
End Function