
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：演習情報登録処理
'	 作成日：2002/9/4
'	 作成者：徳田
'	 目的　：演習情報の登録処理を行う。
'	 概要	：
'		<<表示>>
'	・無し
'
'	修正:
'################################################
'-->

main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim UserID, RouteType
	UserID = Request("UserID")
	RouteType = Request("RouteType")
	Dim Query, Content
	Query = "exec SPV選択可能会社選択解除生徒 '" & GB_SystemCD & "','" & EnshuCD & "', '" & UserID & "'"
	Set Content = OpenQuery(Query)

	Response.Redirect("fm_enshu_view_user.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType)

End Sub
%>