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

<%
'<!-- 
'################################################
'	名称	:ポータルサイト(商品棚編集)
'	作成日	:2008/08/26
'	作成者	:小野
'	目的	:商品棚の編集画面の表示
'	概要	:
'	修正変更:
'################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim ShijoCD
	ShijoCD = Request("ShijoCD")

	Dim Query
	Dim Content

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	ExitFlg = 1;
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">

<%
	Response.Write(HtmlDesign(11))

	Response.Write(HttpL3_1("&nbsp;商品の追加&nbsp;", "tblbtn('portal_shohin_edit.asp?ShijoCD=" & ShijoCD & "')", "&nbsp;サイトの編集&nbsp;", "tblbtn('portal_kaisha_edit.asp?ShijoCD=" & ShijoCD & "')", "&nbsp;会社一覧に戻る&nbsp;", "tblbtn('portal_kaisha_ichiran.asp?ShijoCD=" & ShijoCD & "')", "閉じる", "ExitFlg=0;top.window.close()", "", ""))

	Response.Write(HttpL4("商品棚の編集", ""))

%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" WIDTH="100%" HEIGHT="100%">
	<TR> 
		<TD ALIGN="CENTER"> 
			<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="15" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="680" HEIGHT="100%">
				<TR> 
					<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif">
						<TABLE WIDTH="640" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
							<TR>
								<TD VALIGN="TOP">
									<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:840px; height:100%; z-index:1; border:1px none #000000; overflow:auto;"> 
										<TABLE ID="List" WIDTH="820" BORDER="0" CELLSPACING="0" CELLPADDING="0">
											<TR>
												<TD CLASS="tx1416">
										<%

											Dim PrevHyojijun
											PrevHyojijun = 0

											Dim NextHyojijun
											ReDim NextHyojijun(0)

											Query = "exec SPPポータル商品取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', ''"
											Set Content = OpenQuery(Query)

											Dim ii
											ii = 0
											Do While Not(Content.BOF Or Content.EOF)
												ii = ii + 1
												ReDim PreServe NextHyojijun(ii)
												NextHyojijun(ii) = Content.Fields("表示順")
												Content.MoveNext
											Loop
											If UBound(NextHyojijun) > 0 Then
												Content.MoveFirst
											End If

											ii = 0
											Do While Not(Content.BOF Or Content.EOF)
												ii = ii + 1
												Dim ImageFile
												ImageFile = ""
												If "" & Content.Fields("商品画像区分") = "2" And "" & Content.Fields("商品広告画像") <> "" Then
													ImageFile = FPortal & "/" & GB_EnshuCD & "/" & KaisyaCD & "/" & Content.Fields("商品広告画像")
												ElseIf "" & Content.Fields("商品画像区分") = "1" And "" & Content.Fields("商品マスタ画像") <> "" Then
													ImageFile = Fgoods & "/" & EnshuCD & "/" & Content.Fields("商品マスタ画像")
												End If

				 								Response.Write("<TABLE BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""0"">" & vbCrLf)
				 								Response.Write("<TR>" & vbCrLf)
												Response.Write("<TD>" & vbCrLf)

				 								Response.Write("<TABLE WIDTH=""745"" BORDER=""1"" CELLSPACING=""0"" CELLPADDING=""0"" BGCOLOR=""#FFFFFF"" STYLE=""border-collapse:collapse"" BORDERCOLOR=""#0000FF"" CLASS=""tx1416"">" & vbCrLf)
				 								Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
												Response.Write("<TD rowspan=""2"" width=""120"" height=""90"">" & vbCrLf)
												If ImageFile <> "" Then
													Response.Write("<img src=""" & ImageFile & """ width=""120"" height=""90"">")
												Else
													Response.Write("<div style=""width:120px; height:90; border:none; text-align:center;"" class=""tx1618""><BR><BR>画像無し</div>")
												End If
												Response.Write("</TD>" & vbCrLf)
												Response.Write("<TD ALIGN=""LEFT"" height=""20"">" & vbCrLf)
												Response.Write(Content.Fields("商品見出し文") & vbCrLf)
												Response.Write("</TD>" & vbCrLf)
												Response.Write("</TR>" & vbCrLf)
				 								Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
												Response.Write("<TD ALIGN=""LEFT"" height=""70"">" & vbCrLf)
												Response.Write(Content.Fields("商品広告文") & vbCrLf)
												Response.Write("</TD>" & vbCrLf)
												Response.Write("</TR>" & vbCrLf)
												Response.Write("</TABLE>" & vbCrLf)
				 								Response.Write("<TABLE WIDTH=""744"" BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""0"" STYLE=""border-collapse:collapse"" CLASS=""tx1618"">" & vbCrLf)
				 								Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf)
												Response.Write("<TD ALIGN=""left"">" & vbCrLf)
												Response.Write("" & Content.Fields("商品名称") & vbCrLf)
												Response.Write("</TD>" & vbCrLf)
												Response.Write("<TD ALIGN=""right"">" & vbCrLf)
												Response.Write("希望卸価格:" & ConvIntToMoney(Content.Fields("希望卸価格"),false,false) & vbCrLf)
												Response.Write("</TD>" & vbCrLf)
												Response.Write("</TR>" & vbCrLf)
												Response.Write("</TABLE>" & vbCrLf)

												Response.Write("</TD>" & vbCrLf)
												Response.Write("<TD align=""right"" valign=""top"">" & vbCrLf)

				 								Response.Write("<TABLE WIDTH=""60"" BORDER=""0"" CELLSPACING=""0"" CELLPADDING=""0"" CLASS=""tx1416"">" & vbCrLf)
				 								Response.Write("<TR>" & vbCrLf)
												Response.Write("<TD height=""28"" ALIGN=""right"">&nbsp;" & vbCrLf)
												If ii > 1 Then
													Response.Write("<input type=""button"" style=""width:60px;font-size:11pt;"" value=""上移動"" onClick=""HyojijunIrekae('" & PrevHyojijun & "', '" & Content.Fields("表示順") & "');"">" & vbCrLf)
												End If
												Response.Write("</TD>" & vbCrLf)
												Response.Write("</TR>" & vbCrLf)
												Response.Write("<TR>" & vbCrLf)
												Response.Write("<TD height=""28"" ALIGN=""right"">&nbsp;" & vbCrLf)
												Response.Write("<input type=""button"" style=""width:60px;font-size:11pt;"" value=""編&nbsp;集"" onClick=""tblbtn('portal_shohin_edit.asp?ShelfCD=" & Content.Fields("商品棚CD") & "&ShijoCD=" & ShijoCD & "');"">" & vbCrLf)
												Response.Write("</TD>" & vbCrLf)
												Response.Write("</TR>" & vbCrLf)
												Response.Write("<TR>" & vbCrLf)
												Response.Write("<TD height=""28"" ALIGN=""right"">&nbsp;" & vbCrLf)
												Response.Write("<input type=""button"" style=""width:60px;font-size:11pt;"" value=""削&nbsp;除"" onClick=""ShelfDelete('" & Content.Fields("商品棚CD") & "');"">" & vbCrLf)
												Response.Write("</TD>" & vbCrLf)
												Response.Write("</TR>" & vbCrLf)
												Response.Write("<TR>" & vbCrLf)
												Response.Write("<TD height=""28"" ALIGN=""right"">&nbsp;" & vbCrLf)
												If ii + 1 <= UBound(NextHyojijun) Then
													Response.Write("<input type=""button"" style=""width:60px;font-size:11pt;"" value=""下移動"" onClick=""HyojijunIrekae('" & NextHyojijun(ii + 1) & "', '" & Content.Fields("表示順") & "');"">" & vbCrLf)
												End If
												Response.Write("</TD>" & vbCrLf)
												Response.Write("</TR>" & vbCrLf)
												Response.Write("</TABLE>" & vbCrLf)

												Response.Write("</TD>" & vbCrLf)
												Response.Write("</TR>" & vbCrLf)
												Response.Write("</TABLE>" & vbCrLf)

												Response.Write("<BR>" & vbCrLf)
												PrevHyojijun = Content.Fields("表示順")

												Content.MoveNext
											Loop

										%>
												</TD>
											</TR>
										</TABLE>
									</DIV>
								</TD>
							</TR>
						</TABLE>
					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>
</div>

</body>

<script language="JavaScript" type="text/JavaScript">
<!--

	function HyojijunIrekae(obj1, obj2) {
		if (obj1 != '' && obj2 != '') {
			tblbtn('portal_shelf_bin.asp?ShijoCD=<% = ShijoCD %>&Irekae1=' + obj1 + '&Irekae2=' + obj2);
			return;
		}
	}

	function ShelfDelete(obj) {
		if (obj != '') {
			if (confirm("削除してよろしいですか? ")) {
				tblbtn('portal_shelf_bin.asp?ShijoCD=<% = ShijoCD %>&Delete=Delete&ShelfCD=' + obj);
				return;
			}
		}
	}

-->
</script>

<% = HtmlFooter %>

</html>
<% 
End Sub
%>