<% 'determine number of shiptos '11/13/2003 - Renate Zillger removed the call to the onchange country function '11/13/2003 - Renate Zillger - change later in the day to chaneg the text on Address 2 to ' Address continued per Web Site QA document 11/13 Dim ShipToItems Dim shiptovarItem Dim iShiptoStart Dim sBillShipSlNo Dim sShipName Dim lssql Dim iHowManyShipTos lssql = "exec p_WP_ORDER_GET_SHIPTO_COUNT " & sOrderID ShipToItems = getRecordSetList(lssql) iHowManyShipTos = UBound(ShipToItems) For iShiptoStart=1 to iHowManyShipTos shiptovarItem = ShipToItems(iShiptoStart) sBillShipSlNo = shiptovarItem(1) sShipName = shiptovarItem(2) 'first name if sBillShipSlNo = "1" or sBillShipSlNo = "0" then sShipName = " Shipping Address " if iHowManyShipTos > 1 then sShipName = sShipName & " for  Myself" end if elseif sShipName <> "" then sShipName = " Shipping Address for " & sShipName & " " & shiptovarItem(3) & "" 'last name else sShipName = " Shipping Address" end if if iHowManyShipTos > 1 then sShipName = trim(iShiptoStart) & ": " & sShipName end if Redim customer_shipinfo(billshiparraysize) getOrderAddressInfo customer_shipinfo, iShipIndex, sBillShipSlNo, false %>
<%if sBillShipSlNo = "1" then%> <%end if%>
<%=sShipName%>
Same as Billing
*First Name:
*Last Name:
Company:
*Street Address:
*City:
*State:
*Zip Code: US & Canada
*Country:
*Daytime Phone:
<% Dim lShipEmailMsg lShipEmailMsg = "" if shiptovarItem(7) = "0" then%> <%else lShipEmailMsg = "Required when sending Tea Bill Gift Certificates" %> * <%end if%>Email Address:
<%=lShipEmailMsg%>
Shipping Method
<% Dim lCountryIdForShipMethod lCountryIdForShipMethod = "" 'if bIsShipSameAsBill = True then ' lCountryIdForShipMethod = customer_info(iBillIndex+11) ' else lCountryIdForShipMethod = customer_shipinfo(iShipIndex+11) ' end if if lCountryIdForShipMethod = "0" and sBillShipSlNo = 1 then lCountryIdForShipMethod = customer_info(iBillIndex+11) end if %>

Gift Information (optional)
Gift Message: (60 characters max)
<%Next%>