<% ' %> <% 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 %>