
<!-- #include virtual="/sj4web/include.asp" -->

<%
'<!-- 
'################################################
' 	名称	：運用管理メニュー		 
' 	作成日：2002/10/10
' 	作成者：徳田
' 	目的　：運用管理メニュー画面を表示する。
' 	概要	：
' 	 <<表示>>
' 	・
' 	<<入力チェック>>
' 	・
'################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
			Exit Sub
	End If
	
	Dim Query, Content 


If 1 = 0 Then
	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)    
	If Not(Content.BOF Or Content.EOF) Then
		Session("GakuseiNo") = Content.Fields("学生番号")
		Session("GyosyuMeisyo") = Content.Fields("業種名称") 
		Session("GyosyuKubun") = Content.Fields("業種CD") 
		If Content.Fields("業種CD") = "B" Then
			Session("Gyosyu") = "B"
		Else
			Session("Gyosyu") = "S"
		End If
	End If
End If


	Response.Redirect(Request("url"))
End Sub
%>