
<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	：生徒選択会社登録
'	作成日	：2009/4/24
'	作成者	：小野
'	目的	：模擬実践演習における生徒と会社の結び付けを行う。
'	概要	：
'################################################
'-->

main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim EnshuCD
	EnshuCD = Request("EnshuCD")

	Dim UserID, RouteType
	UserID = Request("UserID")
	RouteType = Request("RouteType")


	Dim Query, Content


	Dim SendValue, TmpValue1, TmpValue2 
	SendValue = Request("SendValue")	'スプレッドシート引数
	TmpValue1 = Split(SendValue, ";")	'行で分解


	Dim ii, jj


	'行ループ
	For ii = 0 To UBound(TmpValue1) - 1

		TmpValue2 = Split(TmpValue1(ii), ",")	'列で分解

		'半角カンマ・セミコロンを代替文字から元に戻す処理
		For jj = 0 To UBound(TmpValue2) - 1
			TmpValue2(jj) = Replace("" & TmpValue2(jj), "CommammoC", ",")
			TmpValue2(jj) = Replace("" & TmpValue2(jj), "SemicolonolocimeS", ";")
		Next

		'未選択項目はNULL文字にする
		If TmpValue2(2) = "＜＜＜会社は選択されていません＞＞＞" Then
			TmpValue2(2) = ""
		End If

		'ユーザーID名フォームの内容と比較し変更されていれば実行
		If TmpValue2(2) <> Request(TmpValue2(0)) Then

			'選択させる
			If TmpValue2(2) <> "" Then
				Query = "exec SPV演習履歴登録 '" & GB_SystemCD & "','" & EnshuCD & "', '" & ConvRevKaisyaMeisyoDx(EnshuCD, TmpValue2(2)) & "', '" & TmpValue2(0) & "'"
				Set Content = OpenQuery(Query)

			'NULL文字なら選択解除
			Else
				Query = "exec SPV選択可能会社選択解除生徒 '" & GB_SystemCD & "','" & EnshuCD & "', '" & TmpValue2(0) & "'"
				Set Content = OpenQuery(Query)

			End If

		End If

	Next

	Response.Write(SubmitHystoryBack("fm_enshu_user.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType & "&Message=更新された内容を保存しました。"))
'	Response.Redirect("fm_enshu_user.asp?EnshuCD=" & EnshuCD & "&RouteType=" & RouteType)

End Sub
%>