option explicit private myscriptingcontext as scriptingcontext private myapplication as application private myrequest as request private myresponse as response private myserver as server private mysession as session public
sub onstartpage(passedscriptingcontext as scriptingcontext) set myscriptingcontext = passedscriptingcontext set myapplication = myscriptingcontext.application set myrequest = myscriptingcontext.request set myresponse = myscriptingcontext.response set myserver = myscriptingcontext.server set mysession = myscriptingcontext.session end sub
public sub onendpage() set myscriptingcontext = nothing set myapplication = nothing set myrequest = nothing set myresponse = nothing set myserver = nothing set mysession = nothing end sub
public function test_number(num) as variant if num < 0 then get_number_attrib = -1 if num > 0 then get_number_attrib = 1 if num = 0 then get_number_attrib = 0 end function