エコな生活しませんか  
　

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

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

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

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

  　 ・雨水タンクを設置してみま せんか
　　　　（トイレの流水に活用しています。震災が来ても水洗トイレ使用出来ます。）

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

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

   　　 ・屋根付きバイクを活用しています

        　　　　　　　　　　　　・関連ホームページへ

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

　 <% 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 %>