%
'
%>
<%
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 & "
")
'Response.Write(UserID & "
")
'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
%>