
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：メール作成処理
'   作成日：2002/9/18
'   作成者：山崎
'   目的　：メールの作成処理をする。
'   概要  ：
'    <<表示>>
'	・無し
'	
'################################################
'-->
'
'
%>

<%     
main()

Sub main()

	Dim RouteType
	RouteType = Request("RouteType")

	Dim PageType
	PageType = Request("PageType")

	Dim Mode
	Mode = Request("Mode")

	Dim ShowDel
	ShowDel = Request("ShowDel")


	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 = ""
		Query = Query & "  "
		Query = Query & " SELECT 削除フラグ "
		Query = Query & " FROM TTX文書F "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' AND 文書CD = '" & MailCD & "' "
		Query = Query & " 	AND 送受信区分 = '" & Left(PageType, 1) & "' "
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			Query = ""
			Query = Query & "  "
			Query = Query & " UPDATE TTX文書F "
			If Content.Fields("削除フラグ") = 1 Then
				Query = Query & " SET 削除フラグ = 0 "
			Else
				Query = Query & " SET 削除フラグ = 1 "
			End If
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' AND 文書CD = '" & MailCD & "' "
			Query = Query & " 	AND 送受信区分 = '" & Left(PageType, 1) & "' "
'Response.Write(Query)
'Exit Sub
			Set Content = OpenQuery(Query)
		End If
	Next

'###############################################   ４．更新データをビューで表示
	Response.Redirect("fn_jyuhasshinbunsyo.asp?RouteType=" & RouteType & "&PageType=" & PageType & "&Mode=" & Mode & "&ShowDel=" & ShowDel)

End Sub
%>