<% 
'using global variables in ASP and PHP;
'returning function's value;
'test and demo;
'

sub moo(x)
 'after convesion, the only variable glo 
 'must be declared as global;
 x=glo(5)
 'function2 must be interpreted as function:
 x=function2(x,x)
end sub


sub function3(g2,y)
 'after conversion, 
 'only g4 and g5 must be declared as global;
 dim g3,a,function2(3)
 a = g3
 a = g2
 a = g4(1,2)
 a = g5
 'function2 must be interpreted as an array:
 a = function2(1)
end sub
  

function function2(g2,y)
 'after conversion, 
 'none of variables must be declared as global;
 dim g3,a
 if a then exit function
 if g3 then exit function
 a = g3
 'function2 must be interpreted as variable here:
 function2 = g2
end function 


'this declarations are intentionally 
'put at the end of page to test conversion
dim glo(4),g2,g3(4,9),g4(5,5),g5


%>