Public Function SayHello() As String
Dim objContext As ObjectContext
Set objContext = GetObjectContext
SayHello = "Hello there"
objContext.SetComplete
End Function
and I'm calling it from asp as:
<%
Set Com = Server.CreateObject("TestPool.pool")
REsponse.Write Com.SayHello()
Set Com = Nothing
%>
2 clicks west of a Quirkafleeg...Cornwall, England
Posts
754
yeah, of course, most of these are from Ted Pattisons book, my ones are not finished yet, im trying to provide a set of internal components that provide simple functions for in-house testing like string functions and recordset functions for all the "not quite so techies", im also trying to incorporate distributed transactions between SQL Server and Oracle which is about as much fun as a Great White shark in your bathtub!
heres a couple for you to start with.
I just finished testing your component - I set the timeout to 1 minute, said hello and then waited (I hit f5 after 1:10) and it had stopped.....