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

<%
'<!-- 
'################################################
'	名称	:製造指図書照会の親ウィンドウ
'	作成日	:2008/4/1
'	作成者	:小野
'	目的	:製造指図書の照会のための親ウィンドウ
'	概要	:
'################################################
'-->
%>


<% 
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim RouteType
	Dim BunsyoNaiyoCD
	Dim Mode

	RouteType = Request("RouteType")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	Mode = Request("Mode")

	Dim ii

	Dim Query
	Dim Content

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

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

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

</html>
<%
End Sub
%>