<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim PageType PageType = "8桁精算表" Dim RouteType RouteType = Request("RouteType") Dim Url Url = Request.ServerVariables("URL") Dim Kaishibi Dim Syuryobi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If %> <% = HtmlHeader("sj3tyoboredPRT09") %> <% = PrintScriptX %> <% If RouteType = "Hakushi" Then Response.Write(TyoboHachiketaSeisanhyo(EnshuCD, KaisyaCD, KaisyaCD, "LG", "", -1, 1, "", "", RouteType)) Else Response.Write(TyoboHachiketaSeisanhyo(EnshuCD, KaisyaCD, KaisyaCD, "LG", "", 0, 1, "", "", RouteType)) End If %> <% End Sub %>