<!-- #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 EnshuName
	Dim TmpEnshuKubun
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" 
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		EnshuName = Content.Fields("演習名称")
		TmpEnshuKubun = Content.Fields("演習区分")
	End If


	Dim SortMode
	SortMode = Request("SortMode")

	Dim Keyword
	Keyword = Request("Keyword")

	Dim MailCD
	MailCD = Request("MailCD")

	Dim KaisyaCD
	KaisyaCD = Request("KaisyaCD")


	Dim SakuseiKaisyaCD, Sakuseibi, TorihikisakiCD, Kenmei, Naiyo, KaifuFlg, SakujyoFlg, HyojiyoAtesakiCD, HyojiyoAtesakiMei
	HyojiyoAtesakiMei = ""
	If MailCD <> "" Then
		Query = "exec SPNメール取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			MailCD = Content.Fields("メールCD")
			Sakuseibi = Content.Fields("作成日")
			SakuseiKaisyaCD = Content.Fields("作成会社CD")
			Kenmei = Content.Fields("件名")
			Naiyo = Content.Fields("内容")
			KaifuFlg = Content.Fields("開封フラグ")
			SakujyoFlg = Content.Fields("削除フラグ")
			Dim tmps, i
			tmps = split(Content.Fields("表示用宛先CD"), ",")
			For i = 0 To UBound(tmps)
				If HyojiyoAtesakiMei <> "" Then
					HyojiyoAtesakiMei = HyojiyoAtesakiMei + ", "
				End If
				HyojiyoAtesakiMei = HyojiyoAtesakiMei + ConvKaisyaRyakuMeisyo(tmps(i))
			Next
		End If
	End If

	Dim GakuseiShimei
	GakuseiShimei = ConvKaisyaGakuseiShimei(EnshuCD, KaisyaCD)

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 1;

	//印刷余白指定(ミリ指定)
	PrintTopMargin = 20;
	PrintLeftMargin = 0;
//	PrintTopMargin = 0;
//	PrintLeftMargin = 0;

-->
</SCRIPT>

<body onload="<% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% = PrintScriptX %>

<table width="100%" border="0" cellpadding="0" cellspacing="0">
	<tr>
		<td align="center">
			<table width="1" height="1" border="0" cellspacing="5" cellpadding="15" bgcolor="#ffffff" style="border:1px solid #000000">
				<tr>
					<td align="center" background="/<% = HomeAlias %>/images/window_bk.gif">
						<table border="0" cellspacing="0" cellpadding="0">
							<tr>
								<td align="center">
									<TABLE WIDTH="1" BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%">
										<TR>
											<TD HEIGHT="30" VALIGN="BOTTOM">
												<TABLE WIDTH="100%" BORDER="1" CELLPADDING="8" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1618" STYLE="border-collapse: collapse">
													<TR ALIGN="CENTER">
														<TD bgcolor="#FFEE88" nowrap>対象演習名</TD>
														<TD nowrap><% = EnshuName %></TD>
														<TD bgcolor="#FFEE88" nowrap>演習コード</TD>
														<TD nowrap><% = EnshuCD %></TD>
													</TR>
												</TABLE>
											</TD>
										</TR>
										<TR>
											<td height="10"></td>
										</TR>
										<TR>
											<TD HEIGHT="20" VALIGN="TOP">
												<TABLE WIDTH="100%" BORDER="1" CELLPADDING="4" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFCC" CLASS="tx1618" STYLE="border-collapse: collapse">
													<tr>
														<td bgcolor="#FFEE88" nowrap>
														<% If TmpEnshuKubun = "P" Then %>
															学生氏名
														<% Else %>
															会社コード
														<% End If %>
														</td>
														<td nowrap>
														<% If TmpEnshuKubun = "P" Then %>
															<% = GakuseiShimei %>
														<% Else %>
															<% = KaisyaCD %>
														<% End If %>
														</td>
														<td bgcolor="#FFEE88" nowrap>
															会社名称
														</td>
														<td nowrap>
															<% = ConvKaisyaMeisyoDx(EnshuCD, KaisyaCD) %>
														</td>
													</tr>
													<tr>
														<td bgcolor="#FFEE88" nowrap>宛先</td>
														<td colspan="3" nowrap><% = HyojiyoAtesakiMei %></td>
													</tr>
													<tr>
														<td bgcolor="#FFEE88" nowrap>件名</td>
														<td colspan="3" nowrap><% = Kenmei %></td>
													</tr>
													<tr>
														<TD nowrap colspan="4"><% = Naiyo %></TD>
													</tr>
												</TABLE>


											</td>
										</tr>
									</table>


								</td>
<!--3x3中段右	-->
							</tr>
						</table>
					</td>
				</tr>
			</table>

		</td>
	</tr>
</table>

</body>

<% = HtmlFooter %>
</html>
<%
End Sub
%>