<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	名称	：送信メール削除処理
'	作成日	：2011/11/24
'	作成者	：小野
'################################################
'-->
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim HyojiFlg
	HyojiFlg = Request("HyojiFlg")

	Dim Query
	Dim Content

	Dim SortMode
	SortMode = Request("SortMode")

	Dim Keyword
	Keyword = Request("Keyword")

	Dim MailCD
	MailCD = Request("MailCD")

	Dim KaisyaCD
	KaisyaCD = Request("KaisyaCD")

	Dim Action
	Action = Request("Action")

	If Action = "Delete" Then
		Query = "exec SPNメール完全削除 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'"
'Response.Write(Query)
'Exit Sub
		Set Content = OpenQuery(Query)
	End If

	Response.Redirect("fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "")



End Sub
%>