<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim ShijoCD ShijoCD = Request("ShijoCD") Dim Query Dim Content %> <% = HtmlHeader("") %> <% Response.Write(HtmlDesign(11)) Response.Write(HttpL3_1(" 商品の追加 ", "tblbtn('portal_shohin_edit.asp?ShijoCD=" & ShijoCD & "')", " サイトの編集 ", "tblbtn('portal_kaisha_edit.asp?ShijoCD=" & ShijoCD & "')", " 会社一覧に戻る ", "tblbtn('portal_kaisha_ichiran.asp?ShijoCD=" & ShijoCD & "')", "閉じる", "ExitFlg=0;top.window.close()", "", "")) Response.Write(HttpL4("商品棚の編集", "")) %> <% = HtmlFooter %> <% End Sub %>