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