< %@ WebService Language = " vb "  Class = " Vegetables.Vegservice " % >

imports system
imports system.web.services
imports system.web.services.protocols
imports system.xml

namespace Vegetables


     < webservice(namespace: = " http://hx66.com/net " ) > public  class Vegservice
        inherits system.web.services.webservice

     public  enum Appearance
         Round
        Bendy
        Odd
     end  enum

     Public  structure Vegetable
         public  VegName  as   string
         public  VegColor  as   string
         public  VegLooks  as  Appearance
         public  NumberInStock  as   integer
     end  structure
         < webmethod() > Public   function  GetVegetable(byval vegetablename  as   string )  as  Vegetable
             ' Context.request.saveas("c:\VegServiceRequest.htm",false)
             dim  result  as  Vegetable

             select   Case  vegetablename.tolower()
                 case   " cucumber"
                    result.VegName = " Cucumber"
                    result.VegColor = " Green"
                    result.VegLooks =  Appearance.Bendy
                    result.NumberInStock = 10
                 case   " sweetcorn"
                    result.VegName = " Sweetcorn"
                    result.VegColor = " Yellow"
                    result.VegLooks =  Appearance.Odd
                    result.NumberInStock = 2
                 case   " potato"
                    result.VegName = " Potato"
                    result.VegColor = " Brown"
                    result.VegLooks =  Appearance. Round
                    result.NumberInStock = 55
                 case   else
                     dim  code  as  xmlqualifiedname
                    code = new  xmlqualifiedname( " Sender " , " http://schemas.xmlsoap.org/soap/envelope " )
                     dim  doc  as  xmldocument
                    doc = new  xmldocument()
                     dim  detail  as  xmlelement
                    detail = doc.createelement( " detail " )
                     dim  veg  as  xmlelement
                    veg = doc.createelement( " vegFault " , " vegetableName " , " http://www.hx66.com/net/vegservice/faults " )
                    veg.innertext = vegetablename
                    detail.Appendchild(veg)
                    doc.appendchild(detail)
                    throw  new  soapexception( " Unknown vegetable. " ,code, " http://www.hx66.com/net/vegservice " ,doc)
             end   select
            return result
         end function

         < webmethod() > public   function  GetVegetables(byval vegetablenames  as   string ())  as  Vegetable()
             ' context.request.Saveas("c:\VegServiceRequest.htm",false)
             dim  results()  as  Vegetable
            results =   new  Vegetable(vegetablenames.length){}

             dim  resultNum  as   integer
             for  resultNum  =   0   to  results.length  -   1  step resultNum  +   1
                results(resultNum) = GetVegetable(vegetablenames(resultNum))
             next

            return results
         end function
     end  class
end  namespace