<!-- #include file="./include.asp" -->
<%
main()
Sub main()

	If Not(InternetCheck()) Then
		Exit Sub
	End If
	If Not(VisitorCheck()) Then
		Exit Sub
	End If
'Response.Write(GB_VisitorID)
'Exit Sub

	Dim SelShop
	SelShop = Request("SelShop") '選択ショップはこっち
	Dim Shop
	Shop = Request("Shop") 'こっちは処理対象
	Dim Item
	Item = Request("Item")
	Dim Qty
	Qty = Request("Qty")
	Dim Mode
	Mode = Request("Mode")

	Dim Login
	Login = Request("Login")
	Dim LoginID
	LoginID = Request("LoginID")
	Dim Password
	Password = Request("Password")


	Dim Query
	Dim Content
	Dim Content2


	If Login = "1" Then
		'ログイン
		Set Content = QueryGetLogin(LoginID, Password, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		If Not(Content.BOF Or Content.EOF) Then
			Session("ECMallUserID") = "" & Content.Fields("メールアドレス")
			GB_UserID = Session("ECMallUserID")
			Session("ECMallPassword") = "" & Content.Fields("パスワード")
			GB_Password = Session("ECMallPassword")
		Else
		End If
		Response.Redirect("" & HomeAliasSL & "history.asp?SelShop=" & SelShop)
		'Response.Redirect("" & HomeAliasSL & "cart.asp?SelShop=" & SelShop)
		Exit Sub
	End If


	If Shop <> "" Then


		'買い物かごをクリア
		If Mode = "Clear" Then
			Query = "exec SPF買い物かご削除 '" & VisitorYMDGet(GB_VisitorID) & "', " & VisitorIDGet(GB_VisitorID) & ", " & Shop & ", null "
'Response.Write(Query)
'Exit Sub
			Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)


		ElseIf Item <> "" Then
'Response.Write(Mode)
'Exit Sub

			'数量が1未満なら削除モード
			If Mode = "Change" And Qty <> "" And IsNumeric(Qty) Then
				If CInt(Qty) < 1 Then
					Mode = "Delete"
				End If
			End If


			'買い物かごから削除
			If Mode = "Delete" Then
				Query = "exec SPF買い物かご削除 '" & VisitorYMDGet(GB_VisitorID) & "', " & VisitorIDGet(GB_VisitorID) & ", " & Shop & ", " & Item & " "
'Response.Write(Query)
'Exit Sub
				Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)


		'買い物かごに入れるor数量変更
			ElseIf Qty <> "" And IsNumeric(Qty) Then

				If Mode <> "Change" Then
					'買い物かごに入れる際は既存なら加算
					Query = "exec SPF買い物かご取得 '" & VisitorYMDGet(GB_VisitorID) & "', " & VisitorIDGet(GB_VisitorID) & ", " & Shop & ""
					Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
					Do While Not(Content.BOF Or Content.EOF)
						If "" & Content.Fields("商品ID") = Item Then
							Qty = "" & (Content.Fields("数量") + CInt(Qty)) '加算
							Exit Do
						End If
						Content.MoveNext
					Loop
				End If

				Query = "exec SPF買い物かご更新 '" & VisitorYMDGet(GB_VisitorID) & "', " & VisitorIDGet(GB_VisitorID) & ", " & Shop & ", " & Item & ", " & Qty & " "
'Response.Write(Query)
'Exit Sub
				Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)

				Item = "" '選択アイテムをクリア
			End If

		End If

	End If


	Response.Redirect("cart.asp?SelShop=" & SelShop & "&Item=" & Item)


End Sub
%>