All pastes #18013 Raw Edit

VB snippit

public text v1 · immutable
#18013 ·published 2005-07-19 00:07 UTC
rendered paste body
  If Len(Session("ShippingMethodID")) > 0 Then
    Set shippingMethod = shippingMethodCollection.Item(Session("ShippingMethodID"))
  Else
    ' since there isn't one specified we will grab the first method in the collection
    For Each shippingMethod In shippingMethodCollection
      Exit For
    Next shippingMethod
  End If