スポーツに関わる女性を支援する会
NPO(特定非営利活動)法人ジュース(JWS)
新着情報
<%
Else
%>
Japanese Association for Women in Sport (JWS)
Asian conference on Women and Sport
<%
'----------------------------------------------------------------------
'新着情報のみを取得する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) AND ((tblNews.fldNewsSubChk)=True)"
sql = sql & " AND ((tblNews.fldNewsTitle" & language_type & ") Is Not Null) AND ((tblNews.fldNewsType)=" & i & "))"
sql = sql & " ORDER BY tblNews.fldNewsChange" & language_type & " 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_change = RS("fldNewsChange" & language_type)
'Response.Write "cnt = " & RS("fldNewsChange" & language_type)
%>
<%
if (language_type= "J" and RS("fldNewsTextJ")<>"") or (language_type= "E" and RS("fldNewsTextE")<>"") then
%>
<%=news_change%> <%=RS("fldOrganizationName" & language_type)%>
<%
end if
RS.movenext
cnt = cnt + 1
loop 'ここで終り
Else
if language_type= "J" Then
Response.Write ""'新着情報がなければ表示
Else
Response.Write ""'新着情報がなければ表示
End if
End if
%>
<%
If language_type = "J" Then '日本語だったら
%>
What's New
<%
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 & "
"
%>
<%=type_name%>
<%
If cnt = 1 or news_change = new_date Then
new_date = news_change
%>
<%
End if
%>
&LanguageType=<%=language_type%>"><%=RS("fldNewsTitle" & language_type)%>
<%
End if '終り
RS.Close
Set RS=Nothing
Next
DB.Close
Set DB=Nothing
%>
<%
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 '日本語だったら
%>
