
<!-- #include file="../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：マスター管理演習選択    
'   作成日：2002/9/10
'   作成者：徳田
'   目的　：マスター管理初期画面（演習選択）を表示する。
'   概要  ：
'    <<表示>>
'	・マスター管理初期画面
'	
'################################################
'-->
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim EnshuCD
	Dim Query, Content
	EnshuCD = Request("EnshuCD")
	Session(HomeAlias & "EnshuCD") = EnshuCD

	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Session(HomeAlias & "EnshuMeisyo") = Content.Fields("演習名称")
		Session(HomeAlias & "KaikeiKaishibi") = Content.Fields("会計開始日")
		Session(HomeAlias & "KaikeiSyuryobi") = Content.Fields("会計終了日")
		Session(HomeAlias & "EnshuKubun") = Content.Fields("演習区分")
	End If

	Dim GyoshuKubun, TyohyoKubun, url
	GyoshuKubun = Request("GyoshuKubun")
	TyohyoKubun = Request("TyohyoKubun")
	url = Request("url")

	Dim Mode
	Mode = Request("Mode")

	Response.Redirect(url & "?GyoshuKubun=" & GyoshuKubun & "&TyohyoKubun=" & TyohyoKubun & "&Mode=" & Mode)

End Sub
%>