<% '---------------------------------------------------------------------- '更新日の取得 '---------------------------------------------------------------------- 'SQL文の作成 sql = "SELECT tblNews.fldNewsChange" & language_type sql = sql & " FROM tblNews" sql = sql & " ORDER BY tblNews.fldNewsChange" & language_type & " DESC;" 'Response.Write sql 'Recordsetｵﾌﾞｼﾞｪｸﾄを作成 Set RSupdate = Server.CreateObject("ADODB.Recordset") 'SQL文の実行 RSupdate.Open sql, DB ,adOpenKeyset, adLockReadOnly'キーセットカーソル、読取り専用 cnt = RSupdate.RecordCount 'Response.Write "cnt = " & cnt if cnt > 0 then '該当するレコードがあったら RSupdate.MoveFirst 'do while up_date <> "" up_date = RSupdate("fldNewsChange" & language_type ) 'RSupdate.Movenext 'loop end if RSupdate.Close set RSupdate=nothing If language_type = "J" Then '日本語だったら item_txt = "更新日" Else item_txt = "Last Updated on" 'それ以外つまり英語 End if %> <% For i = 1 to 3 Select case i 'ニュースタイプを選択 Case 1 If language_type = "J" Then '日本語だったら type_name = "JWSニュース" Else type_name = "JWS News" '英語 End if Case 2 If language_type = "J" Then '日本語だったら type_name = "国内ニュース" Else type_name = "Japan News" '英語 End if Case 3 If language_type = "J" Then '日本語だったら type_name = "海外ニュース" Else type_name = "World News" '英語 End if End select 'Response.Write "type_name = " & type_name & "
" %> <% '---------------------------------------------------------------------- '新着情報のみを取得するRecordsetを作成 '---------------------------------------------------------------------- 'SQL文の作成 sql = "SELECT tblNews.*, tblOrganization.fldOrganizationNameJ, tblOrganization.fldOrganizationNameE" sql = sql & " FROM tblNews INNER JOIN tblOrganization ON tblNews.fldNewsOrganization = tblOrganization.fldOrganizationID" sql = sql & " WHERE ((tblNews.fldNewsChk=True)" sql = sql & " AND (tblNews.fldNewsChk=True)" sql = sql & " AND (tblNews.fldNewsEventsChk=False)" sql = sql & " AND ((tblNews.fldNewsTitle" & language_type & ") Is Not Null)" sql = sql & " AND ((tblNews.fldNewsType)=" & i & "))" sql = sql & " ORDER BY tblNews.fldNewsInfoDate DESC; " 'Response.Write sql 'Recordsetｵﾌﾞｼﾞｪｸﾄを作成 Set RS = Server.CreateObject("ADODB.Recordset") 'SQL文の実行 RS.Open sql, DB ,adOpenKeyset, adLockReadOnly'キーセットカーソル、読取り専用 cnt = RS.RecordCount 'Response.Write "cnt = " & cnt if cnt > 0 then '該当するレコードがあったら '---------------------------------------------------------------------- 'ニュースを一覧表示する '---------------------------------------------------------------------- RS.MoveFirst 'Response.Write "fldNewsChange" & language_type cnt = 1 new_date = "" Do until RS.EOF '該当するニュースがなくなるまで取りにいく news_info_date = RS("fldNewsInfoDate") 'Response.Write "cnt = " & RS("fldNewsInfoDate") %> <% if (language_type= "J" and RS("fldNewsTextJ")<>"") or (language_type= "E" and RS("fldNewsTextE")<>"") then %> <% end if RS.movenext cnt = cnt + 1 loop 'ここで終り %> <% Else if language_type= "J" Then Response.Write ""'新着情報がなければ表示 Else Response.Write ""'新着情報がなければ表示 End if End if %> <% End if if i <> 3 then '海外ニュースじゃなかったら水平線を入れる %> <% RS.Close Set RS=Nothing Next DB.Close Set DB=Nothing %>

<%=item_txt%>:<%=up_date%>
<%=type_name%>
<%=news_info_date%>■	<%=RS("fldOrganizationName" & language_type)%>
	&LanguageType=<%=language_type%>" target="_blank"><%=RS("fldNewsTitle" & language_type)%>
	<% If language_type = "J" Then '日本語だったら %> 過去の<%=type_name%>へ <% Else 'それ以外つまり英語 %> Past <%=type_name%>
<% End if '終り %>
<% If language_type = "J" Then '日本語だったら %> 情報提供にご協力くださった皆様にお礼を申し上げます。 <% Else %> JWS would like to thank all the organizations and individuals for the information they provided. <% End if %> <% If language_type = "J" Then '日本語だったら %> <% Else %> Copyright(C) 1998-1999 JWS. All right reserved. <% End if %>