<%
Dim lssql
Dim basketItems
Dim sOrderID
Dim basketvarItem

sOrderID = getOrderID()

'******************************************************
'Update
'******************************************************
if Request.Form("basket_update.x").Count > 0 or Request.Form("basket_checkout.x").Count > 0 or Request.QueryString("agb")="1" then
		Dim basketIDs
		Dim QtyIDs
		Dim tmpBasketIDs
		Dim tmpQtyIDs
		Dim deleteSQL
		
		tmpBasketIDs = "," & Request.Form("ORDER_ITEMS_ID") 
		tmpQtyIDs = "," & Request.Form("Qty")
		
		basketIDs = split(tmpBasketIDs, ",")
		QtyIDs = split(tmpQtyIDs, ",")
		
		
		
		'Update			
		'---------------------
			lssql = ""
			For GENERIC_VARIABLE=1 to UBound(basketIDs)
				tmpQtyIDs =trim(QtyIDs(GENERIC_VARIABLE))
				if trim(basketIDs(GENERIC_VARIABLE)) <> "" then
					if Left(tmpQtyIDs ,1) >= "0" AND Left(tmpQtyIDs ,1) <= "9" then 
					else
						tmpQtyIDs ="1"	
					end if
				
					lssql = lssql &_
							" UPDATE WP_ORDER_ITEMS SET QTY = " & tmpQtyIDs &_
							" WHERE ORDER_ITEMS_ID=" & trim(basketIDs(GENERIC_VARIABLE))
				end if			
			Next
			if lssql<>"" then 
				lssql = "BEGIN " & lssql & " END"
				connection.execute lssql
			end if	
		'End Update	
		'---------------------
		
		'Delete
			For GENERIC_VARIABLE=1 to UBound(basketIDs)
			
				if Request.Form("delete_" & trim(basketIDs(GENERIC_VARIABLE)) )= "on" then
					deleteSQL = deleteSQL & " DELETE FROM WP_ORDER_ITEMS WHERE ORDER_ITEMS_ID=" & trim(basketIDs(GENERIC_VARIABLE))
				end if	
			Next
			
			If deleteSQL <> "" then
				lssql = "BEGIN	" & deleteSQL & " END"
				connection.execute lssql
			end if	
		'End Delete	
		'---------------------
		
		'add Gift box if selected
		if Request.QueryString("agb")<>"" then
			Dim retVal
			lssql = "Exec p_WP_UPDATE_SHOP_BAG " & sOrderID & "," & Application("GIFTBOX_PRODUCT_ID") & ",0,1,'" & GIFT_BOX_ITEM_PRICE & "','" & GIFT_BOX_ITEM_PRICE & "'"
			retVal = getRecordSetList(lssql)
			setCookie ORDERS_COOKIE, retVal(1)(1), ORDERS_DURATION
		end if
		
		'remove all 0 qty items
		lssql = "exec p_WP_ORDER_DELETE_ITEMS " & sOrderID
		connection.execute lssql
	
end if


'******************************************************
'getData for Basket
'******************************************************
'basket Items will have 
'1=ORDER_ITEMS_ID, 2=PRODUCT_ID,3=SKU_ID,4=QTY,5=REGULAR_PRICE,6=SALE_PRICE,7=SKU, 8=ITEM_NUM
'9=NAME,10=SHORT_DESC, 11=SUBTOTAL
'14=first name, 15=last name
'16=BILL_SHIP_SL_NO, 17=DATE_RESTOCK,18= OPTION_TEXT


lssql = "exec p_WP_ORDER_GET_ITEMS " & sOrderID & ", -1," & Application("GIFTBOX_PRODUCT_ID") 

'Response.Write lssql

basketItems = getRecordSetList(lssql)


If Request.Form("basket_checkout.x").Count > 0 and uBound(basketItems)>0 then
	Response.Redirect HTTPSECURE_HOST & "checkout/loginmain.asp"
end if


%>