ASP.NET Test-Drive: Listing 3.

Binding a parameter to a value.

Public Function GetCustomers(
  <System.Web.ModelBinding.Cookie("CustCity")> City As String) 
            As List(Of Customer)
  Dim custs As List(Of Customer)
  Using nw As New NorthwindEntities()
    If City Is Nothing Then
      custs = (From cust In nw.Customers
                Select cust).ToList
    Else
      custs = (From cust In nw.Customers
                Where cust.City = City
                Select cust).ToList
    End If
  End Using
  Return custs
End Function

About the Author

Peter Vogel is a system architect and principal in PH&V Information Services. PH&V provides full-stack consulting from UX design through object modeling to database design. Peter tweets about his VSM columns with the hashtag #vogelarticles. His blog posts on user experience design can be found at http://blog.learningtree.com/tag/ui/.