|
| |
<%
Dim strSQL
Dim objRS
Dim iRecCount
Dim strCMT_update
Dim strLink_update
Dim dDTE_update
Dim bFLG_display
Dim objCon
Dim iWork
Dim strCMT_info
On Error Resume Next
Rem ----- コネクションオブジェクトの生成
Set objCon = Server.CreateObject("ADODB.Connection")
%>
<%
Rem -----コネクションのオープン
objCon.Open
Rem レコードセットオブジェクトの生成
Set objRS = Server.CreateObject("ADODB.Recordset")
Rem 更新情報取得
strSQL = "SELECT * FROM INFORMATION ORDER BY UPD_Info DESC"
Rem レコードセットのオープン
objRS.Open strSQL, objCon, 3
rem レコードカウンタ初期化
iRecCount=0
Rem データ取得
Do Until objRS.EOF
strCMT_info = ChgStrToCd( objRS.Fields("CMT_info").value)
bFLG_display = objRS.Fields("FLG_display").Value
dDTE_update = objRS.Fields("UPD_info").Value
dDTE_update = left( dDTE_update, 10 )
iRecCount=iRecCount + 1
objRS.MoveNext()
%>
|
|
<% IF bFLG_display = true THEN %>
|
|
 2/6,3/7浜名湖環境講座・エコワークショップ参加者募集
第１回 2月6日（土） 講座・意見交換
第２回 3月7（日） エコ探訪調査
詳細はこちらをご覧ください。
また、新たに活動やイベントを行う場合、記入フォームに所定の内容を記載して、事務局までお送り下さい。 |
<% END IF %>
|
|
<%
if iRecCount >= 3 then
exit do
end if
loop
objRS.close
%>
|
|
はまなこ環境ネットワークではＰＤＦファイルが使用されております。
ＰＤＦファイルをご覧になるには Adobe Acrobat Reader が必要となります。
お持ちでない方は左のリンク先からダウンロードして下さい。 |
|
|
|
