<% Function Factorial(ByVal intNumber) If intNumber <= 1 Then Factorial = 1 Else Factorial = intNumber * Factorial(intNumber - 1) End If End Function %> And here we test the function with 2 values 5 and then 10 <% Response.Write ("Factorial of 5 is " & Factorial(5)) Response.Write ("
") Response.Write ("Factorial of 7 is " & Factorial(7)) %>