Function createPoint(x, y)

    Dim pt
    Set pt = Server.CreateObject("RMIMS.GeoPoint")

    pt.x = x
    pt.y = y

    Set createPoint = pt
	
End Function