Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols

<WebService(Namespace:="http://tempuri.org/")> _
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Public Class Service
     Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function AvailableProducts(ByVal CategoryId) As DataSet
        Dim SystemManager As New eRaceSystem.eRace
        Return SystemManager.LookupProductsByCategoryId(CategoryId)
    End Function

End Class