<% ' %> <% 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") %> <% = AppTitle %> <% 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("")) %> <% = HtmlFooter %> <% End Sub %>