<% 
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) & "<br>") 
Response.Write ("The Fibonacci value of " & fib2 & " is " & Fibonacci(fib2) & "<br>") 
%>