<% ' ' ' %> <% main() Sub main() Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = Request("PageType") Dim ii Dim Query, Content Dim SakujyoMailCD, SakujyoMailCDs Dim Mode Mode = Request("Mode") Dim MailCD SakujyoMailCD = Request("SakujyoMailCD") SakujyoMailCDs = Split(SakujyoMailCD, ",") For ii = 0 To Ubound(SakujyoMailCDs) MailCD = Trim(SakujyoMailCDs(ii)) If Mode = "Sakujo" Then Query = "exec SPNメール復元 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'" Else Query = "exec SPNメール削除 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'" End If 'Response.Write(Query) 'Exit Sub Set Content = OpenQuery(Query) Next '############################################### 4.更新データをビューで表示 Response.Redirect("fn_mailsakusei_ichiran.asp?PageType=" & PageType & "&RouteType=" & RouteType) End Sub %>