
<!-- #include file="./include.asp" -->

<%
'<!-- 
'################################################
'	名称	：メッセージデータベース処理
'	作成日	：2008/10/30
'	作成者	：小野
'	概要	：
'	修正変更：
'################################################
'-->
'

main()

Sub main()

	Dim Query
	Dim Content

	Dim TmpEnshuCD
	TmpEnshuCD = Request("TmpEnshuCD")
	Dim TmpGroupCD
	TmpGroupCD = Request("TmpGroupCD")

	Dim SendAdmin
	SendAdmin = Request("SendAdmin")

	Dim Title
	Title = Request("Title")
	Dim Message
	Message = Request("Message")
	Message = Replace(Message, vbCrLf, "<BR>")

	Dim SendValue
	SendValue = Request("SendValue")
	Dim AllSend
	AllSend = Request("AllSend")


	Dim RecvKubun
	If MES_Admin > 0 Then
		RecvKubun = "0"
	Else
		RecvKubun = SendAdmin
	End If


	'送信レコード作成
	Dim SendMsgSeq
	SendMsgSeq = ""
	Query = "exec SPTメッセージ送信 '" & MES_SystemCD & "', '" & MES_AppCD & "', '" & MES_DBName & "'"
	Query = Query & ", " & MES_Admin
	Query = Query & ", '" & MES_User & "'"
	Query = Query & ", '" & Title & "'"
	Query = Query & ", '" & Message & "'"
	Query = Query & ", '" & TmpEnshuCD & "'"
	Query = Query & ", '" & TmpGroupCD & "'"
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		SendMsgSeq = "" & Content.Fields(0)
	End If



	If SendMsgSeq <> "" Then

		'管理者送信時の受信レコード作成
		If MES_Admin > 0 Then

			Dim UserIDs
			If AllSend = "GO" Then
				ReDim UserIDs(0)
				Set Content = GetUserList(TmpEnshuCD, TmpGroupCD)
				Do While Not(Content.BOF Or Content.EOF)
					ReDim PreServe UserIDs(UBound(UserIDs) + 1)
					UserIDs(UBound(UserIDs)) = Content.Fields("ユーザーID")
					Content.MoveNext
				Loop
			Else
				UserIDs = Split(SendValue,",")
			End If

			Dim ii
			For ii = 0 To UBound(UserIDs)
				If UserIDs(ii) <> "" Then
					Query = "exec SPTメッセージ受信 '" & MES_SystemCD & "', '" & MES_AppCD & "', '" & MES_DBName & "'"
					Query = Query & ", " & RecvKubun			'ユーザー区分
					Query = Query & ", '" & UserIDs(ii) & "'"	'ユーザーID
					Query = Query & ", " & MES_Admin			'送信ユーザー区分
					Query = Query & ", '" & MES_User & "'"		'送信ユーザーID
					Query = Query & ", " & SendMsgSeq			'メッセージSeq
'Response.Write(Query)
'Exit Sub
					Set Content = OpenQuery(Query)
				End If
			Next

		'ユーザー送信時の受信レコード作成
		Else

			Query = "exec SPTメッセージ受信 '" & MES_SystemCD & "', '" & MES_AppCD & "', '" & MES_DBName & "'"
			Query = Query & ", " & RecvKubun			'ユーザー区分
			If RecvKubun = 3 Then
				Query = Query & ", '" & MES_Group & "'"	'グループ管理者は演習CD
			ElseIf RecvKubun = 2 Then
				Query = Query & ", '" & MES_Enshu & "'"	'演習管理者は演習CD
			Else
				Query = Query & ", ''"					'運用管理者はNULL
			End If
			Query = Query & ", " & MES_Admin			'送信ユーザー区分
			Query = Query & ", '" & MES_User & "'"		'送信ユーザーID
			Query = Query & ", " & SendMsgSeq			'メッセージSeq
'Response.Write(Query)
'Exit Sub
			Set Content = OpenQuery(Query)

		End If

	End If


	Response.Redirect("message_view.asp?Mode=Send&Seq=" & SendMsgSeq)


End Sub
%>