Protected Sub DataList1_ItemCommand(ByVal source As Object, _
ByVal e As DataListCommandEventArgs)
If e.CommandName = "AddToCart" Then
' Add code here to add the item to the shopping cart.
' Use the value of e.Item.ItemIndex to retrieve the data
' item in the control.
End If
End Sub