Returns a multi-valued function and uses the Class.

<% Class Myclass Public Aresoult, Bresoult, Cresoult End Class

Function myfun ()

Set aclass = new myclass aclass.Arsoult = "You" aclass.bresoult = "is" aclass.cresoult = "Pig" set myfun = aclass' set function equal to class instance set aclass = Nothingend Function

Response.write "
" & myfun.arell & myfun.bresoult & myfun.cresoult

%>