<!-- #include file="../../../include.asp" --> <!-- #include file="fk_syuekisei_view_main_in.asp" --> <% '<!-- '################################################ ' 名称 :収益性の分析 ' 作成日 :2009/09/07 ' 作成者 :小野 ' 目的 :収益性の分析を表示する。 ' 概要 : ' <<表示>> '################################################ '--> ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType RouteType = Request("RouteType") Dim Shihyo Shihyo = Request("Shihyo") Dim PageType PageType = "収益性の分析" %> <html> <% = HtmlHeader("") %> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 0; //印刷余白指定(ミリ指定) PrintTopMargin = 20; PrintLeftMargin = 15; // PrintTopMargin = 0; // PrintLeftMargin = 0; --> </SCRIPT> <body onload="<% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% = PrintScriptX %> <% = PrintHeader(0, PageType) %> <% = Bunseki_Shuekisei(EnshuCD, KaisyaCD, Shihyo, 0, 1) %> <% = PrintFooter() %> </body> <% = HtmlFooter %> </html> <% End Sub %>