Function createPoint(x, y) Dim pt Set pt = Server.CreateObject("RMIMS.GeoPoint") pt.x = x pt.y = y Set createPoint = pt End Function