<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim ShijoCD ShijoCD = Request("ShijoCD") Dim Shinki Shinki = 1 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("リンク") Shinki = 0 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 If ShelfZaiko <> "0" Then ShelfZaiko = "1" End If Shokai = Replace(Shokai, "
", vbCrLf) %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(11)) If Shinki = 0 Then Response.Write(HttpL3_1("保存", "SubmitCheck()", " 商品棚の編集 ", "tblbtn('portal_shelf_edit.asp?ShijoCD=" & ShijoCD & "')", " 会社一覧に戻る ", "tblbtn('portal_kaisha_ichiran.asp?ShijoCD=" & ShijoCD & "')", "閉じる", "ExitFlg=0;top.window.close()", "", "")) Else Response.Write(HttpL3_1("保存", "SubmitCheck()", " 会社一覧に戻る ", "tblbtn('portal_kaisha_ichiran.asp?ShijoCD=" & ShijoCD & "')", "閉じる", "ExitFlg=0;top.window.close()", "", "", "", "")) End If Response.Write(HttpL4("自社サイト編集", "")) %>
<% = HtmlFooter %> <% End Sub %>