<%@ WebService Language="VB" Class="TestService"%>
Imports System
Imports System.Web.Services
Public Class TestService: Inherits WebService
<WebMethod()> Public Function  TestFunction (vInput as Boolean) As String
	If (vInput = TRUE) Then
 	   TestFunction = "It is the truth..."	
	Else
	   TestFunction = "False!False!False"	
	End if 
End Function
<WebMethod()> Public Function  add( a as integer, b as integer) as string
   add = cstr(a+b)
end function
End Class
