% function evenorodd(number) temp = CCur(number) / 2 if instr(temp,".") > 0 then evenorodd = "odd" else evenorodd = "even" end if end function %>