Public Number1 As Variant
Public Number2 As Variant
Function Add(Number1, Number2)
Add = Number1 + Number2
End Function
<HTML
<TITLE>Simple Calculator Test</TITLE>
<BODY>
<%
Dim AddResult
Dim AddNum
Set AddNum=Server.CreateObject("Fcal.Addnumbers")
AddResult=AddNum.Add(140774,51174)
Response.write AddResult
%>
<BODY>
<HTML>