|
| |
<%
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 %>
|
|
★7/29浜名湖エコキッズ体験塾in舘山寺の開催案内
日時 平成２３年７月２９日（金）１０：００～１６：００
詳細はこちら⇒
★はまなこ環境交流会の開催案内
～浜名湖から天竜川・遠州地域の連携へ～
◆日時 ３月５日（土）１０：３０～１６：００ ※参加無料
◆場所 静岡文化芸術大学 南館２階 ２８０中講義室
◆内容 環境保全活動の状況紹介
リレートーク（活動団体からの発表）
講演会 「遠州の野鳥」 講師：北川捷康氏
資料はこちらをご覧ください。
◆問合せ先 ＮＰＯ法人地域づくりサポートネット
☎053-455-0220 info@shizuoka-t.net
また、新たに活動やイベントを行う場合、記入フォームに所定の内容を記載して、事務局までお送り下さい。 |
<% END IF %>
|
|
<%
if iRecCount >= 3 then
exit do
end if
loop
objRS.close
%>
|
|
はまなこ環境ネットワークではＰＤＦファイルが使用されております。
ＰＤＦファイルをご覧になるには Adobe Acrobat Reader が必要となります。
お持ちでない方は左のリンク先からダウンロードして下さい。 |
|
|
|
