<%@ LANGUAGE="vbscript" %> Events <% '---------------------------------------------------------------------- 'Connectionオブジェクトの設定 '---------------------------------------------------------------------- 'Connectionオブジェクトの作成 Set DB = Server.CreateObject("ADODB.Connection") 'データベースを開く DB.Open "DSN=jws" '--------------------------------------------------------------------------------- '変数に入れる '--------------------------------------------------------------------------------- language_type = Request("LanguageType") If language_type="" Then language_type = "J" End if events_type=Request("EventsType") if events_type="" then events_type="new" end if '---------------------------------------------------------------------- 'リストを取得するRecordsetを作成 '---------------------------------------------------------------------- 'SQL文の作成 sql = "SELECT tblNews.*, tblOrganization.fldOrganizationNameJ, tblOrganization.fldOrganizationNameE" sql = sql & " FROM tblNews INNER JOIN tblOrganization ON tblNews.fldNewsOrganization = tblOrganization.fldOrganizationID" if events_type="new" then sql = sql & " WHERE (((tblNews.fldNewsEventsChk)=true) And ((tblNews.fldNewsEventsFinish)>=#" & date & "#))" sql = sql & " ORDER BY tblNews.fldNewsEventsStart ASC; " else sql = sql & " WHERE (((tblNews.fldNewsEventsChk)=true) And ((tblNews.fldNewsEventsFinish)<=#" & date & "#))" sql = sql & " ORDER BY tblNews.fldNewsEventsStart DESC; " end if 'Response.Write sql %>
 EVENTS
<% if events_type="new" then if language_type="J" then title_txt=" これからのイベント" else title_txt="Upcoming Events" end if else if language_type="J" then title_txt=" 過去のイベント" else title_txt="Past Events" end if end if %>

<%=title_txt%>

<% 'Response.Write sql & "
" 'On Error resume next 'Recordsetオブジェクトを作成 Set RS = Server.CreateObject("ADODB.Recordset") 'SQL文の実行 RS.Open sql, DB ,adOpenKeyset, adLockReadOnly'キーセットカーソル、読取り専用 item_count = RS.RecordCount 'Response.Write "item_count = " & item_count & "
" If item_count > 0 Then 'イベントがあったらテーブルが開始される %>
<% RS.MoveFirst Do until RS.EOF If RS("fldNewsChange" & language_type) <> "" Then 'InfoDateになってたのを変えた date_txt = RS("fldNewsChange" & language_type) 'InfoDateになってたのを変えた Else date_txt = "      " End if %> <% if events_type="new" then %> <% end if %> <% RS.MoveNext Loop %>  
 <%=RS("fldNewsEventsStart")%>
 〜<%=RS("fldNewsEventsFinish")%>
&LanguageType=<%=language_type%>" target="blank"><%=RS("fldNewsTitle" & language_type)%>
<%=LEFT(RS("fldNewsText" & language_type),50)%>……
<% Else %>  これから開催されるイベントは、現在のところありません。 <% '該当データなし End if RS.Close Set RS=Nothing DB.Close Set DB=Nothing %> <% if events_type="old" then next_type="new" if language_type="J" then title_txt="これからのイベント" else title_txt="Upcoming Events" end if else next_type="old" if language_type="J" then title_txt="過去のイベント" else title_txt="Past Events" end if end if %>

 <%=title_txt%>