<!-- #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 %>