<% Function Fibonacci(ByVal intNumber) If (intNumber = 0 Or intNumber = 1) Then Fibonacci = intNumber Else Fibonacci = Fibonacci(intNumber - 1) + Fibonacci(intNumber - 2) End If End Function %> And here is how we test the function <% 'variables to store our numbers Dim fib1 , fib2 'a couple of values fib1 = 22 fib2 = 3 'display fibonacci value of values e.g Fibonacci(3) Response.Write ("The Fibonacci value of " & fib1 & " is " & Fibonacci(fib1) & "
") Response.Write ("The Fibonacci value of " & fib2 & " is " & Fibonacci(fib2) & "
") %>