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

<%
'<!--
'################################################
'	名称	:同時同業ユーザーデータコピー
'	作成日	:2009/5/19
'	作成者	:小野
'	目的	:同時同業ユーザーデータのコピーを行う。
'	概要	:
'################################################
'-->
%>
<%
main()
Sub main()

	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content

	Dim EnshuCD
	Dim EnshuName
	EnshuCD = Request("EnshuCD")
	Dim UserID
	UserID = Request("UserID")
	Dim CopyMoto
	CopyMoto = Request("CopyMoto")

'Response.Write(CopyMoto & "<BR>")
'Response.Write(UserID & "<BR>")
'Exit Sub

	If UserID <> CopyMoto Then
		Query = "exec SPM同時同業ユーザーデータコピー"
		Query = Query & "  '" & GB_SystemCD & "' ,'" & EnshuCD & "'"	'演習CD
		Query = Query & ", '" & UserID & "'"	'学生番号
		Query = Query & ", '" & CopyMoto & "'"	'コピー元学生番号
		Set Content = OpenQuery(Query)
	End If

	Response.Redirect("fm_enshucontrol03.asp?EnshuCD=" & EnshuCD & "&CopyMoto=" & CopyMoto & "&UserID=" & UserID)


End Sub
%>