<% = AppTitle %>

<% ' ' %> <% 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 %> <% = AppTitle %>

<% 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("自社サイト編集", "結果")) %>

見出し	<% = Midashi %>
バナー
会社紹介	<% = Shokai %>
表示項目設定	<% If ShelfHyoji <> "1" Then Response.Write("商品棚") Else Response.Write("商品棚") End If %> 　<% If ContentsHyoji <> "1" Then Response.Write("コンテンツ") Else Response.Write("コンテンツ") End If %> 　<% If LinkHyoji <> "1" Then Response.Write("リンク") Else Response.Write("リンク") End If %>
商品棚表示設定	在庫の無い商品を表示<% If ShelfZaiko <> "1" Then %>しない<% Else %>する<% End If %>
コンテンツタイトル	<% = ContentsTitle %>
コンテンツ	<% = ContentsValue %>
リンクタイトル	<% = LinkTitle %>
リンク先URL	<% = LinkValue %>

<% = HtmlFooter %> <% End Sub %>