%
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
%>