
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：FAX削除
'	 作成日	：2007/8/23
'	 作成者	：小野
'	 目的	：FAXの削除処理をする。
'	 概要	：
'################################################
'-->
%>

<%
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)


'###############################################	 ４．更新データをビューで表示
	Response.Redirect("fn_fax_ichiran.asp?PageType=" & PageType & "&RouteType=" & RouteType)

End Sub
%>