<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  :貸借対照表(報告書形式)の照会の親ウィンドウ     
'   作成日:2002/10/31
'   作成者:川崎
'   目的 :貸借対照表(報告書形式)を表示ための親ウィンドウ
'   概要  :
'################################################
'-->
'
%>

<% 
main()

Sub main()

	Dim Kaishibi
	Dim Syuryobi
	Dim ZaikoTyoseiFLG
	Dim TanaorosiKubun
	
	Kaishibi = Request("Kaishibi")
	Syuryobi = Request("Syuryobi")
	TanaorosiKubun = Request("TanaorosiKubun")

	
	If Kaishibi = "" Then
		Kaishibi = GB_KaikeiKaishibi
	End If
	IF Syuryobi = "" Then
		Syuryobi = GB_KaikeiSyuryobi
	End If

	Dim RouteType
	RouteType = Request("RouteType")

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;
-->
</SCRIPT>


<frameset rows="*,0" framespacing="0" border="0" frameborder="0">
  <frame name="main" src="rm_taisyakutaisyouhyohoukoku_main.asp?Kaishibi=<% = Kaishibi %>&Syuryobi=<% = Syuryobi %>&TanaorosiKubun=<% = TanaorosiKubun %>&RouteType=<% = RouteType %>&<% = TimeUniq() %>" scrolling="no" noresize>
  <frame name="printout" id="rm_taisyakutaisyouhyohoukoku_print.asp?Kaishibi=<% = Kaishibi %>&Syuryobi=<% = Syuryobi %>&TanaorosiKubun=<% = TanaorosiKubun %>&RouteType=<% = RouteType %>&<% = TimeUniq() %>">
  <noframes>
  <body onkeydown="if(ExitFlg==2)ExitFlg=3;">

  <p>このページにはフレームが使用されていますが、お使いのブラウザではサポートされていません。</p>

  </body>
  </noframes>
</frameset>

</html>
<%
End Sub
%>