%
'
%>
<%
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)
%>
<% = HtmlHeader("") %>
<% = PrintScriptX %>
対象演習名 |
<% = EnshuName %> |
演習コード |
<% = EnshuCD %> |
|
|
<% If TmpEnshuKubun = "P" Then %>
学生氏名
<% Else %>
会社コード
<% End If %>
|
<% If TmpEnshuKubun = "P" Then %>
<% = GakuseiShimei %>
<% Else %>
<% = KaisyaCD %>
<% End If %>
|
会社名称
|
<% = ConvKaisyaMeisyoDx(EnshuCD, KaisyaCD) %>
|
宛先 |
<% = HyojiyoAtesakiMei %> |
件名 |
<% = Kenmei %> |
<% = Naiyo %> |
|
|
|
|
<% = HtmlFooter %>
<%
End Sub
%>