<%@ LANGUAGE="vbscript" %> NEWS <% news_id=Request("NewsID") language_type=Request("LanguageType") if language_type = "" then language_type = "J" '←Jであった。テストで変えてある。language_typeが英語の時、それが表示できない。なぜ? end if '---------------------------------------------------------------------- 'Connectionオブジェクトの設定 '---------------------------------------------------------------------- 'Connectionオブジェクトの作成 Set DB = Server.CreateObject("ADODB.Connection") 'データベースを開く DB.Open "DSN=jws" '---------------------------------------------------------------------- 'ニュースを取得するRecordsetを作成 '---------------------------------------------------------------------- 'SQL文の作成 sql = "SELECT tblNews.*, tblOrganization.*, tblNews.fldNewsSubChk" sql = sql & " FROM tblNews INNER JOIN tblOrganization ON tblNews.fldNewsOrganization = tblOrganization.fldOrganizationID" sql = sql & " WHERE (((tblNews.fldNewsID)=" & news_id & ") AND ((tblNews.fldNewsSubChk)=True));" 'Recordsetオブジェクトを作成 Set RS = Server.CreateObject("ADODB.Recordset") 'SQL文の実行 RS.Open sql, DB , adOpenKeyset, adLockReadOnly'キーセットカーソル、読取り専用 cnt = RS.RecordCount if cnt > 0 then '該当するレコードがあったら %> <% item_txt = RS("fldOrganizationName" & language_type) if item_txt <> "" Then '発信元名がカラじゃなかったら If language_type = "J" Then %>

<%=RS("fldNewsTitle" & language_type)%>
発信元:<%=item_txt%>
<% Else 'それ以外、つまり英語だったら %> From:<%=item_txt%>
<% End if 'end ifが続いてもいいの? End if item_txt = RS("fldOrganizationAddress" & language_type) if item_txt <> "" Then '住所がカラじゃなかったら If language_type = "J" Then %> 住所:<%=item_txt%>
<% Else 'それ以外、つまり英語だったら %> Address:<%=item_txt%>
<% End if 'end ifが続いてもいいの? End if item_txt = RS("fldOrganizationTel") '電話番号は日英共通のdataだが、表示の呼び方が異なる。language_typeによって指定できないが。どうすればよい?? if item_txt <> "" Then '電話番号がカラじゃなかったら If language_type = "J" Then '日本語だったら %> 電話:<%=item_txt%>
<% Else 'それ以外、つまり英語だったら %> Phone:<%=item_txt%>
<% End if 'end ifが続いてもいいの? End if item_txt = RS("fldOrganizationFax") if item_txt <> "" Then 'Faxがカラじゃなかったら 日英共通 %> Fax:<%=item_txt%>
<% End if item_txt = RS("fldOrganizationEmail") if item_txt <> "" Then '電子メールがカラじゃなかったら If language_type = "J" Then '日本語だったら %> 電子メール:<%=item_txt%>
<% Else 'それ以外、つまり英語だったら %> E-mail:<%=item_txt%>
<% End if 'end ifが続いてもいいの? End if item_txt = RS("fldOrganizationUrl") if item_txt <> "" Then 'URLがカラじゃなかったら 日英共通 %> URL:<%=item_txt%>
<% End if 'If language_type = "J" Then '日本語だったら %> <% 'Else 'それ以外、つまり英語だったら %> <% 'End if %>

<%=RS("fldNewsText" & language_type)%>
<% ' ' ' ' ' %> <% End if %>