class CFoo
    sub PrintHello()
        response.Write "Hello World!"
    end sub
end class

dim obj
set obj = new CFoo 
call obj.PrintHello
set obj = nothing