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

<%
'<!-- 
'################################################
'	名称	:ポータルサイト(会社サイト設定)
'	作成日	:2008/08/25
'	作成者	:小野
'	目的	:会社サイト更新結果の表示
'	概要	:
'	修正変更:
'################################################
'-->
'
%>

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

	Dim Query
	Dim Content

	Dim ShijoCD
	ShijoCD = Request("ShijoCD")

	Dim Midashi
	Dim Banner
	Dim Shokai
	Dim ShelfHyoji
	Dim ShelfZaiko
	Dim ContentsHyoji
	Dim ContentsTitle
	Dim ContentsValue
	Dim LinkHyoji
	Dim LinkTitle
	Dim LinkValue
	Query = "exec SPPポータル会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)		
	If Not(Content.BOF Or Content.EOF) Then
		Midashi = "" & Content.Fields("見出し文")
		Banner = "" & Content.Fields("バナー")
		Shokai = "" & Content.Fields("紹介文")
		ShelfHyoji = "" & Content.Fields("商品棚表示")
		ShelfZaiko = "" & Content.Fields("商品棚在庫無し表示")
		ContentsHyoji = "" & Content.Fields("コンテンツ表示")
		ContentsTitle = "" & Content.Fields("コンテンツタイトル")
		ContentsValue = "" & Content.Fields("コンテンツ")
		LinkHyoji = "" & Content.Fields("リンク表示")
		LinkTitle = "" & Content.Fields("リンクタイトル")
		LinkValue = "" & Content.Fields("リンク")
	Else
		Midashi = "" & ConvKaisyaMeisyo(KaisyaCD)
	End If
	Dim BannerURL
	If Banner <> "" Then
		BannerURL = FPortal & "/" & GB_EnshuCD & "/" & KaisyaCD & "/" & Banner
	Else
		BannerURL = "/" & HomeAlias & "/images/default_banner.gif"
	End If

%>
<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">
<form name="form1" method="POST" action="portal_kaisha_bin.asp" ENCTYPE="multipart/form-data">
<input type="hidden" name="BannerHenkoFlg" value="0">
<input type="hidden" name="OldBanner" value="<% = Banner %>">
<input type="hidden" name="OldContentsValue" value="<% = ContentsValue %>">

<%
	Response.Write(HtmlDesign(11))

	Response.Write(HttpL3_1("&nbsp;自社サイトを見る&nbsp;", "tblbtn('portal_kaisha_view.asp?ViewKaisyaCD=" & KaisyaCD & "&ShijoCD=" & ShijoCD & "')", "&nbsp;編集画面に戻る&nbsp;", "tblbtn('portal_kaisha_edit.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="1" HEIGHT="1">
				<TR> 
					<TD ALIGN="CENTER" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif">
						<TABLE WIDTH="615" BORDER="1" CELLSPACING="0" CELLPADDING="3" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1416" STYLE="border-collapse: collapse">
							<TR>
								<td WIDTH="110" height="24" bgcolor="#FFEE88" nowrap>見出し</td>
								<td><% = Midashi %></td>
							</TR>
							<TR>
								<td height="30" bgcolor="#FFEE88" nowrap>バナー</td>
								<td><img src="<% = BannerURL %>" WIDTH="360" HEIGHT="40"></td>
							</TR>
							<TR>
								<td height="24" bgcolor="#FFEE88" nowrap>会社紹介</td>
								<td><% = Shokai %></td>
							</TR>
							<TR>
								<td height="24" bgcolor="#FFEE88" nowrap>表示項目設定</td>
								<td>
									<% If ShelfHyoji <> "1" Then Response.Write("<font color=""#888888"">商品棚</font>") Else Response.Write("商品棚") End If %>
									 <% If ContentsHyoji <> "1" Then Response.Write("<font color=""#888888"">コンテンツ</font>") Else Response.Write("コンテンツ") End If %>
									 <% If LinkHyoji <> "1" Then Response.Write("<font color=""#888888"">リンク</font>") Else Response.Write("リンク") End If %>
								</td>
							</TR>
							<TR>
								<td height="24" bgcolor="#FFEE88" nowrap>商品棚表示設定</td>
								<td>
									在庫の無い商品を表示<% If ShelfZaiko <> "1" Then %>しない<% Else %>する<% End If %>
								</td>
							</TR>
							<TR>
								<td height="24" bgcolor="#FFEE88" nowrap>コンテンツタイトル</td>
								<td><% = ContentsTitle %></td>
							</TR>
							<TR>
								<td height="24" bgcolor="#FFEE88" nowrap>コンテンツ</td>
								<td><% = ContentsValue %></td>
							</TR>
							<TR>
								<td height="24" bgcolor="#FFEE88" nowrap>リンクタイトル</td>
								<td><% = LinkTitle %></td>
							</TR>
							<TR>
								<td height="24" bgcolor="#FFEE88" nowrap>リンク先URL</td>
								<td><% = LinkValue %></td>
							</TR>

						</TABLE>
					</TD>
				</TR>
			</TABLE>
		</TD>
	</TR>
</TABLE>
</div>

</form>

</body>

<% = HtmlFooter %>

</html>
<% 
End Sub
%>