<% ' ' %> <% main() Sub main() Dim DenpyoNo, RouteType, PageType RouteType = Request("RouteType") DenpyoNo = Request("DenpyoNo") PageType = Request("PageType") Dim title, DenpyoKubun If PageType = "Shiire" Then title = "仕入伝票" DenpyoKubun = "D3" Else title = "売上伝票" DenpyoKubun = "D4" End If %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% Dim AutoFlg If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If %> <% = DenpyoShiireUriage(EnshuCD, KaisyaCD, KaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, 1) %> <% = HtmlFooter %> <% End Sub %>