Imports System.Web.Services

<WebService(Namespace:="http://www.farinaassoc.com/MidrangeServer")> _

Public Class EmployeeService

Inherits System.Web.Services.WebService

‘This Web Service contains a single method called ‘"GetEmployeeName". It expects a single parameter of ‘"EmployeeNumber" and returns a single parameter of ‘"EmployeeName".

<WebMethod()> Public Function GetEmployeeName(ByVal EmployeeNumber As Integer) As String

Select Case EmployeeNumber

Case 1

GetEmployeeName = "Joe Johnson"

Case 2

GetEmployeeName = "John Smith"

Case Else

GetEmployeeName = "Employee Number " & EmployeeNumber & " is an unknown employee"

End Select

End Function

End Class