<% function OddOrEven(ByVal intNumber) If (intNumber MOD 2 = 0 ) Then Response.Write ("Your number is even
") Else Response.Write ("Your number is odd
") End If end function %> Now we will test this function <% OddOrEven(2) OddOrEven(97) %>