<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim ShijoCD ShijoCD = Request("ShijoCD") Dim ShelfCD ShelfCD = Request("ShelfCD") Dim ShohinGazo Dim ShohinGazoKubun Dim ShohinGazoURL Dim OldKoukokuGazoURL Dim Midashi Dim Shokai Dim ShohinCD Dim ShohinMeisho Dim PurchasePrice If ShelfCD <> "" Then Query = "exec SPPポータル商品取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & ShelfCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then If "" & Content.Fields("商品広告画像") <> "" Then ShohinGazoURL = FPortal & "/" & GB_EnshuCD & "/" & KaisyaCD & "/" & Content.Fields("商品広告画像") OldKoukokuGazoURL = ShohinGazoURL ShohinGazo = Content.Fields("商品広告画像") ElseIf "" & Content.Fields("商品マスタ画像") <> "" Then ShohinGazoURL = Fgoods & "/" & EnshuCD & "/" & Content.Fields("商品マスタ画像") End If ShohinGazoKubun = "" & Content.Fields("商品画像区分") Midashi = "" & Content.Fields("商品見出し文") Shokai = "" & Content.Fields("商品広告文") ShohinCD = "" & Content.Fields("商品CD") ShohinMeisho = "" & Content.Fields("商品名称") PurchasePrice = "" & Content.Fields("希望卸価格") If "" & PurchasePrice = "" Then PurchasePrice = "" & Content.Fields("標準卸価格") End If End If End If Shokai = Replace(Shokai, "
", vbCrLf) If ShohinGazoKubun = "" Then ShohinGazoKubun = "1" End If %> <% = AppTitle %>
<% Response.Write(HtmlDesign(11)) Response.Write(HttpL3_1("保存", "SubmitCheck()", " 商品棚に戻る ", "tblbtn('portal_shelf_edit.asp?ShijoCD=" & ShijoCD & "')", " 会社一覧に戻る ", "tblbtn('portal_kaisha_ichiran.asp?ShijoCD=" & ShijoCD & "')", "閉じる", "ExitFlg=0;top.window.close()", "", "")) Response.Write(HttpL4("商品の編集", "")) %>
<% = HtmlFooter %> <% End Sub %>