<% ' %> <% main() Sub main() Dim PageType Dim RouteType Dim SyohinCD , Shohinmei , ShohinRyakumei '商品コード、商品名称、商品略名称 Dim HanbaiTanka , ShireTnanka , UnsoTanka '標準販売単価、標準仕入単価、運送費単価 Dim SokoryoTanka , Jyuryo , Yoseki '倉庫料単価、重量、容積 Dim Bikou '備考 Dim GazoFile Dim Tani Dim Lot Dim SyohinKubun Dim ShijyoCD, SyoyuKaisyaCD Dim ii Dim Query Dim Content RouteType = Request("RouteType") PageType = Request("Pagetype") SyohinCD = Request("SyohinCD") SyohinKubun = Request("SyohinKubun") Dim Mode Mode = Request("Mode") Query = "exec SPM部品展開表取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SyohinKubun & "', '" & SyohinCD & "'" Set Content = OpenQuery(Query) If (Content.BOF Or Content.EOF) Then '存在しなければ入力フォームに飛ぶ Response.Redirect("fm_buhintenkai.asp?PageType=SeizoBu&SyohinCD=" & SyohinCD & "&SyohinKubun=" & SyohinKubun & "&Mode=BuhinTenkai") End If %> <% = HtmlHeader("") %> <body onkeydown="if(ExitFlg==2)ExitFlg=3;"> <p>このページにはフレームが使用されていますが、お使いのブラウザではサポートされていません。</p> </body> <% End Sub %>