<!-- #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" -->
<%

	Dim Result
	Result = Request("Result")


	Dim Query
	Dim Content
	Dim Content2

	Dim MailAddr
	Dim Shimei
	Dim Furi
	Dim Postal
	Dim ToDoFuKen
	Dim Address
	Dim TEL
	Dim Meigi

	Dim OrderRegion '対象地域限定フラグ

'Response.Write(GB_UserID & ":" & GB_Password)
'Exit Sub

	If GB_UserID <> "" And GB_Password <> "" Then
		Set Content = QueryGetLogin(GB_UserID, GB_Password, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		If Not(Content.BOF Or Content.EOF) Then
'Response.Write(GB_UserID & ":" & GB_Password)
'Exit Sub
			MailAddr = "" & Content.Fields("メールアドレス")
			Shimei = "" & Content.Fields("氏名")
			Furi = "" & Content.Fields("ふりがな")
			Postal = "" & Content.Fields("郵便番号")
			ToDoFuKen = "" & Content.Fields("都道府県CD")
			Address = "" & Content.Fields("住所")
			TEL = "" & Content.Fields("電話番号")
			Meigi = "" & Content.Fields("振込名義")
		End If
	End If


	Dim OrderBiko
	Dim HaisouFlg(4)
	Dim HaisouMei(4)
	Dim HaisouSoryo(4)
	Dim Haisou(4)
	Dim SoryoFlg
	Dim KessaiFlg(3)
	Dim KessaiMei(3)
	Dim Kessai(3)
	Dim DaibikiFlg
	Dim DaibikiKijun(7)
	Dim DaibikiTesuryo(7)
	Dim DaibikiKijunFlg

%>

<form name="form1" method="POST" action="order_bin.asp" style="margin:0px;">
<input type="hidden" name="SelShop" value="<% = SelShop %>">
<!--全体センタリング枠-->
<table border="0" cellspacing="0" width="<% = WidthAll %>" class="tx1416" bgcolor="#ffffff">
	<tr>
		<td align="left">

<!--内側左寄せ枠-->
<table border="0" cellspacing="0" class="tx1416">
	<tr>
		<td align="left">

<!--コンテンツ-->
<%
	If Result = "1" Then
%>
<br>
<span class="tx1820">注文が送信されました。</span><br>
<br>
貴方のメールアドレス宛てに自動応答メールが送信されました。<br>
自動応答メールが受信されない場合、注文が正しく送信されていない可能性があります。<br>
その場合はお手数ですが、画面上部の「特定商取引法に基づく表示」に記載されている<br>
ショップの連絡先へお問い合わせください。<br>
<br>
<%

	ElseIf Result = "2" Then
%>
<br>
待機時間が制限時間を超えました。<br>
買い物かごより注文をやり直してください。<br>
<br>
<%

	Else


		'パラメータ取得
		Set Content = QueryGetShop(SelShop, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		If Not(Content.BOF Or Content.EOF) Then
			OrderBiko = "" & Content.Fields("注文画面補足")
			For Cnt = 1 To 4
				HaisouFlg(Cnt) = "" & Content.Fields("配送方法公開" & Cnt)
				HaisouMei(Cnt) = "" & Content.Fields("配送方法名称" & Cnt)
				HaisouSoryo(Cnt) = "" & Content.Fields("配送方法送料" & Cnt)
				If HaisouSoryo(Cnt) = "" Then
					HaisouSoryo(Cnt) = "0"
				End If
				Haisou(Cnt) = "" & Content.Fields("配送方法" & Cnt)
			Next
			For Cnt = 1 To 3
				KessaiFlg(Cnt) = "" & Content.Fields("決済方法公開" & Cnt)
				KessaiMei(Cnt) = "" & Content.Fields("決済方法名称" & Cnt)
				Kessai(Cnt) = "" & Content.Fields("決済方法" & Cnt)
			Next
			DaibikiFlg = "" & Content.Fields("代金引換公開")
			DaibikiKijunFlg = "" & Content.Fields("代金引換算出基準")
			For Cnt = 1 To 7
				DaibikiKijun(Cnt) = "" & Content.Fields("代金引換基準" & Cnt)
				DaibikiTesuryo(Cnt) = "" & Content.Fields("代金引換手数料" & Cnt)
			Next
		End If
		Dim Cnt
		HaisouFlg(0) = False '0を全体存在フラグとする
		For Cnt = 1 To UBound(HaisouFlg)
			If HaisouFlg(Cnt) = "1" And (HaisouMei(Cnt) <> "" Or Haisou(Cnt) <> "") Then
				HaisouFlg(0) = True '0を全体存在フラグとする
				Exit For
			End If
		Next
		SoryoFlg = False
		KessaiFlg(0) = False '0を全体存在フラグとする
		For Cnt = 1 To UBound(KessaiFlg)
			If KessaiFlg(Cnt) = "1" And (KessaiMei(Cnt) <> "" Or Kessai(Cnt) <> "") Then
				KessaiFlg(0) = True '0を全体存在フラグとする
				Exit For
			End If
		Next
		If DaibikiFlg = "1" Then
			KessaiFlg(0) = True '0を全体存在フラグとする
		End If

		If KessaiFlg(0) Then
%>
<table border="0" cellpadding="0" cellspacing="4">
	<tr>
		<td>
			お支払方法について
		</td>
	</tr>
</table>
<table border="1" cellpadding="4" cellspacing="0" class="tx1416" style="border:1px solid #000000;border-collapse:collapse;">
<%
			'代金引換専用
			If DaibikiFlg = "1" Then
%>
	<tr height="29" bgcolor="#e5e5e5">
		<td>
			<input type="radio" name="Kessai" value="0" id="KLabel0" style="cursor:pointer;" onClick="ChangeDaibikiTesuryo();" onFocus="ChangeDaibikiTesuryo();">
			<label for="KLabel0" style="cursor:pointer;">代金引換</label>
		</td>
	</tr>
	<tr>
		<td>
									商品受取時に代金をお支払い頂きます。<br>
									別途手数料がかかります。<br>
<table border="0" cellpadding="0" cellspacing="3">
	<tr>
		<td>
<table border="1" cellpadding="4" cellspacing="0" class="tx1315" style="border:1px solid #000000;border-collapse:collapse;">
	<tr>
		<td bgcolor="#f4f4f4" align="right">
			代金引換額
		</td>
		<td bgcolor="#f4f4f4" align="right">
			手数料
		</td>
	</tr>
<%
				Dim DCnt
				For DCnt = 1 To UBound(DaibikiKijun)
					If DaibikiKijun(DCnt) <> "" And DaibikiTesuryo(DCnt) <> "" Then
%>
	<tr>
		<td align="right">
			<% If DaibikiKijun(DCnt - 1) <> "" Then %><% = ConvIntToMoney(DaibikiKijun(DCnt - 1), False, False) %><% Else %>0<% End If %>
			～
			<% = ConvIntToMoney(DaibikiKijun(DCnt) - 1, False, False) %>円
		</td>
		<td align="right">
			<% = ConvIntToMoney(DaibikiTesuryo(DCnt), False, False) %>円
		</td>
	</tr>
<%
					End If
				Next
%>
</table>
		</td>
	</tr>
</table>
<%
				If DaibikiKijunFlg = "1" Then
%>
※代金引換額は手数料を含めた金額が基準となります。
<%
				End If
%>
		</td>
	</tr>
<%
			End If
			'代金引換専用ここまで
%>

<%
			Dim KCnt
			For KCnt = 1 To UBound(KessaiFlg)
				If KessaiFlg(KCnt) = "1" And (KessaiMei(KCnt) <> "" Or Kessai(KCnt) <> "") Then
%>
	<tr height="29" bgcolor="#e5e5e5">
		<td>
			<input type="radio" name="Kessai" value="<% = KCnt %>" id="KLabel<% = KCnt %>" style="cursor:pointer;" onClick="ChangeDaibikiTesuryo();" onFocus="ChangeDaibikiTesuryo();">
			<label for="KLabel<% = KCnt %>" style="cursor:pointer;"><% = KessaiMei(KCnt) %></label>
		</td>
	</tr>
	<tr>
		<td>
			<% = Kessai(KCnt) %>
		</td>
	</tr>
<%
				End If
			Next
%>
</table>
<%
		End If

		If HaisouFlg(0) Then
%>
<table border="0" cellpadding="0" cellspacing="4">
	<tr>
		<td>
			配送方法・送料について
		</td>
	</tr>
</table>
<SCRIPT LANGUAGE="JavaScript">
<!--

	var PrefSoryo = new Array(); //都道府県別送料用1次元配列

-->
</SCRIPT>
<table border="1" cellpadding="4" cellspacing="0" class="tx1416" style="border:1px solid #000000;border-collapse:collapse;">
<%
			Dim RadioCnt
			RadioCnt = 0 'ラジオボタンの配列番号カウンタ
			Dim HCnt
			For HCnt = 1 To UBound(HaisouFlg)
				If HaisouFlg(HCnt) = "1" And (HaisouMei(HCnt) <> "" Or Haisou(HCnt) <> "") Then
%>
	<tr height="29" bgcolor="#e5e5e5">
		<td>
			<input type="radio" name="Haisou" value="<% = HCnt %>" id="HLabel<% = HCnt %>" style="cursor:pointer;" onClick="ChangeSoryo();" onFocus="ChangeSoryo();">
			<label for="HLabel<% = HCnt %>" style="cursor:pointer;"><% = HaisouMei(HCnt) %></label>
		</td>
	</tr>
	<tr>
		<td>
			<% = Haisou(HCnt) %>
<%
				If HaisouSoryo(HCnt) = "2" Then
%>
<table border="0" cellpadding="0" cellspacing="3">
	<tr>
		<td>
<table border="1" cellpadding="4" cellspacing="0" class="tx1416" style="border:1px solid #000000;border-collapse:collapse;">
	<tr>
		<td bgcolor="#f4f4f4">
			送料
		</td>
		<td>
			無料
		</td>
	</tr>
</table>
		</td>
	</tr>
</table>
<%
				End If

				Dim Sonzai '地域別送料の存在フラグ
				Sonzai = False
				Set Content = QueryGetShopSoryo(SelShop, HCnt, "Soryo", False, SQLServer, DatabaseName, DatabaseUser, DatabasePass) '送料ソート＆送料NULL除外
				Do While Not(Content.BOF Or Content.EOF)
					If Content.Fields("都道府県CD") > 0 And "" & Content.Fields("送料") <> "" Then
						Sonzai = True
						Exit Do
					End If
					Content.MoveNext
				Loop
				Content.MoveFirst

'				Set Content = QueryGetShopSoryo(SelShop, HCnt, "Soryo", False, SQLServer, DatabaseName, DatabaseUser, DatabasePass) '送料ソート＆送料NULL除外
				'全国一律送料（値がNULLのレコードは除外されている）
				If Not(Content.BOF Or Content.EOF) Then
					If Content.Fields("都道府県CD") = 0 Then
						If HaisouSoryo(HCnt) = "1" Then
%>
<table border="0" cellpadding="0" cellspacing="3">
	<tr>
		<td>
<table border="1" cellpadding="4" cellspacing="0" class="tx1315" style="border:1px solid #000000;border-collapse:collapse;">
	<tr>
		<td bgcolor="#f4f4f4">
			送料
		</td>
		<td>
			全国一律&nbsp;<% = ConvIntToMoney(Content.Fields("送料"), False, False) %>円
		</td>
	</tr>
</table>
		</td>
	</tr>
</table>
<%
						End If
						Content.MoveNext
					End If
				End If
				'地域別送料（送料順。値がNULLのレコードは除外されている）
				If HaisouSoryo(HCnt) = "0" Then
					If Sonzai And Not(Content.BOF Or Content.EOF) Then
%>
<table border="0" cellpadding="0" cellspacing="3">
	<tr>
		<td>
<table border="1" cellpadding="4" cellspacing="0" class="tx1315" style="border:1px solid #000000;border-collapse:collapse;">
	<tr>
		<td bgcolor="#f4f4f4" align="right">
			送料
		</td>
		<td bgcolor="#f4f4f4">
			地域
<%
						Dim TmpSoryo
						TmpSoryo = ""
						Do While Not(Content.BOF Or Content.EOF)
							If "" & Content.Fields("送料") <> "" Then
								'直前の送料と異なっていたら行とセルを作成
								If "" & Content.Fields("送料") <> TmpSoryo Then
%>
		</td>
	</tr>
	<tr>
		<td align="right"><nobr>
			<% = ConvIntToMoney(Content.Fields("送料"), False, False) %>円
		</nobr></td>
		<td><nobr>
<%
								End If
%>
<% If "" & Content.Fields("送料") = TmpSoryo Then %>&nbsp;<% End If %><wbr><% = Content.Fields("表示名称") %>
<%
								TmpSoryo = "" & Content.Fields("送料")
							End If
							Content.MoveNext
						Loop
%>
		</nobr></td>
	</tr>
</table>
		</td>
	</tr>
</table>
<%
					End If
				End If
%>
		</td>
	</tr>

<SCRIPT LANGUAGE="JavaScript">
<!--
<%
	'都道府県別送料配列作成
	Dim TmpAryStr
	TmpAryStr = ""
	If HaisouSoryo(HCnt) = "2" Then
		'送料無料
		TmpAryStr = "0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0"
	Else
		Set Content = QueryGetShopSoryo(SelShop, HCnt, "Pref", True, SQLServer, DatabaseName, DatabaseUser, DatabasePass) '都道府県CDソート＆送料NULLを含む
		Do While Not(Content.BOF Or Content.EOF)
			If HaisouSoryo(HCnt) = "1" And Content.Fields("都道府県CD") = 0 Then
				'全国一律送料
				Dim TmpAllSoryo
				TmpAllSoryo = Content.Fields("送料")
				If "" & TmpAllSoryo = "" Then
					TmpAllSoryo = 0
				End If
				For Cnt = 0 to 47
					If TmpAryStr <> "" Then
						TmpAryStr = TmpAryStr & ", "
					End If
					TmpAryStr = TmpAryStr & TmpAllSoryo
				Next
				Exit Do
			Else
				If TmpAryStr <> "" Then
					TmpAryStr = TmpAryStr & ", "
				End If
				If "" & Content.Fields("送料") <> "" Then
					TmpAryStr = TmpAryStr & Content.Fields("送料")
				Else
					TmpAryStr = TmpAryStr & "0"
				End If
			End If
			Content.MoveNext
		Loop
	End If
%>
	PrefSoryo[<% = RadioCnt %>] = new Array(<% = TmpAryStr %>); //1次元配列番号はラジオボタン配列番号に合わせる

-->
</SCRIPT>
<%
				RadioCnt = RadioCnt + 1 'ラジオボタンの配列番号カウンタ
				End If
			Next
%>
	<tr height="29" bgcolor="#e5e5e5">
		<td>
			&nbsp;配達希望日
			<select name="KiboTsuki" class="select14">
				<option value=""></option>
			<%
				Dim TmpColumn
				Dim MCnt
				For MCnt = 1 To 12
					TmpColumn = ""
					If MCnt < 10 Then
						TmpColumn = "&nbsp;"
					End If
			%>
				<option value="<% = MCnt %>"><% = TmpColumn %><% = MCnt %></option>
			<%
				Next
			%>
			</select>月
			<select name="KiboBi" class="select14">
				<option value=""></option>
			<%
				Dim DayCnt
				For DayCnt = 1 To 31
					TmpColumn = ""
					If DayCnt < 10 Then
						TmpColumn = "&nbsp;"
					End If
			%>
				<option value="<% = DayCnt %>"><% = TmpColumn %><% = DayCnt %></option>
			<%
				Next
			%>
			</select>日
			&nbsp;配達希望時間帯
			<select name="KiboJikan" class="select14">
				<option value=""></option>
				<option value="8～12時">&nbsp;8～12時</option>
				<option value="12～14時">12～14時</option>
				<option value="14～16時">14～16時</option>
				<option value="16～18時">16～18時</option>
				<option value="18～21時">18～21時</option>
			</select>頃
		</td>
	</tr>
</table>
<%
		End If
%>
<table border="0" cellpadding="0" cellspacing="0" class="tx1416">
	<tr>
		<td><% = Spacer(1, 7) %></td>
	</tr>
	<tr>
		<td align="right" nowrap>
			メールアドレス&nbsp;
		</td>
		<td>
<% If LocalMode = "1" Then %>
			<input type="text" name="MailAddrView" value="<% = MailAddr %>@hsns.sfc-jpn.jp" style="width:280px;" readonly class="tb1416ro" onFocus="this.blur();" tabindex="-1">
			<input type="hidden" name="MailAddr" value="<% = MailAddr %>">
<% Else %>
			<input type="text" name="MailAddr" value="<% = MailAddr %>" style="width:280px;"<% If GB_UserID <> "" And GB_Password <> "" Then %> readonly class="tb1416ro"<% Else %> class="tb1416"<% End If %> maxlength="255">
<% End If %>
		</td>
	</tr>
	<tr>
		<td><% = Spacer(1, 7) %></td>
	</tr>
	<tr>
		<td align="right" nowrap>
			氏名&nbsp;
		</td>
		<td>
			<input type="text" name="Shimei" value="<% = Shimei %>" style="width:180px;" class="tb1416ime" maxlength="25">
		</td>
	</tr>
	<tr>
		<td><% = Spacer(1, 7) %></td>
	</tr>
	<tr>
		<td align="right" nowrap>
			ふりがな&nbsp;
		</td>
		<td>
			<input type="text" name="Furi" value="<% = Furi %>" style="width:240px;" class="tb1416ime" maxlength="50">
		</td>
	</tr>
	<tr>
		<td><% = Spacer(1, 7) %></td>
	</tr>
	<tr>
		<td align="right" nowrap>
			郵便番号&nbsp;
		</td>
		<td>
			<input type="text" name="Postal" value="<% = Postal %>" style="width:80px;" class="tb1416" maxlength="8">
		</td>
	</tr>
	<tr>
		<td><% = Spacer(1, 7) %></td>
	</tr>
	<tr>
		<td align="right" nowrap>
			住所&nbsp;
		</td>
		<td>
			<%
				Session("OrderRegion") = ""
				Set Content = QueryGetShop(SelShop, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
				If Not(Content.BOF Or Content.EOF) Then
					If "" & Content.Fields("対象都道府県") <> "" Then
						Session("OrderRegion") = "," & Content.Fields("対象都道府県") & "," '都道府県絞込みのための一時変数
					End If
				End If
				OrderRegion = Session("OrderRegion")
			%>
			<% = HTMLToDoFuKenSelect("", "", ToDoFuKen, "select14", " onClick=""ChangeSoryo();"" onFocus=""ChangeSoryo();""") %>
			<% Session("OrderRegion") = "" '都道府県絞込みのための一時変数をクリア %>
			<input type="text" name="Address" value="<% = Address %>" style="width:360px;" class="tb1416ime" maxlength="50" onBlur="SoryoSpanBold();">
		</td>
	</tr>
	<% If OrderRegion <> "" Then %>
	<tr>
		<td><% = Spacer(1, 7) %></td>
	</tr>
	<tr>
		<td colspan="2" align="center">
			<font color="#ff0000">住所で選択できない都道府県からの注文はお受けできません</font>
		</td>
	</tr>
	<% End If %>
	<tr>
		<td><% = Spacer(1, 7) %></td>
	</tr>
	<tr>
		<td align="right" nowrap>
			電話番号&nbsp;
		</td>
		<td>
			<input type="text" name="TEL" value="<% = TEL %>" style="width:120px;" class="tb1416" maxlength="20">
		</td>
	</tr>
	<tr>
		<td><% = Spacer(1, 7) %></td>
	</tr>
	<tr>
		<td align="right" nowrap>
			銀行振込時の名義&nbsp;
		</td>
		<td>
			<input type="text" name="Meigi" value="<% = Meigi %>" style="width:240px" class="tb1416ime" maxlength="50">&nbsp;※カタカナ
		</td>
	</tr>
	<% If GB_UserID <> "" And GB_Password <> "" Then %>
	<tr>
		<td><% = Spacer(1, 7) %></td>
	</tr>
	<tr>
		<td colspan="2" align="center">
			<font color="#ff0000">入力された情報はログイン情報に保存されます</font>
		</td>
	</tr>
	<% End If %>
	<tr>
		<td><% = Spacer(1, 7) %></td>
	</tr>
	<tr>
		<td align="right" nowrap>
			出店者への&nbsp;<br>
			メッセージ&nbsp;
		</td>
		<td>
			<textarea wrap="soft" name="Biko" rows="2" style="width:360px;" class="tarea14p" maxlength="2500"></textarea>
		</td>
	</tr>
	<tr>
		<td><% = Spacer(1, 7) %></td>
	</tr>
	<tr>
		<td align="center">
			<% = ActionButton3Image("SendOrderBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 102, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "注文を送信する", "tx1416w", "center", "SendOrder();") %>
<!--
			<input type="button" value="注文を送信する" onClick="SendOrder();">
-->
		</td>
		<td align="center">
		<% If GB_UserID = "" Then %>
			<% = ActionButton3Image("ReturnBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 32, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "戻る", "tx1416w", "center", "location.href='" & HomeAliasSL & "login.asp?SelShop=" & SelShop & "&Logout=1';") %>
<!--
			<input type="button" value="戻る" onClick="location.href='<% = HomeAliasSL %>login.asp?SelShop=<% = SelShop %>&Logout=1';">
-->
		<% ElseIf LocalMode <> "1" Then %>
			<% = ActionButton3Image("LogoutBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 200, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "別のメールアドレスで注文する", "tx1416w", "center", "location.href='" & HomeAliasSL & "login.asp?SelShop=" & SelShop & "&Logout=1';") %>
<!--
			<input type="button" value="別のメールアドレスで注文する" onClick="location.href='<% = HomeAliasSL %>login.asp?SelShop=<% = SelShop %>&Logout=1';">
-->
		<% End If %>
		</td>
	</tr>
<% If OrderBiko <> "" Then %>
	<tr>
		<td><% = Spacer(1, 7) %></td>
	</tr>
	<tr>
		<td colspan="2">
			<div style="border:1px solid;padding:5px;">
				<% = OrderBiko %>
			</div>
		</td>
	</tr>
<% End If %>
</table>
<br>
<table border="1" cellpadding="4" cellspacing="0" class="tx1416" style="border:1px solid #000000;border-collapse:collapse;">
	<tr>
		<td align="center" bgcolor="#f4f4f4">
			商品
		</td>
		<td align="right" bgcolor="#f4f4f4">
			価格
		</td>
		<td align="right" bgcolor="#f4f4f4">
			数量
		</td>
		<td align="right" bgcolor="#f4f4f4">
			小計
		</td>
	</tr>
<%
		Dim Shokei
		Shokei = 0
		Dim Zeibetsukei
		Zeibetsukei = 0
		Dim Shohizei
		Shohizei = 0
		Query = "exec SPF買い物かご取得 '" & VisitorYMDGet(GB_VisitorID) & "', " & VisitorIDGet(GB_VisitorID) & ", " & SelShop & ""
		Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		Do While Not(Content.BOF Or Content.EOF)
%>
	<tr>
		<td>
			<a href="<% = HomeAliasSL %>shop.asp?SelShop=<% = SelShop %>&Shop=<% = Content.Fields("ショップID") %>&Item=<% = Content.Fields("商品ID") %>"><% = Content.Fields("名称") %><a>
		</td>
		<td align="right" nowrap>
		<% If Content.Fields("価格") = 0 Then %>
			時価
		<% Else %>
			&yen;<% = ConvIntToMoney(Content.Fields("価格"), False, False) %>(税<% If "" & Content.Fields("消費税フラグ") = "1" Then %>込<% Else %>別<% End If %>)
		<% End If %>
		</td>
		<td align="right" nowrap>
			<% = ConvIntToMoney(Content.Fields("数量"), False, False) %>
		</td>
		<td align="right" nowrap>
			&yen;<% = ConvIntToMoney(Content.Fields("価格") * Content.Fields("数量"), False, False) %>
		</td>
	</tr>
<%
			Shokei = Shokei +  Content.Fields("価格") * Content.Fields("数量")
			If "" & Content.Fields("消費税フラグ") <> "1" Then
				Zeibetsukei = Zeibetsukei +  Content.Fields("価格") * Content.Fields("数量")
			End If
			Content.MoveNext
		Loop
%>
	<tr>
		<td align="right" colspan="3" bgcolor="#f4f4f4">
			商品合計
		</td>
		<td align="right" nowrap>
			&yen;<% = ConvIntToMoney(Shokei, False, False) %>
		</td>
	</tr>
<%
		'If Gokei > 0 Then
		If Zeibetsukei > 0 Then
			Shohizei = Shohizei + Fix(Zeibetsukei * 0.08)
%>
	<tr>
		<td align="right" class="tx1214" colspan="3" bgcolor="#f4f4f4">
			消費税
		</td>
		<td align="right" nowrap>
			&yen;<% = ConvIntToMoney(Shohizei, False, False) %>
		</td>
	</tr>
<%
		End If
%>
	<tr>
		<td align="right" class="tx1214" colspan="3" bgcolor="#f4f4f4">
			送料
		</td>
		<td align="right" nowrap>
			&yen;<span id="SoryoLayer"></span>
		</td>
	</tr>
<%
		If DaibikiFlg = "1" Then
%>
	<tr>
		<td align="right" class="tx1214" colspan="3" bgcolor="#f4f4f4">
			代金引換手数料
		</td>
		<td align="right" nowrap>
			&yen;<span id="DaibikiTesuryoLayer"></span>
		</td>
	</tr>
<%
		End If
%>
<%
		'If Gokei > 0 Then
		If Result = "" Then
%>
	<tr>
		<td align="center">
			<% = ActionButton3Image("ReturnShopBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 102, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "ショップに戻る", "tx1416w", "center", "location.href='" & HomeAliasSL & "shop.asp?SelShop=" & SelShop & "';") %>
<!--
			<input type="button" value="ショップに戻る" onClick="location.href='<% = HomeAliasSL %>?SelShop=<% = SelShop %>';">
-->
		</td>
		<td align="right" colspan="2" bgcolor="#f4f4f4">
			合計
		</td>
		<td align="right" nowrap>
			&yen;<span id="GokeiLayer"><% = ConvIntToMoney(Shokei + Shohizei, False, False) %></span>
		</td>
	</tr>
<%
		End If
%>
</table>
<!--コンテンツ-->
<%
	End If
%>

		</td>
	</tr>
</table>
<!--内側左寄せ枠-->

		</td>
	</tr>
</table>
<!--全体センタリング枠-->
<input type="hidden" name="Shokei" value="<% = Shokei %>">
<input type="hidden" name="Shohizei" value="<% = Shohizei %>">
<input type="hidden" name="Soryo" value="">
<input type="hidden" name="DaibikiTesuryo" value="">
<input type="hidden" name="Gokei" value="<% = Shokei + Shohizei %>">
</form>
<SCRIPT LANGUAGE="JavaScript">
<!--

	var Shokei = <% = Shokei %>;
	var Shohizei = <% = Shohizei %>;
	var Soryo = 0;
	var DaibikiTesuryo = 0;
	var Gokei = <% = Shokei + Shohizei %>;

	//代金引換額・手数料の配列を作成
	var DaibikiKijunAry = new Array();
	var DaibikiTesuryoAry = new Array();
<%
	For Cnt = 1 To 7
		If DaibikiKijun(Cnt) <> "" And DaibikiTesuryo(Cnt) <> "" Then
			If DaibikiKijunFlg = "1" Then
				'代金引換額に手数料を含む場合は手数料を除いた実質代金上限を算出
				Response.Write("	DaibikiKijunAry[" & Cnt & "] = " & DaibikiKijun(Cnt) - DaibikiTesuryo(Cnt) & ";" & vbCrLf )
			Else
				Response.Write("	DaibikiKijunAry[" & Cnt & "] = " & DaibikiKijun(Cnt) & ";" & vbCrLf )
			End If
			Response.Write("	DaibikiTesuryoAry[" & Cnt & "] = " & DaibikiTesuryo(Cnt) & ";" & vbCrLf )
		End If
	Next
%>

	function ChangeDaibikiTesuryo() {
		<% If DaibikiFlg = "1" Then %>
		//代引手数料を除いた合計を再計算
		ChangeGokei(false);
		var ChckFlg = false;
		if (document.form1.Kessai.length) {
			//選択肢が複数ある場合
			if (document.form1.Kessai[0].checked) {
				ChckFlg = true;
			}
		} else {
			//選択肢が1つだけの場合
			if (document.form1.Kessai.checked) {
				ChckFlg = true;
			}
		}
		if (ChckFlg) {
			for (ii=1; ii<DaibikiKijunAry.length; ii++) {
				if (Gokei < DaibikiKijunAry[ii]) {
					DaibikiTesuryo = DaibikiTesuryoAry[ii];
					break;
				}
			}
		} else {
			DaibikiTesuryo = 0;
		}
		document.getElementById("DaibikiTesuryoLayer").innerHTML = ConvIntToMoney(DaibikiTesuryo, false, false);
		document.form1.DaibikiTesuryo.value = DaibikiTesuryo;
		<% End If %>
		//合計再計算
		ChangeGokei(true);
	}

	function ChangeSoryo() {
		var SelectFlg = 0;
		if (document.form1.Haisou.length) {
			//選択肢が複数ある場合
			for (ii=0; ii<document.form1.Haisou.length; ii++) {
				if (document.form1.Haisou[ii].checked) {
					SelectFlg = ii;
					break;
				}
			}
		} else {
			//選択肢が1つだけの場合
			SelectFlg = 0;
		}
		var SelPref = document.form1.ToDoFuKen.value;
		if (SelPref != "") {
			Soryo = PrefSoryo[SelectFlg][parseInt(SelPref)];
		} else {
			Soryo = 0;
		}
		document.getElementById("SoryoLayer").innerHTML = ConvIntToMoney(Soryo, false, false);
		document.form1.Soryo.value = Soryo;
		//送料変更時は代引手数料を再計算＆合計再計算
		ChangeDaibikiTesuryo();
		//合計再計算
//		ChangeGokei(true);
	}

	function ChangeGokei(Flg) {
		Gokei = Shokei + Soryo + Shohizei;
		if (Flg) {
			//代引手数料も含める場合（代引手数料計算時の事前計算では含めてはならない）
			Gokei = Gokei + DaibikiTesuryo;
		}
		document.getElementById("GokeiLayer").innerHTML = ConvIntToMoney(Gokei, false, false);
		document.form1.Gokei.value = Gokei;
	}



	function SendOrder() {
		Flg = false;
		radioList = document.getElementsByName("Kessai");
		if (radioList.length < 1) {
			//項目未存在はtrueにする
			Flg = true;
		} else {
			for (i = 0; i < radioList.length; i++) {
				if (radioList[i].checked) {
					Flg = true;
					break;
				}
			}
		}
		if (!Flg) {
			alert("お支払方法を選択してください　");
			return false;
		}
		Flg = false;
		radioList = document.getElementsByName("Haisou");
		if (radioList.length < 1) {
			//項目未存在はtrueにする
			Flg = true;
		} else {
			for (i = 0; i < radioList.length; i++) {
				if (radioList[i].checked) {
					Flg = true;
					break;
				}
			}
		}
		if (!Flg) {
			alert("配送方法を選択してください　");
			return false;
		}
		if (form1.MailAddr.value.replace(/ /g,"").replace(/　/g,"") == "") {
			alert("メールアドレスを入力してください　");
			return false;
		}
	<% If LocalMode <> "1" Then %>
		if (!form1.MailAddr.value.match("^[0-9A-Za-z._\-]+@[0-9A-Za-z._\-]+$")) {
			alert("メールアドレスが正しくありません　\n\n※ 全角英数字の誤入力に注意！ ※　\n\n　" + form1.MailAddr.value + "\n");
			return false;
		}
	<% End If %>
		if (form1.Shimei.value.replace(/ /g,"").replace(/　/g,"") == "") {
			alert("氏名を入力してください　");
			return false;
		}
		if (form1.Furi.value.replace(/ /g,"").replace(/　/g,"") == "") {
			alert("ふりがなを入力してください　");
			return false;
		}
		if (form1.Postal.value.replace(/ /g,"").replace(/　/g,"") == "") {
			alert("郵便番号を入力してください　");
			return false;
		}
		if (form1.ToDoFuKen.value.replace(/ /g,"").replace(/　/g,"") == "") {
			TmpMes = "";
		<% If OrderRegion <> "" Then %>
			TmpMes = "\n\n※ 住所で選択できない都道府県からの注文はお受けできません ※　";
		<% End If %>
			alert("都道府県を選択してください　" + TmpMes);
			return false;
		}
		if (form1.Address.value.replace(/ /g,"").replace(/　/g,"") == "") {
			alert("住所を入力してください　");
			return false;
		}
		if (!confirm("注文を送信しますか？　")) {
			return false;
		}
		form1.submit();
	}

-->
</SCRIPT>
<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
<!--

	ChangeSoryo();
	ChangeDaibikiTesuryo();

-->
</SCRIPT>

<!-- #include file="./include_bottom.asp" -->

<%
End Sub
%>