<!-- #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)
Dim Page
Page = Request("Page")
%>
<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;
-->
</SCRIPT>
<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg != 0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<input type="hidden" name="SortMode" value="<% = SortMode %>">
<input type="hidden" name="Keyword" value="<% = Keyword %>">
<input type="hidden" name="HyojiFlg" value="<%= HyojiFlg %>">
<%
Response.Write(HtmlDesign(1))
Response.Write(HttpL1(4))
Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "送信メール一覧", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "&Page=" & Page & "')", "送信メール", "", "", "", "", "", "", ""))
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
'Response.Write(HttpL3_1("再表示", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "')", "印刷", "PrintoutRealInline('" & Replace(Request.ServerVariables("URL"), ".asp", "_print.asp") & "?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "');", "", "", "", "", "", ""))
Response.Write(HttpL3_1("削除", "DeleteCheck();", "印刷", "PrintoutRealInline('" & Replace(Request.ServerVariables("URL"), ".asp", "_print.asp") & "?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&MailCD=" & MailCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "');", "", "", "", "", "", ""))
Response.Write(HttpL3_2("一覧に戻る", "tblbtn('fm_mail_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "&SortMode=" & SortMode & "&Keyword=" & Keyword & "&Page=" & Page & "')", "", "", "", "", "", "", "", ""))
Response.Write(HttpL4("送信メール", ""))
Response.Write(HttpL5(""))
%>
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="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>
</div>
</form>
<!--印刷用フレーム-->
<IFRAME name="PrintoutInline" SRC="" WIDTH="0" HEIGHT="0" FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0 NORESIZE SCROLLING=no tabindex="-1"></IFRAME>
</body>
<SCRIPT LANGUAGE="JavaScript">
function DeleteCheck()
{
var flag;
flag = confirm("削除してよろしいですか？ ");
if (flag)
{
tblbtn("fm_mail_bin.asp?Action=Delete&EnshuCD=<% = EnshuCD %>&KaisyaCD=<% = KaisyaCD %>&MailCD=<% = MailCD %>&SortMode=<% = SortMode %>&Keyword=<% = Keyword %>&HyojiFlg=<% = HyojiFlg %>");
return true;
}
else
{
return false;
}
}
</script>
<% = HtmlFooter %>
</html>
<%
End Sub
%>