All pastes #903183 Raw Edit

Untitled

public text v1 · immutable
·published 2008-02-14 01:31 UTC
rendered paste body
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