<% ' ' %> <% 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 %> <% = HtmlHeader("") %>
<% 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("自社サイト編集", "結果")) %>
<% = HtmlFooter %> <% End Sub %>