Typerne passer ikke sammen: 'Add'

Hvad er fejlen her! Jeg får fejl meddelelsen: Typerne passer ikke sammen: 'Add'
/Test/Add-TimesTest.asp, line 10

Add-TimesTest ser sådan her ud:
<% LANGUAGE="VBScript" %>
<HTML>
<HEAD>
<TITLE>Add/Times test</TITLE>
</HEAD>
<BODY>
<%
intParm1 = (Rnd*12)
intParm2 = (Rnd*140)
vadd = Add (intParm1, intParm2)
Response.Write intParm1 & " + " & intParm2 & " = "
Response.Write vadd & "<BR>"
vTimes = Times (intParm1, intParm2)
Response.Write intParm1 & " * " & intParm2 & " = "
Response.Write vTimes & "<BR>"
Response.Write Session_ID
%>

Min global.asa fil ser sådan her ud:

<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
End Sub

Sub Session_OnStart
  Session("Visitors") = Session("Visitors") + 1
  Session("ID") = Session("ID") + 1
  Session("CurrentUsers") = Session("CurrentUsers") + 1
End Sub

Function Add (int1, int2)
  Add = int1 + int2
End Function

Function Times (int1, int2)
  Times = int1 * int2
End Function

Sub Session_OnEnd
  Session("CurrentUsers") = Session("CurrentUsers") - 1
End Sub

Sub Application_OnEnd
End Sub
</SCRIPT>