<%@ LANGUAGE="vbscript" %> <% language_type=Request("LanguageType") 'E/J 'Response.Write "language_type = " & language_type & "
" If language_type = "" Then language_type = "J" End if '---------------------------------------------------------------------- 'Connectionｵﾌﾞｼﾞｪｸﾄの設定 '---------------------------------------------------------------------- 'Connectionｵﾌﾞｼﾞｪｸﾄの作成 Set DB = Server.CreateObject("ADODB.Connection") 'ﾃﾞｰﾀﾍﾞｰｽを開く DB.Open "DSN=jws" %>

Topics

<% ' %> <% '---------------------------------------------------------------------- '検索条件を取得するRecordsetを作成 '---------------------------------------------------------------------- 'SQL文の作成 sql = "SELECT DISTINCT tblOrganization.fldOrganizationID, tblOrganization.fldOrganizationSum" & language_type sql = sql & " FROM tblNews INNER JOIN tblOrganization ON tblNews.fldNewsOrganization = tblOrganization.fldOrganizationID" sql = sql & " ORDER BY tblOrganization.fldOrganizationSum" & language_type & ";" 'Response.Write sql 'Recordsetｵﾌﾞｼﾞｪｸﾄを作成 Set RS = Server.CreateObject("ADODB.Recordset") 'SQL文の実行 RS.Open sql, DB ,adOpenKeyset, adLockReadOnly'キーセットカーソル、読取り専用 cnt = RS.RecordCount if cnt > 0 then '該当するレコードがあったら %>

<% if language_type="J" Then %> 発信元： <% Else %> From： <% End if %> <% Do until RS.EOF '発信元を一覧する if RS("fldOrganizationSum" & language_type) <>"" Then '英語発信元がカラじゃなかったら %> "><%=RS("fldOrganizationSum" & language_type)%> <% End if RS.movenext loop 'ここで終り %> <% End if %> <% if language_type="J" Then %> 更新日： <% Else %> Uploaded： year: <% End if %> <% year_txt = Year(date) '今年 For i = 1999 to year_txt %> <%=i%> <% Next %> <% if language_type="J" Then %> 年 <% Else %> month: <% End if %> <% For i = 1 to 12 %> <%=i%> <% Next %> <% if language_type="J" Then %> 月 <% Else %> <% End if %> <% ' For i = 1 to 31 %> <% 'Next if language_type="J" Then %> 〜 <% Else %> 〜 year: <% End if %> <% year_txt = Year(date) '今年 For i = 1999 to year_txt %> <%=i%> <% Next %> <% if language_type="J" Then %> 年 <% Else %> month: <% End if %> <% For i = 1 to 12 %> <%=i%> <% Next %> <% if language_type="J" Then %> 月 <% Else %> <% End if %> <% 'For i = 1 to 31 %> <% 'Next %> <% if language_type="J" Then %> キーワード： <% Else %> Keywords： <% End if %> 　 <% if language_type="J" Then %> 　 <% Else %> 　 <% End if %>