<% ' ' ' %> <% main() Sub main() Dim Query, Content Dim SendValue, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, PageType SendValue = Request("SendValue") PageType = Request("PageType") Dim tmps tmps = Split(SendValue , ",") SakuseiKaisyaCD = tmps(0) BunsyoSyuruiCD = tmps(1) BunsyoNaiyoCD = tmps(2) Query = "exec SPN受発信文書削除" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" '演習CD Query = Query & ",'" & KaisyaCD & "'" '会社CD Query = Query & ",'" & SakuseiKaisyaCD & "'" '会社CD Query = Query & ",'" & BunsyoSyuruiCD & "'" Query = Query & ",'" & BunsyoNaiyoCD & "'" Response.WRite(QUery) Set Content = OpenQuery(Query) '############################################### 4.更新データをビューで表示 Response.Redirect("fn_jyuhasshinbunsyo.asp?PageType=" & PageType) End Sub %>