エコな生活しませんか  
 

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

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

  
 ・太陽光発電を設置してみま せんか

    (平成21年12月から新買取制度により、元が取れるようになりました)

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

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

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

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

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

                    ・関連ホームページへ

                   ☆  2010/  3/ 12 更新 ☆
 

アクセスカウンター

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