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

<%
'<!-- 
'################################################
'   名称  :現金残高試算表の照会の親ウィンドウ     
'   作成日:2002/7/18
'   作成者:山崎
'   目的 :現金残高試算表を表示ための親ウィンドウ
'   概要  :
'	修正:2002/8/29:山崎:表示するページを変更   
'################################################
'-->
'
%>

<% 
main()

Sub main()

	Dim Torihikibi
	Torihikibi = Request("Torihikibi")

	Dim Torihikibi2
	Torihikibi2 = Request("Torihikibi2")

	Dim Mode
	Mode = Request("Mode")

	Dim RouteType
	RouteType = Request("RouteType")
	
	Dim Url 
	Url = Request.ServerVariables("URL")

%>
<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="<% = Replace(Url, ".asp", "_main.asp") %>?RouteType=<% = RouteType %>&Torihikibi=<% = Torihikibi %>&Torihikibi2=<% = Torihikibi2 %>&Mode=<% = Mode %>&<% = TimeUniq() %>" scrolling="no" noresize>
  <frame name="printout" id="<% = Replace(Url, ".asp", "_print.asp") %>?RouteType=<% = RouteType %>&Torihikibi=<% = Torihikibi %>&Torihikibi2=<% = Torihikibi2 %>&Mode=<% = Mode %>&<% = TimeUniq() %>">
  <noframes>
  <body onkeydown="if(ExitFlg==2)ExitFlg=3;">

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

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

</html>
<%
End Sub
%>