<%
'
'
'
%>
<%
main()
Sub main()
Dim AutoReload
AutoReload = Request("AutoReload")
Dim bCheck
bCheck = 0
Dim Query, Content
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
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 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
%>
<% = AppTitle %>
<% = MailCheckInterval * 1000 %><% Else %>1140000<% End If %>);">
