<!-- #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(" 自社サイトを見る ", "tblbtn('portal_kaisha_view.asp?ViewKaisyaCD=" & KaisyaCD & "&ShijoCD=" & ShijoCD & "')", " 編集画面に戻る ", "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
%>