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