不動産
不動産 不動産 不動産 不動産 不動産 不動産 不動産
<%@ Language=VBScript %> <% 'Option Explicit dim cn dim rs dim strSQL dim title dim mode dim soubaMode dim KensakuMode dim Kensaku_Area, LowPrice, HighPrice, Kensaku_Tochi, Kensaku_Tikunen dim strWhere '検索ページ----------------------------------------------------------------------------- 'SQL文の受け取り 'strSQL=Request.QueryString("goSQL") '資金計画からの受け取り 2002/07/29 mode=Request.QueryString("mode") soubaMode=Request.Form("mode") KensakuMode=Request.QueryString("KensakuMode") '検索ページからのモードチェック Kensaku_Area=Request.Form("Kensaku_Area") LowPrice=Request.Form("LowPrice") HighPrice=Request.Form("HighPrice") Kensaku_Tochi=Request.Form("Kensaku_Tochi") Kensaku_Tikunen=Request.Form("Kensaku_Tikunen") if mode="untouchable_Ad" then if session(page1)="" then Response.Redirect "/asp/members/index.asp" end if end if '基本SQLの作成 if KensakuMode="Chuko" then title="中古戸建物件" strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u FROM [売買物件テーブル] " _ & "WHERE 広告掲載=False AND 物件種別ID=1 AND 業者ID NOT IN (542, 555, 646) AND 物件状況ID IN (1, 2, 5) " elseif KensakuMode="Sintiku" then title="新築戸建物件" strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u FROM [売買物件テーブル] " _ & "WHERE 広告掲載=False AND 物件種別ID=2 AND 業者ID NOT IN (542, 555, 646) AND 物件状況ID IN (1, 2, 5) " elseif KensakuMode="Manshon" then title="中古マンション物件" strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u FROM [売買物件テーブル] " _ & "WHERE 広告掲載=False AND 物件種別ID IN (3, 4) AND 業者ID NOT IN (542, 555, 646) AND 物件状況ID IN (1, 2, 5) " elseif KensakuMode="Tochi" then title="土地・定借物件" strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u, 建ぺい率, 容積率 FROM [売買物件テーブル] " _ & "WHERE 広告掲載=False AND 物件種別ID IN (5, 8) AND 業者ID NOT IN (542, 555, 646) AND 物件状況ID IN (1, 2, 5) " elseif KensakuMode="Tenpo" then title="店舗物件" strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u FROM [売買物件テーブル] " _ & "WHERE 広告掲載=False AND 物件種別ID IN (7, 9) AND 業者ID NOT IN (542, 555, 646) AND 物件状況ID IN (1, 2, 5) " '収益物件の追加 岸野 2002/09/15 elseif KensakuMode="Shueki" then title="収益物件" strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u FROM [売買物件テーブル] " _ & "WHERE 広告掲載=False AND 物件種別ID = 10 AND 業者ID NOT IN (542, 555, 646) AND 物件状況ID IN (1, 2, 5) " end if 'where句の作成 '検索エリア if len(Kensaku_Area)<>0 then '「その他」の場合 if Kensaku_Area="その他" and not KensakuMode="Manshon"then Kensaku_Area="AND 物件所在地 NOT LIKE '%京田辺市%' AND 物件所在地 NOT LIKE '%精華町%' " _ & "AND 物件所在地 NOT LIKE '%木津町%' AND 物件所在地 NOT LIKE '%山城町%' " _ & "AND 物件所在地 NOT LIKE '%井手町%' AND 物件所在地 NOT LIKE '%宇治田原町%' " _ & "AND 物件所在地 NOT LIKE '%加茂町%' AND 物件所在地 NOT LIKE '%笠置町%' " _ & "AND 物件所在地 NOT LIKE '%和束町%' " '「その他」で「マンションモード」の場合 DB変更後マンション検索用追加 2002/08/17 elseif Kensaku_Area="その他" and KensakuMode="Manshon" then Kensaku_Area="AND マンション所在地 NOT LIKE '%京田辺市%' AND マンション所在地 NOT LIKE '%精華町%' " _ & "AND マンション所在地 NOT LIKE '%木津町%' AND マンション所在地 NOT LIKE '%山城町%' " _ & "AND マンション所在地 NOT LIKE '%井手町%' AND マンション所在地 NOT LIKE '%宇治田原町%' " _ & "AND マンション所在地 NOT LIKE '%加茂町%' AND マンション所在地 NOT LIKE '%笠置町%' " _ & "AND マンション所在地 NOT LIKE '%和束町%' " '「マンションモード」の場合 DB変更後マンション検索用追加 2002/08/17 elseif KensakuMode="Manshon" then Kensaku_Area="AND マンション所在地 LIKE '%" & Kensaku_Area & "%' " elseif Kensaku_Area="大津市(湖西)" then Kensaku_Area="AND 物件所在地 LIKE '%大津市%' " 'それ以外すべて else Kensaku_Area="AND 物件所在地 LIKE '%" & Kensaku_Area & "%' " end if end if if len(Kensaku_Tikunen)<>0 then Kensaku_Tikunen="AND 築年数 " & Kensaku_Tikunen end if strWhere=Kensaku_Area & "AND 価格 " & LowPrice & " AND 価格 " & HighPrice _ & " AND 土地u " & Kensaku_Tochi & Kensaku_Tikunen 'SQLの統合 strSQL=strSQL & strWhere '------------------------------------------------------------------------------------ '///////////////////////////////////////////////////////////// '過去の検索ページ用ロジックの為、コメントアウト 岸野 2002/07/29 '///////////////////////////////////////////////////////////// 'if instr(1, strSQL, "物件種別ID=1")<>0 then ' title="中古戸建物件" 'end if 'if instr(1, strSQL, "物件種別ID=2")<>0 then ' title="新築戸建物件" 'end if 'if instr(1, strSQL, "物件種別ID IN (3, 4)")<>0 then ' title="中古マンション物件" 'end if 'if instr(1, strSQL, "物件種別ID IN (5, 8)")<>0 then ' title="土地・定借物件" 'end if 'if instr(1, strSQL, "物件種別ID IN (7, 9)")<>0 then ' title="店舗物件" 'end if '/////////////////////////////////////////////////////////////// '「買う」ページからの受け取り///////////////////////////////////////// select case mode '特選物件SQL(自社物件) case "tokusen" strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u FROM [売買物件テーブル] " _ & "WHERE 広告掲載=False AND 物件状況ID IN (1, 2, 5) AND 業者ID=1 ORDER BY 物件種別ID, 価格" title="特選物件" '過去一週間の新着物件SQL case "oneweek" dim dtOneweek dtOneweek=">#" & DateAdd("d", -7,date()) & "#" strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u FROM [売買物件テーブル] " _ & "WHERE 広告掲載=False AND 業者ID NOT IN (542, 555, 646) AND 物件状況ID IN (1, 2, 5) AND 資料取寄せ日" & dtOneweek & " ORDER BY 物件種別ID, 価格" title="過去一週間の新着物件" 'チラシ物件SQL 'データベース上から広告物件の変更可能にした 2002/12/5 岸野 case "tirasi" 'strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u FROM [売買物件テーブル] " _ ' & "WHERE 広告掲載=False AND 物件状況ID IN (1, 2, 5) AND 物件ID IN (3322, 1702, 3472, 3241, 3324, 3159, 3488, 3364, 3373, 3490, 3486, 3503, 3407, 2012, 3309, 3275, 3429, 2589, 3213, 3213, 3413 ) ORDER BY 物件種別ID, 価格" strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u FROM [売買物件テーブル] " _ & "WHERE 広告掲載=False AND 物件状況ID IN (1, 2, 5) AND 広告物件=True ORDER BY 物件種別ID, 価格" title="広告掲載物件" case "seiyaku" '「売る」ページからの受け取り///////////////////////////////////////// '過去一週間の成約物件SQL '表示する物件のスパンをここで設定 dtOneweek=">#" & DateAdd("m", -1,date()) & "#" strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u FROM [売買物件テーブル] " _ & "WHERE 広告掲載=False AND 物件状況ID =3 AND 業者ID NOT IN (542, 555, 646) AND 資料更新日" & dtOneweek & " ORDER BY 物件種別ID, 価格" title="過去一ヶ月の成約物件" '会員専用ページからの「広告不可」 case "untouchable_Ad" strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u FROM [売買物件テーブル] " _ & "WHERE 広告掲載=True AND 物件状況ID IN (1, 2, 5) AND 業者ID NOT IN (542, 555, 646) ORDER BY 物件種別ID, 価格" title="広告不可物件" end select '/////////////////////////////////////////////////////////////////// '////////////////////////////////////////////////////////////////// '資金計画からの受け取り////////////////////////////////////////////// if cbool(Request.Form("blnSikin"))=true then dim Sikin_shubetu, Sikin_Area, dblLand, dblHouse, Sikin_Tikunen, blnSikin blnSikin=cbool(Request.Form("blnSikin")) realPrice=Request.Form("realPrice") realSinPrice=Request.Form("realSinPrice") Sikin_shubetu=Request.Form("Sikin_Shubetu") Sikin_Area=Request.Form("Sikin_Area") Sikin_Land=Request.Form("Sikin_Land") Sikin_House=Request.Form("Sikin_House") Sikin_Tikunen=Request.Form("Sikin_Tikunen") 'SQLの初期化 strSQL="" strWhere="" 'SQLの生成--------------------------------------------------------------------------- if instr(Sikin_shubetu,"2")<>0 then strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u FROM 売買物件テーブル " _ & "WHERE 広告掲載=False AND 物件状況ID IN (1, 2, 5) AND 価格 BETWEEN 0 AND " & realSinPrice & " " else strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u FROM 売買物件テーブル " _ & "WHERE 広告掲載=False AND 物件状況ID IN (1, 2, 5) AND 価格 BETWEEN 0 AND " & realPrice & " " end if title="ライフスタイル検索" 'WHERE句の生成------------------------------------------------------------------------ '検索エリア 'エリアの条件設定 if len(Sikin_Area)<>0 then '「その他」で「マンション」以外の場合 if Sikin_Area="その他" and not Sikin_shubetu=" IN (3, 4)" then Sikin_Area="AND 物件所在地 NOT LIKE '%京田辺市%' AND 物件所在地 NOT LIKE '%精華町%' " _ & "AND 物件所在地 NOT LIKE '%木津町%' AND 物件所在地 NOT LIKE '%山城町%' " _ & "AND 物件所在地 NOT LIKE '%井手町%' AND 物件所在地 NOT LIKE '%宇治田原町%' " _ & "AND 物件所在地 NOT LIKE '%加茂町%' AND 物件所在地 NOT LIKE '%笠置町%' " _ & "AND 物件所在地 NOT LIKE '%和束町%' " '「その他」で「マンション」の場合 DB変更後マンション検索用追加 2002/08/17 elseif Sikin_Area="その他" and Sikin_shubetu=" IN (3, 4)" then Sikin_Area="AND マンション所在地 NOT LIKE '%京田辺市%' AND マンション所在地 NOT LIKE '%精華町%' " _ & "AND マンション所在地 NOT LIKE '%木津町%' AND マンション所在地 NOT LIKE '%山城町%' " _ & "AND マンション所在地 NOT LIKE '%井手町%' AND マンション所在地 NOT LIKE '%宇治田原町%' " _ & "AND マンション所在地 NOT LIKE '%加茂町%' AND マンション所在地 NOT LIKE '%笠置町%' " _ & "AND マンション所在地 NOT LIKE '%和束町%' " '「マンション」で「単一町名」の場合 DB変更後マンション検索用追加 2002/08/17 elseif not Sikin_Area="その他" and Sikin_shubetu=" IN (3, 4)" then Sikin_Area="AND マンション所在地 LIKE '%" & Sikin_Area & "%' " elseif Sikin_Area="大津市(湖西)" then Sikin_Area="AND (物件所在地 LIKE '%大津%' OR マンション所在地 LIKE '%大津%') " 'それ以外すべて(中古で単一町名など。。。) else Sikin_Area="AND (物件所在地 LIKE '%" & Sikin_Area & "%' OR マンション所在地 LIKE '%" & Sikin_Area & "%') " end if end if '種別のWhere句設定 if len(Sikin_shubetu)<>0 then Sikin_shubetu="AND 物件種別ID" & Sikin_shubetu & " " end if '土地のWhere句設定 if len(Sikin_Land)<>0 then Sikin_Land="AND 土地u " & Sikin_Land end if '建物のWhere句設定 if len(Sikin_House)<>0 then Sikin_House="AND 建物u " & Sikin_House end if '築年数のWhere句設定 if len(Sikin_Tikunen)<>0 then Sikin_Tikunen="AND 築年数 " & Sikin_Tikunen end if 'Where句の結合 strWhere=strWhere & Sikin_Area strWhere=strWhere & Sikin_shubetu strWhere=strWhere & Sikin_Land strWhere=strWhere & Sikin_House strWhere=strWhere & Sikin_Tikunen 'SQLの結合 strSQL=strSQL & strWhere '並び替え設定 将来的にヘッダクリックからソートするように変更します strSQL=strSQL & " ORDER BY 価格" '資金計画の仕様変更のため、コメントアウト 岸野 2002/08/18-------------- 'if len(intshubetu)>0 then ' intshubetu=" AND 物件種別ID" & intshubetu ' strSQL=strSQL & intshubetu 'title="ライフスタイル検索" 'end if 'if len(dblLand)>0 then ' dblLand=" AND 土地u" & dblLand ' strSQL=strSQL & dblLand 'title="ライフスタイル検索" 'end if 'if blnSikin=true then ' title="ライフスタイル検索" ' If len(dblLand)>0 and len(intshubetu)>0 then ' strSQL=strSQL & " ORDER BY 価格" ' elseif len(dblLand)>0 and len(intshubetu)=0 then ' strSQL=strSQL & " ORDER BY 価格" ' elseif len(dblLand)=0 and len(intshubetu)>0 then ' strSQL=strSQL & " ORDER BY 価格" ' else ' strSQL=strSQL & " ORDER BY 価格" ' end if 'end if '---------------------------------------------------------------------- end if '//////////////////////////////////////////////////////////////////// '相場検索//////////////////////////////////////////////////////////// dim dblLowToti, dblHighToti, dblLowTate, dblHighTate, dtLowTikunen, dtHighTikunen, strShubetuWhere if soubaMode="NowSouba" or soubaMode="SeiyakuSouba"then dblLowToti=cdbl(Request.Form("toti"))*0.9 dblHighToti=cdbl(Request.Form("toti"))*1.1 '物件種別の場合分け if Request.Form("shubetu")="中古戸建" then strShubetuWhere= "物件種別ID = 1 AND " elseif Request.Form("shubetu")="新築戸建" then strShubetuWhere= "物件種別ID = 2 AND " elseif Request.Form("shubetu")="中古マンション" then strShubetuWhere= "物件種別ID IN (3,4,6) AND " elseif Request.Form("shubetu")="土地" then strShubetuWhere= "物件種別ID IN (5,8) AND " elseif Request.Form("shubetu")="店舗" then strShubetuWhere= "物件種別ID IN (7,9) AND " elseif Request.Form("shubetu")="収益物件" then strShubetuWhere= "物件種別ID = 10 AND " end if '建物uからの抽出を中止した為、コメントアウト 岸野 2002/08/12 'dblLowTate=cdbl(Request.Form("tate"))*0.90 'dblHighTate=cdbl(Request.Form("tate"))*1.1 'dtLowTikunen=dateadd("m",-18,cdate(Request.Form("tikunen"))) 'dtHighTikunen=dateadd("m",+18,cdate(Request.Form("tikunen"))) 'strSQLとstrWhereの初期化 strSQL="" strWhere="" if soubaMode="NowSouba" then strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u " strSQL=strSQL & "FROM 売買物件テーブル WHERE 物件状況ID IN(1,2,8) AND " title="売却中相場検索" else strSQL="SELECT 物件ID, 物件種別ID, 価格, 物件所在地, 築年数, 土地u, 建物u " strSQL=strSQL & "FROM 売買物件テーブル WHERE 物件状況ID=3 AND " title="成約相場検索" end if 'マンションの場合はマンション所在地から検索 2002/12/6 岸野 if Request.Form("shubetu")="中古マンション" then strWhere=strWhere & "マンション所在地 LIKE '%" & Request.Form("shozai") & "%' AND " else strWhere=strWhere & "物件所在地 LIKE '%" & Request.Form("shozai") & "%' AND " end if strWhere=strWhere & strShubetuWhere strWhere=strWhere & "土地u BETWEEN " & dblLowToti & " AND " & dblHighToti & " " '■■建物uからの抽出を中止した為、コメントアウト 岸野 2002/08/17■■ 'strWhere=strWhere & "建物u BETWEEN " & dblLowTate & " AND " & dblHighTate & " AND " '■■築年数からの抽出を中止した為、コメントアウト 岸野 2002/12/05■■ 'strWhere=strWhere & "築年数 BETWEEN #" & dtLowTikunen & "# AND #" & dtHighTikunen & "#" strSQL=strSQL & strWhere end if '/////////////////////////////////////////////////////////////////// 'DB接続////////////////////////////////////////////////////////////// set cn=server.CreateObject("ADODB.connection") set rs=server.CreateObject("ADODB.recordset") MDBNM = Server.MapPath("/DB/redb.mdb") seieiDB = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MDBNM cn.open seieiDB rs.Open strSQL,cn,adOpenStatic,adLockOptimistic if rs.EOF or rs.BOF then response.redirect("../error/find_err.htm") end if rs.MoveFirst '//////////////////////////////////////////////////////////////////// %> <% '################################### 'デバッグ用SQL表示 'response.write KensakuMode & "
" 'response.write Kensaku_Area & "
" 'response.write LowPrice & "
" 'response.write HighPrice & "
" 'response.write Kensaku_Tochi & "
" 'response.write kensaku_Tikunen & "
" 'response.write strWhere & "
" 'response.write strSQL & "
" 'response.write blnSikin & "
" 'response.write strtest & "
" dim i i = rs.recordcount 'response.write "レコード数:" & i '################################### %>
<%=title%><%=i%>件
<%if mode="seiyaku" then%> <%else%> <%end if%>
トップ > 売る > <%=title%>
トップ > 買う  > <%=title%>
<%if len(mode)>0 or len(soubaMode)>0 or blnSikin=true then%> <%if mode="seiyaku" then%> <%else%> <%end if%> <%elseif KensakuMode="Tochi" then%> <%else%> <%end if dim ohDay dim ObjFSO rs.movefirst do until rs.eof Response.Write "" Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") If ObjFSO.FileExists(Server.Mappath("/images/madori/" & rs.Fields("物件ID") & ".gif"))=false Then Response.Write "" else Response.Write "" end if Set ObjFSO = Nothing Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") 'マンションの場合 'dim manshonPath 'if rs.Fields("物件種別ID")=3 then ' 'アカデミアの場合 ' if instr(1,rs.Fields("物件所在地").Value,"アカデミア")<>0 then ' manshonPath="/images/shasin/" & "akademia/akademia-1.jpg" ' 'シャルマンコーポの場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"シャルマン")<>0 then ' manshonPath="/images/shasin/" & "sharuman/sharuman-1.jpg" ' 'エクセルハイツの場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"エクセル")<>0 then ' manshonPath="/images/shasin/" & "ekuseru/ekuseru-1.jpg" ' 'ファインガーデンの場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"ファインガーデン")<>0 then ' manshonPath="/images/shasin/" & "fine/fine-1.jpg" ' 'ローレルスクエアの場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"スクエア")<>0 then ' manshonPath="/images/shasin/" & "sukuea/sukuea-1.jpg" ' 'エスペローマの場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"エスペローマ")<>0 then ' manshonPath="/images/shasin/" & "esupero-ma/esupero-ma-1.jpg" ' 'ユニライフの場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"ユニライフ")<>0 then ' manshonPath="/images/shasin/" & "yuniraifu/yuniraifu-1.jpg" ' 'アーバンコンフォートの場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"アーバンコンフォート")<>0 then ' manshonPath="/images/shasin/" & "a-bankonfo-to/a-bankonfo-to-1.jpg" ' 'ライフプラザの場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"ライフプラザ")<>0 then ' manshonPath="/images/shasin/" & "raifupuraza/raifupuraza-1.jpg" ' 'かぶと台団地の場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"かぶと台団地")<>0 then ' manshonPath="/images/shasin/" & "danchi/danchi-1.jpg" ' 'ドエルアルスの場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"ドエルアルス")<>0 then ' manshonPath="/images/shasin/" & "doeruarusu/doeruarusu-1.jpg" ' 'ローレルコートエスタの場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"ローレルコートエスタ")<>0 then ' manshonPath="/images/shasin/" & "esuta/esuta-1.jpg" ' 'ユニ加茂の場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"ユニ加茂")<>0 then ' manshonPath="/images/shasin/" & "yunikamo/yunikamo-1.jpg" ' 'ヌーベルアミの場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"ヌーベル")<>0 then ' manshonPath="/images/shasin/" & "nu-beru/nu-beru-1.jpg" ' 'ビースフルいずみの場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"ビースフル")<>0 then ' manshonPath="/images/shasin/" & "bi-sufuru/bi-sufuru-1.jpg" ' 'ホーユウコンフォルトの場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"ホーユウ")<>0 then ' manshonPath="/images/shasin/" & "ho-yuu/ho-yuu-1.jpg" ' 'ホーユウコンフォルトの場合 ' elseif instr(1,rs.Fields("物件所在地").Value,"リーベスト")<>0 then ' manshonPath="/images/shasin/" & "ri-besuto/ri-besuto-1.jpg" ' ' '登録マンション以外は、絶対に無いパスを指定 岸野 2002/08/26 ' else ' manshonPath="/images/madori/buhibuhibuhihin.gif" ' end if ' ' If ObjFSO.FileExists(Server.Mappath(manshonPath))=false Then ' Response.Write "" ' else ' Response.Write "" ' end if 'それ以外 'else if mode<>"seiyaku" then If ObjFSO.FileExists(Server.Mappath("/images/shasin/" & rs.Fields("物件ID") & "/" & rs.Fields("物件ID") & "-1.jpg"))=false Then Response.Write "" else Response.Write "" end if 'end if Set ObjFSO = Nothing end if '会員ページからの場合 if mode="untouchable_Ad" then Response.Write "" else Response.Write "" end if if len(mode)>0 or len(soubaMode)>0 or blnSikin=true or KensakuMode="Tochi" then dim bukkenshubetu if rs.Fields("物件種別ID")=1 then BukkenShubetu="中古戸建" elseif rs.Fields("物件種別ID")=2 then BukkenShubetu="新築戸建" elseif rs.Fields("物件種別ID")=3 then BukkenShubetu="中古マンション" elseif rs.Fields("物件種別ID")=4 then BukkenShubetu="新築マンション" elseif rs.Fields("物件種別ID")=5 then BukkenShubetu="土地" elseif rs.Fields("物件種別ID")=6 then BukkenShubetu="公団" elseif rs.Fields("物件種別ID")=7 then BukkenShubetu="店舗付住宅" elseif rs.Fields("物件種別ID")=8 then BukkenShubetu="定期借地土地" elseif rs.Fields("物件種別ID")=9 then BukkenShubetu="売店舗" elseif rs.Fields("物件種別ID")=10 then BukkenShubetu="収益物件" end if '会員ページからの場合 if mode="untouchable_Ad" then Response.Write "" else Response.Write "" end if end if if KensakuMode="Tochi" then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" '会員ページの場合 elseif mode="untouchable_Ad" then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" else Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" end if rs.MoveNext loop rs.close set rs=nothing cn.close set cn=nothing %>
間取物件ID物件種別
価格
所在地築年月日土地面積建物面積
間取写真物件ID物件種別
価格
所在地築年月日土地面積建物面積
間取写真物件ID物件種別
価格
所在地土地面積建ぺい率容積率
間取写真物件ID価格
所在地築年月日土地面積建物面積
   " Response.Write rs.Fields("物件ID").value & "" Response.Write rs.Fields("物件ID").value & "" Response.Write bukkenshubetu & " " & "" Response.Write bukkenshubetu & " " & "" Response.Write rs.Fields("価格").value & "万円" & " " & "" Response.Write rs.Fields("物件所在地").value & " " & "" Response.Write rs.Fields("土地u").value & "u" & " " & "" Response.Write rs.Fields("建ぺい率").value & "%" & " " & "" Response.Write rs.Fields("容積率").value & "%" & " " & "
" Response.Write rs.Fields("価格").value & "万円" & " " & "" Response.Write rs.Fields("物件所在地").value & " " & "" Response.Write rs.Fields("築年数").value & " " & "" Response.Write rs.Fields("土地u").value & "u" & " " & "" Response.Write rs.Fields("建物u").value & "u" & " " & "
" Response.Write rs.Fields("価格").value & "万円" & " " & "" Response.Write rs.Fields("物件所在地").value & " " & "" Response.Write rs.Fields("築年数").value & " " & "" Response.Write rs.Fields("土地u").value & "u" & " " & "" Response.Write rs.Fields("建物u").value & "u" & " " & "





Designed by JNT. Privacy & Copyright (c) SANT HOUSING Inc. All Rights Reserved.