<!-- #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
%>