<% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query,Content Dim SakuseiKaisyaCD Dim MailCD, Sakuseibi, TorihikisakiCD, Kenmei, Naiyo, KaifuFlg, SakujyoFlg, HyojiyoAtesakiCD, HyojiyoAtesakiMei Dim PageType Dim RouteType Dim AutoFlg Dim tmps, i Dim PageType1 HyojiyoAtesakiMei = "" MailCD = Request("MailCD") TorihikisakiCD = Request("TorihikisakiCD") PageType = Request("PageType") RouteType = Request("RouteType") If MailCD <> "" Then If TorihikisakiCD = "" Then Query = "exec SPNメール取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'" Else Query = "exec SPNメール開封 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'" Set Content = OpenQuery(Query) Query = "exec SPNメール取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & MailCD & "'" End If Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then MailCD = Content.Fields("メールCD") Sakuseibi = SetTimeYYYYMMDD(Content.Fields("作成日")) SakuseiKaisyaCD = Content.Fields("作成会社CD") Kenmei = Content.Fields("件名") Naiyo = Content.Fields("内容") KaifuFlg = Content.Fields("開封フラグ") SakujyoFlg = Content.Fields("削除フラグ") tmps = split(Content.Fields("表示用宛先CD"), ",") If PageType = "RecvMail" Then HyojiyoAtesakiMei = ConvKaisyaMeisyo(Content.Fields("会社CD")) Else For i = 0 To UBound(tmps) If HyojiyoAtesakiMei <> "" Then HyojiyoAtesakiMei = HyojiyoAtesakiMei + "、" End If If UBound(tmps) = 0 Then HyojiyoAtesakiMei = HyojiyoAtesakiMei + ConvKaisyaMeisyo(tmps(i)) Else HyojiyoAtesakiMei = HyojiyoAtesakiMei + ConvKaisyaRyakuMeisyo(tmps(i)) End If Next End If End If End If PageType1 = PageType If PageType = "" Then PageType = "NewMail" PageType1 = "SendMail" End If '060207 追加 ヘッダー部分のプリント処理のため By Hamada If RouteType = "Hakushi" Then AutoFlg = -1 Else AutoFlg = 0 End If '送信前に事前印刷するフラグ ※先生による目視チェック用(151027小野) Dim PrintPreview PrintPreview = Request("PrintPreview") %> <% = HtmlHeader("") %> PrintPreview();<% End If %><% = PrintOnLoad %>" onkeydown="if(ExitFlg==2)ExitFlg=3;" bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <% = PrintScriptX %>
<% Response.Write(PrintHeader(AutoFlg, "")) %>
受信者: <% = HyojiyoAtesakiMei %> <% If PageType = "NewMail" Or PageType = "SendMail" Then %> <% Else %> <% End If %>
送信者: <% If PrintPreview = "1" Then %><% = ConvKaisyaMeisyo(KaisyaCD) %><% Else %><% = ConvKaisyaMeisyo(SakuseiKaisyaCD) %><% End If %>
送信日: <% = Sakuseibi %>
件名: <% = Kenmei %>
<% Naiyo = Replace(Naiyo, "
", vbCrLf) Naiyo = Server.HTMLEncode(Naiyo) Naiyo = Replace(Naiyo, vbCrLf, "
" & vbCrLf) Response.Write(Naiyo) %>
<% = HtmlFooter %> <% End Sub %>