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

<%
'<!-- 
'################################################
' 	名称	:運用管理メニュー		 
' 	作成日:2002/10/10
' 	作成者:徳田
' 	目的 :運用管理メニュー画面を表示する。
' 	概要	:
' 	 <<表示>>
' 	・
' 	<<入力チェック>>
' 	・
'################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then 
		Exit Sub
	End If	
	
	Dim Query, Content 
	Dim EnshuCD 
	EnshuCD = Request("EnshuCD")
	Session(HomeAlias & "EnshuCD") = EnshuCD
	Session(HomeAlias & "EnshuMeisyo") = ConvEnshuMeisyo(EnshuCD)
	Session(HomeAlias & "EnshuKubun") = ConvEnshuKubun(EnshuCD)

	Dim AutoLogin
	AutoLogin = Request("AutoLogin")

	'コントロールパネル(071225小野)
	If AutoLogin = "Control" Then
		Response.Redirect("/" & HomeAlias & "/admin/enshu/fm_enshucontrol.asp?EnshuCD=" & EnshuCD)
	End If

	'オートログイン(071106小野)
	If AutoLogin = "AutoLogin" Then
		Response.Redirect("/" & HomeAlias & "/admin/enshu/fm_enshukaishalogin.asp?EnshuCD=" & EnshuCD)
	End If

	Response.Redirect("fm_enshu1_view.asp?EnshuCD=" & EnshuCD)

End Sub
%>