大分の住宅リフォームと新築注文住宅で数々の確かな実績。創立から６０年蓄積した技術から、人に優しい健康住宅をご提案致します。

研鑽を忘れず、愚直に皆様と接し、
注文住宅建築と住宅リフォームで社会に貢献します。
一、
 kakudakensetu.com(以下「当サイト」といいます。)では、当サービスをお使いいただくために、利用者の個人情報をお教えいただくことがあります。個人情報をお教えいただく場合には、その使用目的を明らかにした上で、適切な範囲で個人情報の収集をいたします。
二、
 当サイトが利用者から収集させていただいた個人情報は、当方によって適切、厳重に管理し、個人情報への不正なアクセスや情報の紛失、破壊、改竄及び漏洩等が起きぬよう、予防並びに安全対策を講じます。
三、
 当サイトが利用者から収集させていただいた個人情報は、以下の何れかに該当する場合を除き第三者に提供・開示等をすることはありません。
(一)
 利用者の事前の同意・承諾を得た場合。
(二)
 あらかじめ当社との間で機密保持に関する契約を締結している会社等に当社のサービスに関連して必要な限度内で開示・提供する場合。
(三)
 利用者からのお問合せや、当社のサービスなどで、機密保持に関する契約を締結している会社等から直接ご連絡させていただくことが適切と判断される場合。
(四)
 その他法令等により開示・提供が必要な場合。
四、
 当サイトが、上記三、において個人情報を開示・提供等を行う会社等には、個人情報に関して当社と同様適切な管理を行うよう、契約により義務づけをいたします。
五、
 当サイトは、個人情報保護に関する法令及びその他の規範を遵守いたします。
六、
 当サイトは、個人情報の保護及び取扱いについて、継続的改善に努めてまいります。

