<%
'
'
'
%>
<%
main()
Sub main()
Dim Query
Dim Content
Dim Content2
'最も古い未読メッセージの受信Seqを取得
Dim Midoku
Midoku = 0
Query = "exec SPLメッセージ受信一覧 '" & MES_SystemCD & "', '" & MES_AppCD & "', '" & MES_DBName & "'"
Query = Query & ", " & MES_Admin
Query = Query & ", '" & MES_User & "'"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF Or Content.EOF)
If "" & Content.Fields("未読フラグ") = "1" Then
Midoku = Content.Fields("受信Seq")
End If
Content.MoveNext
Loop
%>
<% = HtmlHeader("") %>
0 Then
Response.Write(" onClick=""tblbtntop('message_view.asp?Mode=Recv&Seq=" & Midoku & "');"" style=""cursor:pointer;"">")
Else
Response.Write(">")
End If
%>
