<%
'
%>
<%
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")
Dim Kubun
Kubun = Request("Kubun")
%>
<% = AppTitle %>
<%
End Sub
%>