% ' ' %> <% main() Sub main() Dim DenpyoNo, RouteType, PageType RouteType = Request("RouteType") DenpyoNo = Request("DenpyoNo") PageType = Request("PageType") Dim title, DenpyoKubun title = "材料仕入伝票" DenpyoKubun = "D7" ' If PageType = "仕入伝票" Then ' title = "仕入伝票" ' DenpyoKubun = "D3" ' Else ' title = "売上伝票" ' DenpyoKubun = "D4" ' End If %>