<% ' %> <% main() Sub main() Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = Request("PageType") Dim ii Dim Query, Content Dim SakujyoFAXCD, SakujyoFAXCDs, SakujyoFAXCDs2 Dim FAXCD Dim SakuseiKaisyaCD SakujyoFAXCD = Request("SakujyoFAXCD") SakuseiKaisyaCD = Request("SakuseiKaisyaCD") SakujyoFAXCDs = Split(SakujyoFAXCD, ",") 'If 0=1 Then For ii = 0 To Ubound(SakujyoFAXCDs) FAXCD = Trim(SakujyoFAXCDs(ii)) SakujyoFAXCDs2 = Split(FAXCD, "::::::::::::") 'FAXCDと作成会社CDに分割 Query = "exec SPNFAX削除 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & SakujyoFAXCDs2(1) & "', '" & SakujyoFAXCDs2(0) & "'" Set Content = OpenQuery(Query) Next 'End If 'Response.Write(SakujyoFAXCD) '############################################### 4.更新データをビューで表示 Response.Redirect("fn_fax_ichiran.asp?PageType=" & PageType & "&RouteType=" & RouteType) End Sub %>