<%@LANGUAGE=VBScript %> <%Option Explicit%> <% Dim aryNewsList Dim intCnt Dim list_chk list_chk = 0 'ニュース情報は１ aryNewsList = getNewsList("1") %>

<% For intCnt = 0 To UBound(aryNewsList) %> <% If Cstr(aryNewsList(intCnt,5)) = "1" Then %> <% If CStr(aryNewsList(intCnt,4)) = "1" Then %> <% Else %> <% End If %> <% Else %> <% If checkEmptyString(aryNewsList(intCnt,4)) Then %> <% Else %> <% End If %> <% End If %> <% list_chk = 1 %> <% Next %> <% If list_chk = 0 Then %> <% End If %> <%= aryNewsList(intCnt,1) %> <%= aryNewsList(intCnt,2) %> <%= aryNewsList(intCnt,2) %> <%= aryNewsList(intCnt,2) %> <%= aryNewsList(intCnt,2) %> <%= P_TOP_NOTHIG_LANG %> このページのTOPへ