エコな生活しませんか  
　

　　　＝　地球の温暖化防止と震災に備えて　＝

　　　地球環境を守るために、自然エネルギーを 有効活用しましょう！

    
   　・太陽光発電を設置 しました
　　　　（設置して１２年、平成２１年１２月から新買取制度により、元が取れるようになりました）

   　・太陽熱温水器を 設置しました
　　　（設置して２５年、新しい温水器に取り替えしました）

  　 ・雨水タンク(500�g・ﾄｲﾚ専用）を設置し ました
　　　　（設置して１１年、トイレの流水に活用しています。震災が来ても水洗トイレ使用出来ます。）

  　　・雨水を上手に活用、タンク(600�g）を南側に も増設しました
　　　　（植木の水やり・洗車・外回りの清掃に活用しています）

    　　・生ゴミ処理機を活用して みませんか

   　　 ・屋根付きバイクを活用しています！
　　　　　（購入して１３年、走行距離２万キロ達成。雨の日でも活用しています。）

        ・今年も緑のカーテンを設置しました！

        ・関連ホームページへ

　　　　　　　☆　　２０１０/ 　７/　３０　更新　☆
　

　 <% Set objFS = Server.CreateObject("Scripting.FileSystemObject") Set objTS = objFS.OpenTextFile(Server.MapPath("d:/homepage/index.htm/ctr.txt"),1) num = ObjTS.ReadLine objTS.close num = num + 1 Set objTS = objFS.OpenTextFile(Server.MapPath("d:/homepage/index.htm/ctr.txt"),2) objTS.Write(num) objTS.close Set objTS = objFS.OpenTextFile(Server.MapPath("d:/homepage/index.htm/log.htm"),8,true) objTS.Write(date()):objTS.Write(","):objTS.Write(time()):objTS.Write(",") objTS.Write(request("remote_host")):objTS.Write(","):objTS.Write(request("http_user_agent")) objTS.Write(","):objTS.Write(num):objTS.WriteLine("
"):objTS.close %>