<!-- #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

%>
<!-- #include file="./include_top.asp" -->
<%

	SelShop = Request("SelShop") '選択ショップはこっち

	Dim Haisou
	Haisou = Request("Haisou")
	Dim Kessai
	Kessai = Request("Kessai")

	Dim Shokei
	Shokei = Request("Shokei")
	Dim Shohizei
	Shohizei = Request("Shohizei")
	Dim Soryo
	Soryo = Request("Soryo")
	Dim DaibikiTesuryo
	DaibikiTesuryo = Request("DaibikiTesuryo")
	Dim Gokei
	Gokei = Request("Gokei")

	Dim MailAddr
	MailAddr = Request("MailAddr")
	Dim MailAddrView
	MailAddrView = Request("MailAddrView")
	Dim Shimei
	Shimei = ConvProhiStr(Request("Shimei"))
	Dim Furi
	Furi = ConvProhiStr(Request("Furi"))
	Dim Postal
	Postal = Request("Postal")
	Dim ToDoFuKen
	ToDoFuKen = Request("ToDoFuKen")
	Dim Address
	Address = ConvProhiStr(Request("Address"))
	Dim TEL
	TEL = ConvProhiStr(Request("TEL"))
	Dim Meigi
	Meigi = ConvProhiStr(Request("Meigi"))
	Dim Biko
	Biko = ConvProhiStr(Request("Biko"))
	Dim KiboTsuki
	KiboTsuki = Request("KiboTsuki")
	Dim KiboBi
	KiboBi = Request("KiboBi")
	Dim KiboJikan
	KiboJikan = Request("KiboJikan")

	'ログイン情報未登録の場合もあるので都道府県名は常に直引き
	Dim ToDoFuKenMei
	If ToDoFuKen <> "" Then
		Query = Query & " SELECT TM都道府県.* "
		Query = Query & " FROM TM都道府県 "
		Query = Query & " WHERE TM都道府県.都道府県CD = " & ToDoFuKen & " "
		Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		If Not(Content.BOF Or Content.EOF) Then
			ToDoFuKenMei = "" & Content.Fields("名称")
		End If
	End If


	Dim Query
	Dim Content
	Dim Content2
	Dim ContentCart
	Dim ContentMail

	Dim SendMailID


	'ログイン情報の保存
	If GB_UserID <> "" And GB_Password <> "" Then
		Query = " UPDATE TMログイン "
		Query = Query & " SET メールアドレス = '" & MailAddr & "' "
		Query = Query & " , 氏名 = '" & Shimei & "' "
		Query = Query & " , ふりがな = '" & Furi & "' "
		Query = Query & " , 郵便番号 = '" & Postal & "' "
		If ToDoFuKen <> "" Then
			Query = Query & " , 都道府県CD = " & ToDoFuKen & " "
		Else
			Query = Query & " , 都道府県CD = null "
		End If
		Query = Query & " , 住所 = '" & Address & "' "
		Query = Query & " , 電話番号 = '" & TEL & "' "
		Query = Query & " , 振込名義 = '" & Meigi & "' "
		Query = Query & " WHERE メールアドレス = '" & GB_UserID & "' AND パスワード = '" & GB_Password & "' "
		Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
	End If


	If SelShop <> "" Then

		Set Content = QueryGetShop(SelShop, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		If Not(Content.BOF Or Content.EOF) Then

			Dim SendAddr
			SendAddr = "" & Content.Fields("受注メールアドレス")

			If SendAddr <> "" Or LocalMode = "1" Then 'ローカルモードでは設定メアドが存在しない

				Dim ShopAddr
				ShopAddr = "" & Content.Fields("店舗メールアドレス")

				If Haisou <> "" Then
					Haisou = "" & Content.Fields("配送方法名称" & Haisou)
				End If
				If Kessai = "0" Then
					Kessai = "代金引換"
				ElseIf Kessai <> "" Then
					Kessai = "" & Content.Fields("決済方法名称" & Kessai)
				End If

				Shimei = Replace(Shimei , "<" , "＜")
				Shimei = Replace(Shimei , ">" , "＞")

				Dim Body
				Body = ""
				Body = Body & ""
				Body = Body & "＜注文者情報＞" & vbCrLf
				Body = Body & "注文日時：" & Year(Now) & "/" & Month(Now) & "/" & Day(Now) & " " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & vbCrLf
				If MailAddrView <> "" Then
					'ローカルモード
					Body = Body & "メールアドレス：" & MailAddrView & vbCrLf
				Else
					Body = Body & "メールアドレス：" & MailAddr & vbCrLf
				End If
				Body = Body & "氏名：" & Shimei & vbCrLf
				Body = Body & "ふりがな：" & Furi & vbCrLf
				Body = Body & "郵便番号：" & Postal & vbCrLf
				Body = Body & "住所：" & ToDoFuKenMei & Address & vbCrLf
				Body = Body & "電話番号：" & TEL & vbCrLf
				Body = Body & "銀行振込時の振込名義：" & Meigi & vbCrLf
				Body = Body & "決済方法：" & Kessai & vbCrLf
				Body = Body & "配送方法：" & Haisou & vbCrLf
				If KiboTsuki <> "" And KiboBi <> "" Then
					Body = Body & "配達希望日：" & KiboTsuki & "月" & KiboBi & "日" & vbCrLf
				Else
					Body = Body & "配達希望日：無し" & vbCrLf
				End If
				If KiboJikan <> "" Then
					Body = Body & "配達希望時間帯：" & KiboJikan & vbCrLf
				Else
					Body = Body & "配達希望時間帯：無し" & vbCrLf
				End If
				Body = Body & "備考：" & Biko & vbCrLf
				Body = Body & vbCrLf
				Body = Body & "＜注文内容＞" & vbCrLf
				Query = "exec SPF買い物かご取得 '" & VisitorYMDGet(GB_VisitorID) & "', " & VisitorIDGet(GB_VisitorID) & ", " & SelShop & " "
				Set ContentCart = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
'				Dim Gokei
'				Gokei = 0
				'注文履歴保存用一時格納配列
				Dim MeishoAry
				ReDim MeishoAry(0)
				Dim KakakuAry
				ReDim KakakuAry(0)
				Dim ShohiZeiAry
				ReDim ShohiZeiAry(0)
				Dim SuryoAry
				ReDim SuryoAry(0)
				Dim TmpShohiZei
				Do While Not(ContentCart.BOF Or ContentCart.EOF)
					TmpShohiZei = "（税別）"
					If "" & ContentCart.Fields("消費税フラグ") = "1" Then
						TmpShohiZei = "（税込）"
					End If
					Body = Body & ContentCart.Fields("名称")
					If ContentCart.Fields("価格") = 0 Then
						Body = Body & "  時価"
					Else
						Body = Body & "  単価：" & ConvIntToMoney(ContentCart.Fields("価格"), False, False) & TmpShohiZei
					End If
					Body = Body & "  数量：" & ConvIntToMoney(ContentCart.Fields("数量"), False, False) & "  小計：" & ConvIntToMoney(ContentCart.Fields("価格") * ContentCart.Fields("数量"), False, False) & vbCrLf
'					Gokei = Gokei + ContentCart.Fields("価格") * ContentCart.Fields("数量")
					ReDim PreServe MeishoAry(UBound(MeishoAry) + 1) '配列+1
					ReDim PreServe KakakuAry(UBound(KakakuAry) + 1) '配列+1
					ReDim PreServe ShohiZeiAry(UBound(ShohiZeiAry) + 1) '配列+1
					ReDim PreServe SuryoAry(UBound(SuryoAry) + 1) '配列+1
					MeishoAry(UBound(MeishoAry)) = ContentCart.Fields("名称")
					KakakuAry(UBound(KakakuAry)) = ContentCart.Fields("価格")
					ShohiZeiAry(UBound(ShohiZeiAry)) = ContentCart.Fields("消費税フラグ")
					SuryoAry(UBound(SuryoAry)) = ContentCart.Fields("数量")
					ContentCart.MoveNext
				Loop
				'以下はフォームから受け取った値
				Body = Body & "小計：" & ConvIntToMoney(Shokei, False, False) & vbCrLf
				If Shohizei <> "" Then
					Body = Body & "消費税：" & ConvIntToMoney(Shohizei, False, False) & vbCrLf
				End If
				If Soryo <> "" Then
					Body = Body & "送料：" & ConvIntToMoney(Soryo, False, False) & vbCrLf
				End If
				If DaibikiTesuryo <> "" Then
					Body = Body & "代引手数料：" & ConvIntToMoney(DaibikiTesuryo, False, False) & vbCrLf
				End If
				Body = Body & "合計：" & ConvIntToMoney(Gokei, False, False) & vbCrLf
				Body = Body & vbCrLf
'				Body = Body & "***** <送信端末情報> *******************" & vbCrLf
'				Body = Body & "送信元IPアドレス　" & Request.ServerVariables("REMOTE_ADDR") & vbCrLf
'				Body = Body & "送信元ホスト名　" & Request.ServerVariables("REMOTE_HOST") & vbCrLf
'				Body = Body & "使用クライアント　" & Request.ServerVariables("HTTP_USER_AGENT") & vbCrLf

				Dim MailTo
				MailTo = SendAddr '受注メールアドレス
				Dim MailFrom
				MailFrom = Shimei & "<" & MailAddr & ">"
				'自動応答用は別変数にしておかないと関数で上書きされる？
				Dim RetMailTo
				RetMailTo = MailFrom
				Dim RetMailFrom
				RetMailFrom = MailTo
				If ShopAddr <> "" Then
					RetMailFrom = ShopAddr
				End If

				Dim Subject
				'Subject = AppTitle & "からの注文"
				Subject = MallName & "への注文"

				'注文メール送信
				If LocalMode = "1" Then
					Query = ""
					Query = Query & "  "
					Query = Query & " SELECT MAX(TFメールショップ.メールID) AS 最大メールID "
					Query = Query & " FROM TFメールショップ "
					Query = Query & " WHERE TFメールショップ.ショップID = " & SelShop & " "
					Query = Query & " 	AND TFメールショップ.送受信区分 = 'R' "
					Set ContentMail = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
					If Not(ContentMail.BOF Or ContentMail.EOF) Then
						SendMailID = ContentMail.Fields("最大メールID")
					End If
					If "" & SendMailID = "" Then
						SendMailID = 0
					End If
					SendMailID = SendMailID + 1
					Query = ""
					Query = Query & "  "
					Query = Query & " INSERT INTO TFメールショップ (ショップID, 送受信区分, メールID, ログインID, 日時, 題名, 本文) "
					Query = Query & " VALUES (" & SelShop & ", 'R', " & SendMailID & ", '" & MailAddr & "', GETDATE(), '" & Subject & "', '" & Replace(Body, vbCrLf, "<br>") & "') "
					Set ContentMail = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
				Else
					If Not(BASPSendMail(MailTo, MailFrom, Subject, Body, "", "お急ぎの場合は管理者までご連絡ください。")) Then
						Exit Sub
					End If
				End If

				'Subject = AppTitle & "からの自動応答メール"
				Subject = MallName & "からの自動応答メール"
				Body = "※このメールは自動応答メールです。" & vbCrLf & vbCrLf & "以下のご注文が出品者に送信されました。" & vbCrLf & vbCrLf & Body
'				Set Content = QueryGetShop(SelShop, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
'				If Not(Content.BOF Or Content.EOF) Then
					If "" & Content.Fields("受注メッセージ") <> "" Then
						Body = Body & "＜出品者からのメッセージ＞" & vbCrLf
						Body = Body & Content.Fields("受注メッセージ") & vbCrLf
						Body = Body & "--------------------------" & vbCrLf
					End If
					Body = Body & vbCrLf
					Body = Body & "[ショップページ]" & vbCrLf
					Body = Body & "http://hsns.sfc-jpn.jp/shop.asp?SelShop=" & SelShop & vbCrLf
					Body = Body & vbCrLf
					Body = Body & "[お問合せメールフォーム]" & vbCrLf
					Body = Body & "http://hsns.sfc-jpn.jp/mail.asp?SelShop=" & SelShop & vbCrLf
					Body = Body & vbCrLf
					Body = Body & Content.Fields("名称") & vbCrLf
					Body = Body & Content.Fields("事業者名") & vbCrLf
					Body = Body & Content.Fields("郵便番号") & vbCrLf
					Body = Body & Content.Fields("都道府県") & Content.Fields("住所") & vbCrLf
					If "" & Content.Fields("TEL") <> "" Then
						Body = Body & "TEL:" & Content.Fields("TEL") & vbCrLf
					End If
					If "" & Content.Fields("FAX") <> "" Then
						Body = Body & "FAX:" & Content.Fields("FAX") & vbCrLf
					End If
					Body = Body & vbCrLf
'				End If

				'自動応答メール送信
				If LocalMode = "1" Then
					Query = ""
					Query = Query & "  "
					Query = Query & " SELECT MAX(TFメールビジター.メールID) AS 最大メールID "
					Query = Query & " FROM TFメールビジター "
					Query = Query & " WHERE TFメールビジター.ログインID = '" & MailAddr & "' "
					Query = Query & " 	AND TFメールビジター.送受信区分 = 'R' "
					Set ContentMail = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
					If Not(ContentMail.BOF Or ContentMail.EOF) Then
						SendMailID = ContentMail.Fields("最大メールID")
					End If
					If "" & SendMailID = "" Then
						SendMailID = 0
					End If
					SendMailID = SendMailID + 1
					Query = ""
					Query = Query & "  "
					Query = Query & " INSERT INTO TFメールビジター (ログインID, 送受信区分, メールID, ショップID, 日時, 題名, 本文) "
					Query = Query & " VALUES ('" & MailAddr & "', 'R', " & SendMailID & ", " & SelShop & ", GETDATE(), '" & Subject & "', '" & Replace(Body, vbCrLf, "<br>") & "') "
					Set ContentMail = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
				Else
					If Not(BASPSendMail(RetMailTo, RetMailFrom, Subject, Body, "", "お急ぎの場合は管理者までご連絡ください。")) Then
						Exit Sub
					End If
				End If

				'買い物かご削除
				Query = "exec SPF買い物かご削除 '" & VisitorYMDGet(GB_VisitorID) & "', " & VisitorIDGet(GB_VisitorID) & ", " & SelShop & ", null "
'Response.Write(Query)
'Exit Sub
				Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)

				If MailAddr <> "" Then
					'注文履歴挿入（ログイン無しも登録）
					Dim CCnt
					For CCnt = 1 To UBound(MeishoAry)
						Query = "exec SPF注文履歴挿入 '" & MailAddr & "', " & SelShop & ", '" & MeishoAry(CCnt) & "' "
						If "" & KakakuAry(CCnt) <> "" Then
							Query = Query & " , " & KakakuAry(CCnt) & " "
						Else
							Query = Query & " , null "
						End If
						Query = Query & " , '" & ShohiZeiAry(CCnt) & "' "
						If "" & SuryoAry(CCnt) <> "" Then
							Query = Query & " , " & SuryoAry(CCnt) & " "
						Else
							Query = Query & " , null "
						End If
						If KiboTsuki <> "" And KiboBi <> "" Then
							Query = Query & " , '" & KiboTsuki & "月" & KiboBi & "日" & "' "
						Else
							Query = Query & " , '' "
						End If
						Query = Query & " , '" & KiboJikan & "' "
'Response.Write(Query)
'Exit Sub
						Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
					Next
				End If

			End If

		End If

	Else
		Response.Redirect("order.asp?SelShop=" & SelShop & "&Result=2")
	End If


	Response.Redirect("order.asp?SelShop=" & SelShop & "&Result=1")


End Sub
%>