<%@ codepage="874" %>
<% Option Explicit %>

<%
CONST CARTPID=0
CONST CARTPNAME=1
CONST CARTPPRICE=2
CONST CARTPQUANTITY=3
'-----------------------------------------------------
' 1.&#65403;&#65411;&#65424;&#65377;&#65426;&#65416;&#65397;&#65425;&#65415;&#30459;&#65411;
Dim foundIt, i, pid, pname, pprice, newQ, deleteProduct
'-----------------------------------------------------
' 2.Validate &#65380;&#38760;&#65378;&#65421;&#65383;&#65397;&#65425;&#65415;&#30459;&#65411; Session("cart")
If Not IsArray(Session("cart")) Then
	Dim localCart(4,20)
Else
	localCart = Session("cart")
End If
'-----------------------------------------------------
' 3.&#65411;&#65425;&#65402;&#65380;&#38760;&#29197;&#37092;&#39132;&#35149;&#65425;&#65415;&#30459;&#65411;
pid = Trim(Request.Form("id"))
pname = Trim(Request.Form("goodsname"))
pprice = Trim(Request.Form("price"))
'-----------------------------------------------------
' 4.Validate &#65380;&#38760;&#65378;&#65421;&#65383;&#65397;&#65425;&#65415;&#30459;&#65411; pprice
If IsNumeric(pprice) Then pprice = CDbl(pprice)
'-----------------------------------------------------
' 5.&#29390;&#65428;&#38678;&#65418;&#65428;&#65401;&#65380;&#39955;&#39132;&#38692;&#65398;&#29200;&#37090;
If pid <> "" Then
	foundIt = False
' &#65398;&#39955;&#29379;&#37090;&#65418;&#65428;&#65401;&#65380;&#39955;&#65399;&#65429;&#38824;&#65380;&#65410;&#39132;&#38824;&#65378;&#39955;&#65411;&#65398;&#29200;&#37090;&#30519;&#39906; &#65384;&#65424;&#65403;&#65411;&#65425;&#65402;&#65380;&#38760;&#65378;&#65421;&#65383;&#65384;&#65427;&#65401;&#65415;&#65401;&#65418;&#65428;&#65401;&#65380;&#39955;
	For i = 0 To Ubound(localCart,2)
		If localCart(CARTPID, i) = pid Then
			localCart(CARTPQUANTITY, i) = localCart(CARTPQUANTITY, i) + 1
			foundIt = True
			Exit For
		End If
	Next
' &#65398;&#39955;&#29379;&#37090;&#65418;&#65428;&#65401;&#65380;&#39955;&#65397;&#65425;&#65415;&#32774;&#65409;&#38669;&#65429;&#38836;&#65409;&#38678;&#65429;&#32687;&#65411;&#65398;&#29200;&#37090;&#65384;&#65424;&#65399;&#65427;&#65377;&#65426;&#65411;&#29390;&#65428;&#38678;&#29200;&#39955;&#33673;	
	If Not foundIt Then
		For i = 0 To Ubound(localCart, 2)
			If localCart(CARTPID,i) = "" Then
				localCart(CARTPID,i) = pid
				localCart(CARTPNAME,i) = pname
				localCart(CARTPPRICE,i) = pprice
				localCart(CARTPQUANTITY,i) = 1
				Exit For
			End If
		Next
	End If
End If
'-----------------------------------------------------
' 6.&#65377;&#65411;&#65395;&#65429;&#65377;&#65396;&#65403;&#65432;&#38678; Update Cart &#32687;&#65419;&#65401;&#39955;&#65411;&#65398;&#29200;&#37090;
If Request.Form("updateQ") <> "" Then
	For i = 0 To Ubound(localCart,2)
		newQ = Trim(Request.Form("pq" & localCart(CARTPID,i)))
		deleteProduct = Trim(Request.Form("pd" & localCart(CARTPID,i)))
		If newQ = "" Or newQ = "0" Or deleteProduct <> "" Then
			localCart(CARTPID,i) = ""
		Else
			If IsNumeric(newQ) Then
				localCart(CARTPQUANTITY,i) = newQ
			End If
		End If
	Next
End If

Session("cart") = localCart
Response.Redirect "viewcart.asp"
%>