株式会社 角田建設 │ ＨＯＭＥ │ 工事実績 │　最新情報　 │ 角田の家づくり　 │ 会社概要 │ 木の基礎知識 │ お問い合わせ・資料請求 │
〒879-5421
大分県由布市庄内町大字柿原270番地
TEL 097-582-0367 FAX 097-582-3381　 E-mail info@kakudakensetu.com
Copyright (C) 2006 kakuda kensetu All Rights Reserved.
<% kans ="" koname="" 'IPアドレスを取得する kans = request.ServerVariables("SCRIPT_NAME") 'ベータ版かどうかを検証する IF InStr(kans,"/beta/") > 0 or InStr(kans,"/Beta/") > 0 then Koname = "ACNO2" 'アクセスナンバー Koname2 = "ACLOG2" 'アクセスログ Koname3 = "ACOUNT2" 'アクセスカウンタ Koname4 = "TCOUNT2" 'タイムカウンタ Else Koname = "ACNO" 'アクセスナンバー Koname2 = "ACLOG" 'アクセスログ Koname3 = "ACOUNT" 'アクセスカウンタ Koname4 = "TCOUNT" 'タイムカウンタ End IF 'URL取得 session("passurl") = request.ServerVariables("HTTP_REFERER") 'IPアドレス取得 IF session("passip") ="" Then session("passip") = request.ServerVariables("REMOTE_ADDR") End IF 'プレアのＩＰ設定 PLEip = "220.109.214.170" 'PLEip = "" IF session("passip") <> PLEip Then 'プレアのIPは無視 'データベースとの接続を確立。 Set connection = Server.CreateObject ("ADODB.Connection") connection.Open "DRIVER=SQL Server;SERVER=220.109.214.172;UID=PL_Kakuda;PWD=pw08yb9;DATABASE=kakuda" 'アクセス番号の取得と更新 If IsNull(session("MaXno")) or session("MaXno") = "" Then strSQL = "SELECT count(Int_IPNO) M FROM "& Koname & " where datename(yyyy,DT_DATE) like '%" & year(Date) & "%'" strSQL = strSQL & " and datename(mm,DT_DATE) like '%" & month(Date) & "%'" set MRec = connection.Execute(strSQL) IF IsNull(MRec("M")) Then session("MaXno") = 1 Else session("MaXno") = MRec("M") +1 End IF MRec.close set MRec = Nothing strSQL = "INSERT INTO " & Koname & " (DT_DATE,Int_IPNO) VALUES('" & now & "'," & session("MaXno") & ")" connection.Execute(strSQL) End IF IF session("MaXno") <> "" Then 'SSLより来た場合 '現在のマックス番号を取得して１を足す Set connection2 = Server.CreateObject ("ADODB.Connection") connection2.Open "DRIVER=SQL Server;SERVER=220.109.214.172;UID=PL_Kakuda;PWD=pw08yb9;DATABASE=kakuda" strSQL = "SELECT MAX(Int_PVF) G FROM "& Koname2 & " where datename(yyyy,DT_DATE) like '%" & year(Date) & "%'" strSQL = strSQL & " and datename(mm,DT_DATE) like '%" & month(Date) & "%' and Int_IPNO=" & trim(session("MaXno")) set PCRec = connection2.Execute(strSQL) IF PCRec.EOF = false Then 'レコードあり IF ISNull(PCRec("G")) Then session("pageCT") = 1 Else session("pageCT") = PCRec("G") + 1 End IF Else 'レコードなし session("pageCT") = 1 End IF PCRec.close set PCRec= Nothing connection2.close set connection2= nothing Else session("pageCT") = 1 End IF 'アクセスログに書き込み strSQL = "INSERT INTO " & Koname2 & " (Int_IPNO,Chr_IPAD,DT_DATE,Var_URL,Chr_PID,Int_PVF) " strSQL = strSQL & "VALUES(" & session("MaXno") & ",'" & session("passip") & "', '" & Now & "', " IF session("passurl") <> "" Then '取得できた場合 strSQL = strSQL & "'" & session("passurl") & "'," Else '取得できなかった場合 strSQL = strSQL & "Null," End IF strSQL = strSQL & "'F1'," & session("pageCT") & ")" connection.Execute(strSQL) 'アクセスカウンタへの書き込み strSQL = "SELECT * FROM " & Koname3 & " WHERE DT_DATE='" & Date & "'" set ACRec = connection.Execute(strSQL) IF ACRec.EOF = False Then 'すでにレコードがある場合 Set connection2 = Server.CreateObject ("ADODB.Connection") connection2.Open "DRIVER=SQL Server;SERVER=220.109.214.172;UID=PL_Kakuda;PWD=pw08yb9;DATABASE=kakuda" strSQL2 = "UPDATE " & Koname3 & " SET Int_F1=Int_F1 + 1 WHERE DT_DATE>='" & Date & "'" connection2.Execute(strSQL2) connection2.close set connection2 = Nothing Else 'まだレコードがない場合 Set connection2 = Server.CreateObject ("ADODB.Connection") connection2.Open "DRIVER=SQL Server;SERVER=220.109.214.172;UID=PL_Kakuda;PWD=pw08yb9;DATABASE=kakuda" strSQL2 = "INSERT INTO " & Koname3 & " (DT_DATE,Int_F1) VALUES('" & Date & "'," & 1 & ")" connection2.Execute(strSQL2) connection2.close set connection2 = Nothing End IF ACRec.Close Set ACRec= Nothing 'アクセスタイムテーブルへの書き込み strSQL = "SELECT * FROM " & Koname4 & " WHERE DT_DATE='" & Date & "'" set ATRec = connection.Execute(strSQL) IF ATRec.EOF = False Then 'すでにレコードがある場合 '現在の時刻を調べる TimeStart = 0 TimeEnd = 1 For Tcount = 0 To 23 TColumn = "Int_T" & Tcount +1 IF TimeSerial(TimeStart,00,00) =< Time and Time < TimeSerial(TimeEnd,00,00) Then Set connection2 = Server.CreateObject ("ADODB.Connection") connection2.Open "DRIVER=SQL Server;SERVER=220.109.214.172;UID=PL_Kakuda;PWD=pw08yb9;DATABASE=kakuda" strSQL2 = "UPDATE " & Koname4 & " SET " & TColumn & "=" & TColumn & " + 1 WHERE DT_DATE>='" & Date & "'" connection2.Execute(strSQL2) connection2.close set connection2 = Nothing Exit For End IF TimeStart = TimeStart +1 TimeEnd = TimeEnd + 1 Next Else 'まだレコードがない場合 '現在の時刻を調べる TimeStart = 0 TimeEnd = 1 For Tcount = 0 To 23 TColumn = "Int_T" & Tcount +1 IF TimeSerial(TimeStart,00,00) =< Time and Time < TimeSerial(TimeEnd,00,00) Then Set connection2 = Server.CreateObject ("ADODB.Connection") connection2.Open "DRIVER=SQL Server;SERVER=220.109.214.172;UID=PL_Kakuda;PWD=pw08yb9;DATABASE=kakuda" strSQL2 = "INSERT INTO " & Koname4 & " (DT_DATE," & TColumn & ") VALUES('" & Date & "',1)" connection2.Execute(strSQL2) connection2.close set connection2 = Nothing Exit For End IF TimeStart = TimeStart +1 TimeEnd = TimeEnd + 1 Next End IF ATRec.Close Set ATRec= Nothing connection.close set connection = Nothing End IF %>