home *** CD-ROM | disk | FTP | other *** search
/ PC World 2003 September / PCWorld_2003-09_cd.bin / Software / Vyzkuste / webmatrix / WebMatrix.msi / Data1.cab / _CE8148C7EC4540B28FC99E6658E27203 < prev    next >
Encoding:
Text File  |  2003-05-12  |  1.9 KB  |  61 lines
  1. <%@ WebService language="VB" class="%%ClassName%%" %>
  2.  
  3. Imports System
  4. Imports System.Web.Services
  5. Imports System.Xml.Serialization
  6. Imports System.Web.Services.Protocols
  7.  
  8. Public Class %%ClassName%%
  9.  
  10.     <WebMethod> Public Function GetOrderDetails() 
  11.         Dim orderDetails As New OrderDetails()
  12.  
  13.         ' Set values for OrderDetails class
  14.         orderDetails.OrderNumber = 35
  15.         orderDetails.CompanyName = "ACME Paint"
  16.         orderDetails.CustomerFirstName = "John"
  17.         orderDetails.CustomerLastName = "Smith"
  18.         orderDetails.CustomerEmail = "John.Smith@IBuySpy.com"
  19.  
  20.         ' Return an array of 2 OrderItems
  21.         orderDetails.OrderItems As New OrderItem(2);
  22.  
  23.         orderDetails.OrderItems(0).ItemName = "Sunset Yellow"
  24.         orderDetails.OrderItems(0).ItemId = 12
  25.         orderDetails.OrderItems(0).ItemName = "You'll feel like you're at the beach"
  26.  
  27.         orderDetails.OrderItems(1).ItemName = "Seattle Sky Blue"
  28.         orderDetails.OrderItems(1).ItemId = 93
  29.         orderDetails.OrderItems(1).ItemName = "A rare shade of blue"
  30.  
  31.         Return orderDetails
  32.     End Function
  33.  
  34. End Class
  35.  
  36. Public Class OrderDetails 
  37.  
  38.     <XmlAttribute("OrderId")> Public OrderNumber As Integer     ' Serialize as an attribute named OrderId
  39.  
  40.     <XmlAttribute()> Public CompanyName As String              ' Serialize as an attribute
  41.  
  42.     Public CustomerFirstName As String
  43.  
  44.     Public CustomerLastName As String
  45.  
  46.     <XmlElement("email")> Public CustomerEmail As String        ' Serialize as an element, but change the name
  47.  
  48.     <XmlArray("OrderItemDetail")> Public OrderItems As OrderItem() ' Rename the array OrderItemDetail
  49. End Class
  50.  
  51. Public Class OrderItem
  52.  
  53.     ' Serialize all member variables as attributes
  54.  
  55.     <XmlAttribute()> Public ItemName As String
  56.  
  57.     <XmlAttribute()> Public ItemId As Integer
  58.  
  59.     <XmlAttribute()> Public ItemDescription As String
  60. End Class
  61.