<!-- #include file="./include.asp" -->
<%
main()
Sub main()
	'インターネットアクセス拒否時に強制許可するフラグ
	If Request("permit") <> "" Then
		Session("ECMallPermit") = Request("permit")
	End If

	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 ItemViewCnt
	ItemViewCnt = GB_ItemViewCnt '1ページの表示件数
	Dim Page
	Page = Request("Page")
	If Page = "" Or Not(IsNumeric(Page)) Then
		Page = "0"
	End If
	Page = CInt(Page)

	Dim Order
	Order = Request("Order")
	If Order = "" Then
		Order = "New"
	End If


	Dim Query
	Dim Content
	Dim Content2


	'クローラ・ロボットを除外
	Dim TmpAgent
	TmpAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT"))
	If InStr(TmpAgent, LCase("Googlebot")) < 1 And _
		InStr(TmpAgent, LCase("crawler")) < 1 And _
		InStr(TmpAgent, LCase("feedfetcher")) < 1 And _
		InStr(TmpAgent, LCase("360spider")) < 1 And _
		InStr(TmpAgent, LCase("java/1.7.0")) < 1 And _
		InStr(TmpAgent, LCase("Googlebot-Image")) < 1 And _
		InStr(TmpAgent, LCase("YPBot")) < 1 And _
		InStr(TmpAgent, LCase("Yahoo! Slurp")) < 1 And _
		InStr(TmpAgent, LCase("bingbot")) < 1 And _
		InStr(TmpAgent, LCase("bitlybot")) < 1 And _
		InStr(TmpAgent, LCase("Yeti")) < 1 And _
		InStr(TmpAgent, LCase("Baiduspider")) < 1 And _
		InStr(TmpAgent, LCase("Steeler")) < 1 And _
		InStr(TmpAgent, LCase("ichiro")) < 1 And _
		InStr(TmpAgent, LCase("hotpage.fr")) < 1 And _
		InStr(TmpAgent, LCase("ia_archiver")) < 1 And _
		InStr(TmpAgent, LCase("YandexBot")) < 1 And _
		InStr(TmpAgent, LCase("msnbot")) < 1 And _
		InStr(TmpAgent, LCase("zenback bot")) < 1 And _
		InStr(TmpAgent, LCase("Y!J-BRI")) < 1 And _
		InStr(TmpAgent, LCase("TurnitinBot")) < 1 And _
		InStr(TmpAgent, LCase("Google Desktop")) < 1 And _
		InStr(TmpAgent, LCase("BaiduMobaider")) < 1 And _
		InStr(TmpAgent, LCase("Seznam screenshot-generator")) < 1 And _
		InStr(TmpAgent, LCase("SiteBot")) < 1 And _
		InStr(TmpAgent, LCase("Purebot")) < 1 And _
		InStr(TmpAgent, LCase("emBot-GalaBuzz/Nutch")) < 1 And _
		InStr(TmpAgent, LCase("Search17Bot")) < 1 And _
		InStr(TmpAgent, LCase("Tumblr")) < 1 And _
		InStr(TmpAgent, LCase("DotBot")) < 1 And _
		InStr(TmpAgent, LCase("masscan")) < 1 And _
		InStr(TmpAgent, LCase("AhrefsBot")) < 1 And _
		InStr(TmpAgent, LCase("Exabot")) < 1 And _
		InStr(TmpAgent, LCase("MJ12bot")) < 1 And _
		InStr(TmpAgent, LCase("Riddler")) < 1 And _
		InStr(TmpAgent, LCase("Twitterbot")) < 1 And _
		InStr(TmpAgent, LCase("EtaoSpider")) < 1 And _
		InStr(TmpAgent, LCase("EasouSpider")) < 1 And _
		InStr(TmpAgent, LCase("YisouSpider")) < 1 And _
		InStr(TmpAgent, LCase("Nmap Scripting Engine")) < 1 And _
		InStr(TmpAgent, LCase("Python-urllib")) < 1 And _
		InStr(TmpAgent, LCase("FunWebProducts")) < 1 And _
		InStr(TmpAgent, LCase("Chilkat")) < 1 Then
		'当日の初回アクセスのみ記録
		Query = ""
		Query = Query & " SELECT * FROM TFショップビジター履歴 "
		Query = Query & " WHERE ショップID = " & SelShop & " "
		Query = Query & " 	AND ビジターYMD = '" & VisitorIDSplit(GB_VisitorID, "YMD") & "' "
		Query = Query & " 	AND ビジターID = " & VisitorIDSplit(GB_VisitorID, "ID") & " "
		Query = Query & " 	AND アクセス日時 >= '" & Year(Now) & "/" & Month(Now) & "/" & Day(Now) & " 0:0:0' "
		Query = Query & " 	AND アクセス日時 <= '" & Year(Now) & "/" & Month(Now) & "/" & Day(Now) & " 23:59:59.99' "
		If "" & GB_PracticeCD <> "" Then
			'ローカルモードは演習単位で記録
			Query = Query & " 	AND 演習CD = " & GB_PracticeCD & " "
		End If
		Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		If Content.BOF Or Content.EOF Then
			Query = ""
			Query = Query & " INSERT INTO TFショップビジター履歴 (ショップID, ビジターYMD, ビジターID, アクセス日時, IPアドレス, 利用ブラウザ, 学校CD, ログインID, 演習CD) "
			Query = Query & " VALUES (" & SelShop & ", '" & VisitorIDSplit(GB_VisitorID, "YMD") & "', " & VisitorIDSplit(GB_VisitorID, "ID") & ", GETDATE(), '" & Request.ServerVariables("REMOTE_ADDR") & "', '" & Request.ServerVariables("HTTP_USER_AGENT") & "', '" & GB_HostName & "', '" & GB_UserID & "' "
			If "" & GB_PracticeCD <> "" Then
				Query = Query & " 	, " & GB_PracticeCD & " "
			Else
				Query = Query & " 	, null "
			End If
			Query = Query & " ) "
			Set Content = SQLQuery(Query, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		End If
	End If



%>

<!--全体センタリング-->
<table border="0" cellpadding="0" cellspacing="0" width="<% = WidthAll %>" bgcolor="#ffffff">
	<tr>

<!-- Main Content Start -->

		<td valign="top" align="left">


<form name="form1" method="POST" action="<% = Request.ServerVariables("SCRIPT_NAME") %>" style="margin:0px;">
<input type="hidden" name="SelShop" value="<% = SelShop %>">
<input type="hidden" name="Item" value="<% = Item %>">
<input type="hidden" name="Order" value="<% = Order %>">

			<table border="0" cellspacing="0" width="100%" class="tx1416">
				<tr>
					<td valign="top">


<%
	If Item = "All" Then 'ショップ商品一覧
%>

						<table border="0" cellpadding="0" cellspacing="4" class="tx1416">
							<tr>
								<td>
<!--
									<a href="<% = HomeAliasSL %>?SelShop=<% = SelShop %>&Item=All&Order=New">更新日の新しい順</a>
									 / 
									<a href="<% = HomeAliasSL %>?SelShop=<% = SelShop %>&Item=All&Order=Old">更新日の古い順</a>
									 / 
									<a href="<% = HomeAliasSL %>?SelShop=<% = SelShop %>&Item=All&Order=Low">価格の安い順</a>
									 / 
									<a href="<% = HomeAliasSL %>?SelShop=<% = SelShop %>&Item=All&Order=High">価格の高い順</a>
-->
									<a href="#" onClick="form1.Order.value='New';form1.submit();">更新日の新しい順</a>
									 / 
									<a href="#" onClick="form1.Order.value='Old';form1.submit();">更新日の古い順</a>
									 / 
									<a href="#" onClick="form1.Order.value='Low';form1.submit();">価格の安い順</a>
									 / 
									<a href="#" onClick="form1.Order.value='High';form1.submit();">価格の高い順</a>
								</td>
							</tr>
						</table>

		<% = HTMLItemList(SelShop, "", "", "", "Cat", "", Order, Page, ItemViewCnt, Request.ServerVariables("SCRIPT_NAME") & "?SelShop=" & SelShop & "&Item=" & Item & "&Order=" & Order, False) %>


<%
	ElseIf Item <> "" Then 'ショップ商品詳細
%>

<%
		Set Content = QueryGetItem(SelShop, Item, "", "", "", Order, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		If Not(Content.BOF Or Content.EOF) Then

			Dim TmpImage
			Dim TmpImageTmp

			Dim fso
			Set fso = Server.CreateObject("Scripting.FileSystemObject")

			Dim ImageCnt

%>
						<table border="0" cellpadding="0" cellspacing="4" class="tx1416">
							<tr>
								<td valign="middle"><nobr>
								<%
									For ImageCnt = 1 To 3
										If "" & Content.Fields("商品画像" & ImageCnt) <> "" Then
											TmpImage = Content.Fields("商品画像" & ImageCnt)
											TmpImageTmp = Left(TmpImage, InStrRev(TmpImage, ".") - 1)	'ファイル名を取り出す
											TmpImageTmp = TmpImageTmp & "_" & ImageXItemMain & "_" & ImageYItemMain & "_" & Content.Fields("商品画像トグル" & ImageCnt) '商品画像トグルを付加
											If LCase(Right(TmpImage, 4)) = ".gif" Then
												TmpImageTmp = TmpImageTmp & Mid(TmpImage, InStrRev(TmpImage, ".")) '拡張子を付加
											Else
												TmpImageTmp = TmpImageTmp & ".jpg" 'GIF以外はすべてjpg拡張子を付加
											End If
											'ファイル存在チェック                                                                                                    GIFは除外
											If Not(fso.FileExists(Server.MapPath(HomeAliasSL & ItemFolderSL & Content.Fields("ショップID") & "/" & TmpImageTmp))) Or LCase(Right(TmpImageTmp, 4)) = ".gif" Then
												'無ければ元ファイル表示
												TmpImageTmp = InscribedImage(HomeAliasSL & ItemFolderSL & Content.Fields("ショップID") & "/" & TmpImage, ImageXItemMain, ImageYItemMain)
											Else
												'サムネイル表示
												TmpImageTmp = "<img src=""" & HomeAliasSL & ItemFolderSL & Content.Fields("ショップID") & "/" & TmpImageTmp & "?" & Uniq & """ border=""0"">"
											End If
											Response.Write(TmpImageTmp)
											If GB_UserAgent <> "PC" Then
												Response.Write("<br>")
											End If
										End If
									Next

								%>
								</nobr></td>
								<% If "" & Content.Fields("保存方法") = "1" Or "" & Content.Fields("保存方法") = "2" Then %>
								<td valign="bottom">
									<img src="images/<% If "" & Content.Fields("保存方法") = "1" Then %>Refrigeration<% Else %>Freezing<% End If %>02.png">
									<% If "" & Content.Fields("保存温度") <> "" Then %>
										<br><% = Content.Fields("保存温度") %>℃以下で保存
									<% End If %>
								</td>
								<% End If %>
							</tr>
						</table>
						<table border="0" cellpadding="0" cellspacing="4" class="tx1416">
							<tr>
								<td class="tx1820">
									<b><% = Content.Fields("名称") %></b>
								</td>
							</tr>
						</table>
						<table border="0" cellpadding="0" cellspacing="4" class="tx1416">
							<tr>
								<td class="tx1618">
								<% If Content.Fields("価格") = 0 Then %>
									販売価格：時価<span class="tx1416">（ご注文後にお知らせいたします）</span>
								<% Else %>
									販売価格：<span class="tx1820"><b><% = ConvIntToMoney(Content.Fields("価格"), False, False) %></b></span> 円<% If "" & Content.Fields("消費税フラグ") = "1" Then %>（税込）<% Else %>（税別）<% End If %>
								<% End If %>
								</td>
								<td>
									<table border="0" cellpadding="0" cellspacing="0" class="tx1416">
										<tr>
											<td>
										<% If "" & Content.Fields("カート非利用") <> "1" Then %>
												数量
											</td>
											<td><% = Spacer(3, 1) %></td>
											<td>
												<input type="text" name="Qty" style="width:30px;" value="1" class="tb1416r" maxlength="3" onKeyup="this.value=this.value.replace(/[^0-9]+/,'');" onBlur="this.value=this.value.replace(/[^0-9]+/,'');">
											</td>
											<td><% = Spacer(3, 1) %></td>
											<td>
												<% = ActionButton3Image("InsertCartBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 130, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "買い物かごに入れる", "tx1416w", "center", "location.href='" & HomeAliasSL & "cart_bin.asp?SelShop=" & SelShop & "&Shop=" & Content.Fields("ショップID") & "&Item=" & Item & "&Qty='+form1.Qty.value;") %>
										<% Else %>
												<% = ActionButton3Image("ToiawaseBtn", "images/btn01bl.png", "images/btn01bl_o.png", 4, "images/btn01bc.png", "images/btn01bc_o.png", 214, "images/btn01br.png", "images/btn01br_o.png", 4, 24, "商品についてのお問合せはこちら", "tx1416w", "center", "location.href='" & HomeAliasSL & "mail.asp?SelShop=" & SelShop & "&Item=" & Item & "';") %>
										<% End If %>
											</td>
										</tr>
									</table>

<!--
									数量 <input type="text" name="Qty" size="3" value="1" class="tb1419r" maxlength="7" onKeyup="this.value=this.value.replace(/[^0-9]+/,'');" onBlur="this.value=this.value.replace(/[^0-9]+/,'');">
									<input type="button" value="買い物かごに入れる" onClick="location.href='<% = HomeAliasSL %>cart_bin.asp?SelShop=<% = SelShop %>&Shop=<% = Content.Fields("ショップID") %>&Item=<% = Item %>&Qty='+form1.Qty.value;">
-->
								</td>
							</tr>
						</table>
						<table border="0" cellpadding="0" cellspacing="4" class="tx1416">
							<tr>
								<td>
									<% = Content.Fields("紹介文") %>
								</td>
							</tr>
						</table>
<%
		Else
			'取得できなければ強制的に一覧に戻す
			Response.Redirect(Request.ServerVariables("SCRIPT_NAME") & "?SelShop=" & SelShop & "&Item=All")
		End If
%>


<%
	ElseIf Mode <> "" Then 'お支払方法・送料についてor特定商取引法に基づく表示
%>

<%
		'パラメータ取得
		Dim Jigyosha
		Dim Postal
		Dim ToDoFuKenMei
		Dim Address
		Dim TEL
		Dim FAX
		Dim Henpin
		Dim FuryoHason
		Dim OrderLimit
		Dim Etc
		Dim Sekininsha
		Dim ShopAddr
		Dim TimeTable
		Dim HaisouFlg(4)
		Dim HaisouMei(4)
		Dim HaisouSoryo(4)
		Dim Haisou(4)
		Dim KessaiFlg(3)
		Dim KessaiMei(3)
		Dim Kessai(3)
		Dim DaibikiFlg
		Dim DaibikiKijun(7)
		Dim DaibikiTesuryo(7)
		Dim DaibikiKijunFlg
		Set Content = QueryGetShop(SelShop, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
		If Not(Content.BOF Or Content.EOF) Then
			Jigyosha = "" & Content.Fields("事業者名")
			Postal = "" & Content.Fields("郵便番号")
			ToDoFuKenMei = "" & Content.Fields("都道府県")
			Address = "" & Content.Fields("住所")
			TEL = "" & Content.Fields("TEL")
			FAX = "" & Content.Fields("FAX")
			Sekininsha = "" & Content.Fields("責任者")
			ShopAddr = "" & Content.Fields("店舗メールアドレス")
			TimeTable = "" & Content.Fields("営業時間等")
			Henpin = "" & Content.Fields("返品条件等")
			FuryoHason = "" & Content.Fields("不良破損")
			OrderLimit = "" & Content.Fields("注文有効期限")
			Etc = "" & Content.Fields("その他条件")
			For Cnt = 1 To 4
				HaisouFlg(Cnt) = "" & Content.Fields("配送方法公開" & Cnt)
				HaisouMei(Cnt) = "" & Content.Fields("配送方法名称" & Cnt)
				HaisouSoryo(Cnt) = "" & Content.Fields("配送方法送料" & Cnt)
				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
		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 0=1 And Mode = "mailorderlaw" Then
%>
						<table border="0" cellpadding="0" cellspacing="4" class="tx1416">
							<tr>
								<td>
									特定商取引法に基づく表示
								</td>
							</tr>
						</table>
<%
		End If

		If KessaiFlg(0) Then
%>
						<table border="0" cellpadding="0" cellspacing="4" class="tx1416">
							<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>
									代金引換
								</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>
									<% = KessaiMei(KCnt) %>
								</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" class="tx1416">
							<tr>
								<td nowrap>
									配送方法・送料について
								</td>
							</tr>
						</table>
						<table border="1" cellpadding="4" cellspacing="0" class="tx1416" style="border:1px solid #000000;border-collapse:collapse;">
<%
			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>
									<% = HaisouMei(HCnt) %>
								</td>
							</tr>
							<tr>
								<td>
									<% = Haisou(HCnt) %>
<%
	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

	'全国一律送料（値が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>
<%
				End If
			Next
%>
						</table>
<%
		End If

		If Mode = "mailorderlaw" Then '特定商取引法に基づく表示
%>
						<table border="0" cellpadding="0" cellspacing="4" class="tx1416">
							<tr>
								<td>
									事業者情報
								</td>
							</tr>
						</table>
						<table border="1" cellpadding="4" cellspacing="0" class="tx1416" style="border:1px solid #000000;border-collapse:collapse;">
							<tr>
								<td align="right" bgcolor="#e5e5e5">
									事業者名
								</td>
								<td>
									<% = Jigyosha %>
								</td>
							</tr>
							<tr>
								<td align="right" bgcolor="#e5e5e5">
									郵便番号
								</td>
								<td>
									<% = Postal %>
								</td>
							</tr>
							<tr>
								<td align="right" bgcolor="#e5e5e5">
									住所
								</td>
								<td>
									<% = ToDoFuKenMei & Address %>
								</td>
							</tr>
							<tr>
								<td align="right" bgcolor="#e5e5e5">
									TEL
								</td>
								<td>
									<% = TEL %>
								</td>
							</tr>
							<tr>
								<td align="right" bgcolor="#e5e5e5">
									FAX
								</td>
								<td>
									<% = FAX %>
								</td>
							</tr>
							<tr>
								<td align="right" bgcolor="#e5e5e5">
									責任者氏名
								</td>
								<td>
									<% = Sekininsha %>
								</td>
							</tr>
<!--
							<tr>
								<td align="right" bgcolor="#e5e5e5">
									お問合せメールアドレス
								</td>
								<td>
									<% = ShopAddr %>
								</td>
							</tr>
-->
							<tr>
								<td align="right" class="tx1214" bgcolor="#e5e5e5">
									営業時間・問合せ受付時間・休業日等
								</td>
								<td>
									<% = TimeTable %>
								</td>
							</tr>
							<tr>
								<td align="right" bgcolor="#e5e5e5">
									返品に関わる条件
								</td>
								<td>
									<% = Henpin %>
								</td>
							</tr>
							<tr>
								<td align="right" bgcolor="#e5e5e5">
									不良品・破損時の対応
								</td>
								<td>
									<% = FuryoHason %>
								</td>
							</tr>
							<tr>
								<td align="right" bgcolor="#e5e5e5">
									ご注文の有効期限
								</td>
								<td>
									<% = OrderLimit %>
								</td>
							</tr>
							<tr>
								<td align="right" bgcolor="#e5e5e5">
									その他販売条件
								</td>
								<td>
									<% = Etc %>
								</td>
							</tr>
						</table>
<%
		End If
%>


<%
	Else 'アップロードされたページ
%>


<%
	Dim TmpShopPage
	TmpShopPage = "maintenance.html"
	Set Content = QueryGetShop(SelShop, SQLServer, DatabaseName, DatabaseUser, DatabasePass)
	If Not(Content.BOF Or Content.EOF) Then
		If "" & Content.Fields("既定ドキュメント") <> "" And "" & Content.Fields("Webページ公開") = "1" Then
			TmpShopPage = "shop/" & Content.Fields("ショップID") & "/" & Content.Fields("既定ドキュメント")
		Else
			Response.Redirect(Request.ServerVariables("SCRIPT_NAME") & "?SelShop=" & SelShop & "&Item=All") '設定されていなければ商品一覧へ飛ぶ
		End If
	End If
'Response.Write(TmpShopPage)
'Exit Sub
%>

						<iframe name="ShopPage" id="ShopPage" width="100%" src="<% = HomeAliasSL & TmpShopPage %>?<% = Uniq %>" frameborder="0" name="_ｔｏｐ" scrolling="auto"></iframe><!--アップロードされたコンテンツの「_top」を「_ｔｏｐ」に書き換えている-->

<SCRIPT LANGUAGE="JavaScript">
<!--

	//フレームサイズ可変
	var WinH = 0;
	var WinW = 0;
	var IntervalVariableLayerHeight;

	function VariableLayerHeight() {
		var ShopNaviBarHeight = document.getElementById("ShopNaviBar").clientHeight; //上部ナビバーの高さを取得
		var MinusHeight = ShopNaviBarHeight + 8
		//最初の1回目を実行（繰り返し間隔が短い場合は不要）
		VariableLayerHeightSub("ShopPage", MinusHeight);
		//繰り返し実行
		IntervalVariableLayerHeight = setInterval("VariableLayerHeightSub('ShopPage', " + MinusHeight + ")", 250);
	}
	function VariableLayerHeightSub(LayerName, MinusHeight) {
		//クライアントのブラウザ表示領域サイズを取得
		//var WinW = document.body.clientWidth;	//←bodyはIEでバグることがある
		if (document.documentElement.clientWidth != WinW) {
			WinW = document.documentElement.clientWeight;
			document.getElementById(LayerName).style.width = (document.documentElement.clientWidth - 3) + 'px';
		}
		if (document.documentElement.clientHeight != WinH) {
			WinH = document.documentElement.clientHeight;
			//alert(WinH);
			if (WinH - MinusHeight > 0) {
				document.getElementById(LayerName).style.height = (WinH - MinusHeight) + 'px';
			}
		}
	}

	window.onload = VariableLayerHeight();

-->
</SCRIPT>

<%
	End If
%>


					</td>
				</tr>
			</table>
</form>
		</td>
	</tr>
</table>

<!-- #include file="./include_bottom.asp" -->

<%
End Sub
%>