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

<%
'<!--
'################################################
'	 名称	:メール作成処理
'	 作成日:2002/9/18
'	 作成者:山崎
'	 目的 :メールの作成処理をする。
'	 概要	:
'		<<表示>>
'	・無し
'
'################################################
'-->
'
'
%>

<%
main()

Sub main()

	Dim MailCD
	Dim TorihikisakiCD, Sakuseibi, Kenmei, Naiyo
	Dim AtesakiCD

	Dim Query, Content

	Dim RouteType
	RouteType = Request("RouteType")

'###############################################	 1.データの引継ぎ

	'ヘッダ部
	TorihikisakiCD = Request("TorihikisakiCD")
	Sakuseibi = Request("Sakuseibi")
	Kenmei = Request("Kenmei")
	Naiyo = Request("Naiyo")
	Naiyo = Replace(Naiyo, vbCrLf, "<br>")
	TorihikisakiCD = Replace(TorihikisakiCD, ", ", ",")

	'送信元メール作成
	Query = "exec SPNメール作成 "
	Query = Query & "  '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD
	Query = Query & ", '" & KaisyaCD & "'"		'会社CD
	Query = Query & ", ''"
	Query = Query & ", '" & Sakuseibi & "'"			'作成日
	Query = Query & ", 'S'"							'送受信フラグ
	Query = Query & ", '" & KaisyaCD & "'"			'作成会社CD
	Query = Query & ", '" & TorihikisakiCD & "'"		'表示用宛先CD
	Query = Query & ", '" & Kenmei	& "'"			'件名
	Query = Query & ", '" & Naiyo	& "'"				'内容
	Query = Query & ", '" & GakuseiNo & "'"		'学生番号
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		MailCD = Content.Fields(0)	'送信元メールCDを取得する(開封通知のためのリレーション情報)(090706小野)
	End If

	'受信先メール作成
	Dim tmps
	tmps = Split(TorihikisakiCD, ",")
	Dim i
	For i = 0 To UBound(tmps)
		AtesakiCD = tmps(i)
		Query = "exec SPNメール作成2 "
		Query = Query & "  '" & GB_SystemCD & "', '" & EnshuCD & "'"			'演習CD
		Query = Query & ", '" & AtesakiCD & "'"		'会社CD
		Query = Query & ", ''"
		Query = Query & ", " & MailCD	'送信元メールCD(開封通知のためのリレーション情報)(090706小野)
		Query = Query & ", '" & Sakuseibi & "'"			'作成日
		Query = Query & ", 'R'"							'送受信フラグ
		Query = Query & ", '" & KaisyaCD & "'"			'作成会社CD
		Query = Query & ", '" & TorihikisakiCD & "'"		'表示用宛先CD
		Query = Query & ", '" & Kenmei	& "'"			'件名
		Query = Query & ", '" & Naiyo	& "'"				'内容
		'Query = Query & ",'" & GakuseiNo & "'"		'学生番号
		'061106
		Query = Query & ",'" & AtesakiCD & "'"		'学生番号
	 	Set Content = OpenQuery(Query)
	Next

'	While Not Content Is Nothing
'		If Content.Fields.Count > 0 Then
'			MailCD = Content.Fields(0)
'		End If
'	 	Set Content = Content.NextRecordset
'	Wend


'###############################################	 4.更新データをビューで表示
	Response.Redirect("fn_mailsakusei_view.asp?mailCD=" & MailCD & "&RouteType=" & RouteType)
	Response.Write(Query)

End Sub
%>