<% Dim lssql Dim basketItems Dim basketvarItem Dim productItems Dim productvarItem Dim iUpdateShipToCount Dim sOrderID Dim sItemNum Dim sProductID Dim sSkuID Dim addshipto_info(5) Dim tmpQtyIDs Dim bNeedUnload sOrderID = getOrderID() sProductID = getRequestValue("productid") sSkuID = getRequestValue("skuid") sItemNum = getRequestValue("itemnum") tmpQtyIDs = Request.Form("Qty") if Left(tmpQtyIDs ,1) >= "0" AND Left(tmpQtyIDs ,1) <= "9" then else tmpQtyIDs ="1" end if ERROR_MESSAGE = "" bNeedUnload=false If Request.Form("addshipto.x").Count>0 then addshipto_info(1) = validateForm( "TEXT", true, ERROR_MESSAGE, Request.Form("First Name"), "First Name") addshipto_info(2) = validateForm( "TEXT", true, ERROR_MESSAGE, Request.Form("Last Name"), "Last Name") If ERROR_MESSAGE = "" then 'now duplicate the order detail record and add new shipto lssql = "exec p_WP_ORDER_ADD_SHIPTO_INFO " & sOrderID & "," & sSkuID & "," &_ getQuotedString( Request.Form("First Name") ) & "," &_ getQuotedString( Request.Form("Last Name") ) & "," & tmpQtyIDs bNeedUnload=true connection.execute lssql addshipto_info(1) = "" addshipto_info(2) = "" End If end if If Request.Form("updateshipto.x").Count>0 then iUpdateShipToCount = 0 If Request.Form("shiptocount")<>"" then iUpdateShipToCount = cint ( Request.Form("shiptocount") ) end if for GENERIC_VARIABLE=1 to iUpdateShipToCount tmpQtyIDs = Request.Form("Qty:" & cstr(GENERIC_VARIABLE)) if Left(tmpQtyIDs ,1) >= "0" AND Left(tmpQtyIDs ,1) <= "9" then else tmpQtyIDs ="1" end if IF sItemNum = GIFT_BOX_ITEM_NUM then if tmpQtyIDs ="0" or tmpQtyIDs ="00" then tmpQtyIDs ="0" else tmpQtyIDs ="1" end if end if 'now duplicate the order detail record and add new shipto lssql = "exec p_WP_ORDER_ADD_SHIPTO_INFO " & sOrderID & "," & sSkuID & "," &_ getQuotedString( Request.Form("First Name:" & cstr(GENERIC_VARIABLE)) ) & "," &_ getQuotedString( Request.Form("Last Name:" & cstr(GENERIC_VARIABLE)) ) & "," & tmpQtyIDs bNeedUnload=true connection.execute lssql next addshipto_info(1) = "" addshipto_info(2) = "" tmpQtyIDs ="1" end if lssql = "exec p_WP_ORDER_GET_BASKET_SHIPTO_PRODUCT_INFO " & sOrderID & "," & sProductID & "," & sSkuID productItems = getRecordSetList(lssql) 'Response.Write lssql 'Response.Write "
" lssql = "exec p_WP_ORDER_GET_BASKET_SHIPTO_QTY_INFO " & sOrderID & "," & sProductID & "," & sSkuID basketItems = getRecordSetList(lssql) 'Response.Write lssql %>