<% incart = False id = CInt(Request.QueryString("id")) scartItem = Session("scartItem") arrcart = Session("mycart") maxproduct = Session("maxproduct") If id <> 0 Then For a = 1 To scartItem If id = CInt(arrcart(1,a)) Then arrcart(3,a) = arrcart(3,a)+1 session("mycart") = arrcart incart = True Exit For End If Next If incart = False then Set conn = Server.CreateObject("ADODB.Connection") conn.Open MM_Connect sql = "Select ProName,ProPrice,ProDiscount From Product Where ProID="&id Set rs = conn.Execute(sql) ProName = rs("ProName") ProPrice = rs("ProPrice") ProDiscount = rs("ProDiscount") rs.Close Set rs= Nothing conn.Close Set conn = Nothing If scartItem < maxproduct Then scartItem = scartItem + 1 End If Session("scartItem") = scartItem arrcart(1,scartItem) = id arrcart(2,scartItem) = ProName arrcart(3,scartItem) = 1 If Prodiscount <> 0 Then arrcart(4,scartItem) = ProDiscount Else arrcart(4,scartItem) = ProPrice End If Session("mycart") = arrcart End If Else action = Request.Form("action") Select Case action Case "Recalculate" Dim swapcart() ReDim swapcart(4,Maxproduct) newscartitem = 0 For i = 1 To scartItem tquantity = Request.Form("quantity" & Cstr(i)) If Not IsNumeric(tquantity) Then tquantity = 1 End If tquantity = Cint(abs(tquantity)) If tquantity <> 0 Then newscartitem= newscartitem+1 For x = 0 To 4 swapcart(x,newscartitem) = arrCart(x,i) swapcart(3,newscartitem) = tquantity Next End If Next Session("mycart") = swapcart Session("scartItem") = newscartitem Case "Check Out>>" Response.Redirect "shipping.asp" Case "<