<% Response.AddHeader "Pragma", "no-cache" Response.AddHeader "Cache-control", "no-cache" Response.Expires = 0 Response.CacheControl="Private" Dim Rows Dim FileName Dim FileObject Dim InStream Dim OutStream Dim Count Rows = 5 Filename = "d:\Hamanako_Tool\count.txt" On Error Resume Next Set FileObject = Server.CreateObject("Scripting.FileSystemObject") Set InStream = FileObject.OpenTextFile(Filename, 1, False, False) If Err.Number > 0 then Count = 0 Else Count = InStream.ReadLine InStream.Close End If Count = Count + 1 Set OutStream = FileObject.CreateTextFile(Filename, True, False) OutStream.WriteLine Count OutStream.Close Set FileObject = Nothing On Error Goto 0 %> はまなこ環境ネットワーク | 活動報告
<% 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 %>
 

  10月9日 第3回浜名湖エコキッズ体験塾in三ヶ日の参加者募集
         開催日 11月22日(土)午後1時〜
         詳細は、こちらをご覧ください。

10月8日 浜名湖エコワークショップ・勉強会開催のお知らせをUPしました
         開催日 第1回10月30日(金)  第2回 12月13日(土)
         詳細は、こちらをご覧ください。

 10月5日 「第2回浜名湖エコキッズ 体験塾 inかんざんじ」 の報告
         UPしました
         詳細は、こちらをご覧ください。


また、新たに活動やイベントを行う場合、記入フォームに所定の内容を記載して、事務局までお送り下さい。

 

はまなこ環境ネットワークではPDFファイルが使用されております。
PDFファイルをご覧になるには Adobe Acrobat Reader が必要となります。
お持ちでない方は左のリンク先からダウンロードして下さい。


地域づくりサポートネット
地域づくりサポートネット
 
募集中の事業・イベント
 
10月30日(金)18:30〜
12月13日(土)13:30〜
浜名湖エコワークショップ
       浜松まちづくりセンターほか
 

第3回浜名湖エコキッズ体験塾

 11月22日(土) 午後開催
 
 

All right  reserved. Copyright HAMANAKO KANKYO NETWORK.