<%
'
'
'
%>
<%
main()
Sub main()
Dim AutoReload
AutoReload = Request("AutoReload")
Dim bCheck
bCheck = 0
Dim Query, Content
If PackageMode <> 1 Then
Query = "exec SPN受信文書一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then
bCheck = 1
Exit Do
End If
Content.MoveNext
Loop
End If
If bCheck = 0 Then
Query = "exec SPNメール受信一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then
bCheck = 1
Exit Do
End If
Content.MoveNext
Loop
End If
If bCheck = 0 And PackageMode <> 1 Then
If Tvvariable > 0 Then
Query = "exec SPNFAX一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', 'R'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If Content.Fields("削除フラグ") = 0 And Content.Fields("開封フラグ") = 0 Then
bCheck = 1
Exit Do
End If
Content.MoveNext
Loop
End If
End If
'生徒単位のメール送信拒否設定を取得（220610小野）
Dim MailSendKyohi
Query = "exec SPV演習履歴取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GB_GakuseiNo & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
MailSendKyohi = "" & Content.Fields("メール送信拒否")
End If
%>
<% = AppTitle %>
<% = MailCheckInterval * 1000 %><% Else %>1140000<% End If %>);">
<%
'spbtn_mail_n.gif・・・受発信文書
'spbtn_mailblk.gif・・・受発信文書（点滅）
'spbtn_mail.gif・・・メール（点滅）
'spbtn_mail_blink.gif・・・メール（点滅）
%>
<% If PackageMode = 1 Then %>
<% If bCheck = 1 Then %>
