<% Dim result Set ROServer = Server.CreateObject("RemObjects.SDK.COMServer") ROServer.MessageType = "TROBINMessage" ROServer.ChannelType = "TROWinInetHTTPChannel" ROServer.SetChannelProperty "TargetURL", "http://localhost:8099/BIN" Set MegaDemoService = ROServer.CreateService("MegaDemoService") Response.Write "This is an ASP page that invokes methods of the RemObjects MegaDemo
" result = MegaDemoService.Sum(100, 200) Response.Write "The result of 100+200 is " & result & "
" result = MegaDemoService.GetServerTime Response.Write "The time on the server is " & result Set MegaDemoService = nothing Set ROServer = nothing %>