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