兵庫県 神戸市東灘区 神戸市灘区 不動産情報サイト

神戸市東部の不動産売買（中古マンション 中古一戸建 売り土地）・賃貸情報満載！御影北小学校・本山第二小学校・本山第一小学校・高羽小学校・本山中学校・鷹匠中学校周辺の物件検索システム。神戸の不動産会社です！

<% Dim login_id Dim login_pass login_id = Request.Cookies("eaglehouse")("user_id") login_pass = Request.Cookies("eaglehouse")("user_pass") 'ユーザーチェック 'checkSession() Dim iBLoop, iBLoop2 ' 地区別 Dim dbAMArr, dbAMArrCount GetGROUPInfo2 "Address1",dbAMArr,dbAMArrCount ' 種別 Dim dbKMArr, dbKMArrCount GetGROUPInfo2 "Bkind",dbKMArr,dbKMArrCount ' 価格別 Dim dbPMArr, dbPMArrCount GetPriceInfo2 dbPMArr,dbPMArrCount ' 物件をグループ化 Function GetGROUPInfo2(strField, dbGWArr, dbGWArrCount) Dim strSqlG strSqlG = "" strSqlG = strSqlG & " SELECT " & strField & ", COUNT(" & strField & ") AS RCnt " strSqlG = strSqlG & " FROM tblBukken " strSqlG = strSqlG & " WHERE " & strField & "<>'' AND DispFlag = 1 AND OwnFlag = 0 " if (""=Session("login")) then ' ログインしていない場合、会員物件は含めない strSqlG = strSqlG & " AND (b_flg IS NULL OR b_flg<>1) " end if ' 売買のみ strSqlG = strSqlG & " AND DataKind = 0 " strSqlG = strSqlG & "GROUP BY " & strField & " " ' 種別グループ化の場合 if ("Bkind"=strField) then strSqlG = " SELECT Bkind, RCnt, name AS KName FROM ( " & strSqlG strSqlG = strSqlG & " ) Info " strSqlG = strSqlG & " LEFT JOIN tblKind ON Info.Bkind = tblKind.id " end if strSqlG = strSqlG & "ORDER BY " & strField & " " 'response.write(strSqlG&"
") exeQuery strSqlG, dbGWArr, dbGWArrCount End Function ' 物件を価格帯で Function GetPriceInfo2(dbPWArr, dbPWArrCount) Dim strSqlP strSqlP = "" strSqlP = strSqlP & " SELECT '2,000万円未満' AS PName1, SUM(P1) AS PS1, " strSqlP = strSqlP & " '2,000万円台' AS PName2, SUM(P2) AS PS2, " strSqlP = strSqlP & " '3,000万円台' AS PName3, SUM(P3) AS PS3, " strSqlP = strSqlP & " '4,000万円台' AS PName4, SUM(P4) AS PS4, " strSqlP = strSqlP & " '5,000万円以上' AS PName5, SUM(P5) AS PS5 " strSqlP = strSqlP & " FROM ( " strSqlP = strSqlP & " SELECT COUNT(id) AS P1, 0 AS P2, 0 AS P3, 0 AS P4, 0 AS P5 " strSqlP = strSqlP & " FROM tblBukken " strSqlP = strSqlP & " WHERE DataKind=0 AND DispFlag = 1 AND OwnFlag = 0 AND Price<2000 " if (""=Session("login")) then ' ログインしていない場合、会員物件は含めない strSqlP = strSqlP & " AND (b_flg IS NULL OR b_flg<>1) " end if strSqlP = strSqlP & " UNION " strSqlP = strSqlP & " SELECT 0 AS P1, COUNT(id) AS P2, 0 AS P3, 0 AS P4, 0 AS P5 " strSqlP = strSqlP & " FROM tblBukken " strSqlP = strSqlP & " WHERE DataKind=0 AND DispFlag = 1 AND OwnFlag = 0 AND 2000<=Price AND Price<3000 " if (""=Session("login")) then ' ログインしていない場合、会員物件は含めない strSqlP = strSqlP & " AND (b_flg IS NULL OR b_flg<>1) " end if strSqlP = strSqlP & " UNION " strSqlP = strSqlP & " SELECT 0 AS P1, 0 AS P2, COUNT(id) AS P3, 0 AS P4, 0 AS P5 " strSqlP = strSqlP & " FROM tblBukken " strSqlP = strSqlP & " WHERE DataKind=0 AND DispFlag = 1 AND OwnFlag = 0 AND 3000<=Price AND Price<4000 " if (""=Session("login")) then ' ログインしていない場合、会員物件は含めない strSqlP = strSqlP & " AND (b_flg IS NULL OR b_flg<>1) " end if strSqlP = strSqlP & " UNION " strSqlP = strSqlP & " SELECT 0 AS P1, 0 AS P2, 0 AS P3, COUNT(id) AS P4, 0 AS P5 " strSqlP = strSqlP & " FROM tblBukken " strSqlP = strSqlP & " WHERE DataKind=0 AND DispFlag = 1 AND OwnFlag = 0 AND 4000<=Price AND Price<5000 " if (""=Session("login")) then ' ログインしていない場合、会員物件は含めない strSqlP = strSqlP & " AND (b_flg IS NULL OR b_flg<>1) " end if strSqlP = strSqlP & " UNION " strSqlP = strSqlP & " SELECT 0 AS P1, 0 AS P2, 0 AS P3, 0 AS P4, COUNT(id) AS P5 " strSqlP = strSqlP & " FROM tblBukken " strSqlP = strSqlP & " WHERE DataKind=0 AND DispFlag = 1 AND OwnFlag = 0 AND 5000<=Price " if (""=Session("login")) then ' ログインしていない場合、会員物件は含めない strSqlP = strSqlP & " AND (b_flg IS NULL OR b_flg<>1) " end if strSqlP = strSqlP & " ) PInfo " 'response.write(strSqlP&"
") exeQuery strSqlP, dbPWArr, dbPWArrCount End Function %>

copyright(c) EAGLE HOUSE Co,. Ltd. All Rights Reserved.