% ' ' ' %> <% main() Sub main() Dim RouteType, DenpyoNo RouteType = Request("RouteType") DenpyoNo = Request("DenpyoNo") Dim Mode Mode = Request("Mode") Dim Title If Mode = "Seizo" Then Title = "製造部" End If Dim DenpyoKubun If Mode = "Seizo" Then '製造部 DenpyoKubun = "D8" '伝票区分 8:製造部振替伝票 Else DenpyoKubun = "D5" '伝票区分 5:振替伝票 End If %>