
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：メール作成処理
'   作成日：2002/9/18
'   作成者：山崎
'   目的　：メールの作成処理をする。
'   概要  ：
'    <<表示>>
'	・無し
'	
'################################################
'-->
'
'
%>

<%     
main()

Sub main()

	Dim Query, Content
	Dim SendValue, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, PageType, RouteType
	SendValue = Request("SendValue")
	PageType = Request("PageType")
	RouteType = Request("RouteType")

	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 & "'"		'会社CD		
	Query = Query & ",'" & BunsyoNaiyoCD & "'"

	Set Content = OpenQuery(Query)		

'###############################################   ４．更新データをビューで表示
	Response.Redirect("fn_jyuhasshinbunsyo.asp?RouteType=" & RouteType & "&PageType=" & PageType)
 
End Sub
%>