はまなこ環境ネットワーク

<% 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 %> <% END IF %> <% if iRecCount >= 3 then exit do end if loop objRS.close %>


		4/27更新　浜名湖エコキッズ体験塾ｉｎ舞阪参加者募集　　　　　　　　開催日　5月23日（土）9：30～12：30 　　　　　　　　浜名湖のアマモ場観察　　　　　　　　詳細はこちらをご覧ください。 3/8更新　はまなこ環境ネットワーク　公開講演会　参加募集　　　　　　開催日　3月28日（土）午後1時30分～　　　　　　一般参加歓迎・参加無料　　　　　　詳細は、こちらをご覧ください。　また、新たに活動やイベントを行う場合、記入フォームに所定の内容を記載して、事務局までお送り下さい。