<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim Shihyo Shihyo = Request("Shihyo") Dim PageType PageType = "収益性の分析" %> <% = HtmlHeader("") %> <% = PrintScriptX %> <% = PrintHeader(0, PageType) %> <% = Bunseki_Shuekisei(EnshuCD, KaisyaCD, Shihyo, 0, 1) %> <% = PrintFooter() %> <% = HtmlFooter %> <% End Sub %>