
<!-- #include virtual="/sj4web/include.asp" -->

<%
'<!--
'################################################
'	 名称	：メール作成処理
'	 作成日：2002/9/18
'	 作成者：山崎
'	 目的　：メールの作成処理をする。
'	 概要	：
'		<<表示>>
'	・無し
'
'################################################
'-->
'
'
%>

<%
main()

Sub main()

	Dim RouteType
	RouteType = Request("RouteType")
	Dim PageType
	PageType = Request("PageType")


	Dim ii
	Dim Query, Content
	Dim SakujyoMailCD, SakujyoMailCDs
	Dim MailCD
	SakujyoMailCD = Request("SakujyoMailCD")

	SakujyoMailCDs = Split(SakujyoMailCD, ",")

	For ii = 0 To Ubound(SakujyoMailCDs)
		MailCD = Trim(SakujyoMailCDs(ii))
		Query = "exec SPNメール削除 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'"
		Set Content = OpenQuery(Query)
	Next




'###############################################	 ４．更新データをビューで表示
	Response.Redirect("fn_mailsakusei_ichiran.asp?PageType=" & PageType & "&RouteType=" & RouteType)

End Sub
%>