<% '07/10/22 王君偉 ADD %> 賃貸、管理のレントライフ、賃貸アパート、賃貸マンション、賃貸不動産情報。全国にフランチャイズ加盟店募集中。 <% function funChecked(strValue, arrValue) funChecked = "" for i = 0 to UBound(arrValue) if cstr(strValue) = cstr(arrValue(i)) then funChecked = "checked" exit for end if next end function dim strSql tenpoID = checkSql(request.QueryString("strTenpoID")) prefID = checkSql(request.QueryString("pubno")) if request.Form("hidtype") <> "" then tenpoID = checkSql(request.Form("hidtenpoid")) prefID = checkSql(request.Form("hidpubno")) end if '地域を選択 objPostCity = Split(checkSql(request.Form("postCity")), ", ") '沿線を選択 objRosenNo = Split(checkSql(request.Form("rosenNo")), ", ") objTrainEkiNo = Split(checkSql(request.Form("trainEkiNo")), ", ") objCheck_all = Split(checkSql(request.Form("check_allA")), ", ") '物件種別 if request.Form("searchtype") = "" then searchtype = "1" else searchtype = checkSql(request.Form("searchtype")) end if '賃料 if request.Form("chinryoFrom") = "" then chinryoFrom = "0" else chinryoFrom = checkSql(request.Form("chinryoFrom")) end if if request.Form("chinryoTo") = "" then chinryoTo = "0" else chinryoTo = checkSql(request.Form("chinryoTo")) end if '共益費/管理費を含む kyoekiKanrihi = checkSql(request.Form("kyoekiKanrihi")) '礼金なし reikin3 = checkSql(request.Form("reikin3")) '敷金なし shikikin3 = checkSql(request.Form("shikikin3")) '間取り objCondition = Split(checkSql(request.Form("condition")), ", ") '築年数 if request.Form("tikunen") = "" then tikunen = "0" else tikunen = checkSql(request.Form("tikunen")) end if '駅徒歩分 if request.Form("ekitoho") = "" then ekitoho = "0" else ekitoho = checkSql(request.Form("ekitoho")) end if 'ペット objBetto = Split(checkSql(request.Form("betto")), ", ") '画像 objHavephoto = Split(checkSql(request.Form("havephoto")), ", ") 'こだわり条件 '位置 objHouseplace = Split(checkSql(request.Form("houseplace")), ", ") 'その他 objTokkijikou = Split(checkSql(request.Form("tokkijikou")), ", ") objSetsubi = Split(checkSql(request.Form("setsubi")), ", ") objSearchid = Split(checkSql(request.Form("searchid")), ", ") '駐車場あり havestop = checkSql(request.Form("havestop")) '面積 if request.Form("mensekiFrom") = "" then mensekiFrom = "0" else mensekiFrom = checkSql(request.Form("mensekiFrom")) end if if request.Form("mensekiTo") = "" then mensekiTo = "0" else mensekiTo = checkSql(request.Form("mensekiTo")) end if if tenpoID <> "" then prefPubNo = "" strSql="SELECT DISTINCT left(POST_PUBLIC_CODE,len(POST_PUBLIC_CODE)-3)as PREF_PUBNO,POST_PREFECTURE" strSql=strSql & " FROM tintaikyojyuu INNER JOIN TBL_POSTCODE ON LEFT(syozaichicode,LEN(syozaichicode)-6) = POST_PUBLIC_CODE" strSql=strSql & " WHERE Keisai=1 AND Tkanrino = '" & tenpoID & "' ORDER BY PREF_PUBNO" set res=server.CreateObject("adodb.recordset") res.open strSql,g_bancho do while res.eof=false prefPubNo = prefPubNo & res("PREF_PUBNO") & "," res.movenext loop res.close set res=nothing if prefPubNo <> "" then prefPubNo = mid(prefPubNo, 1, len(prefPubNo) - 1) prefID = prefPubNo end if end if if request.Form("hidtype") = "1" and request.Form("textfield") <> "" then Set objMail = CreateObject("CDONTS.NewMail") objMail.From = "rentnet@r-life.co.jp" objMail.To = request.Form("textfield") objMail.BodyFormat = CdoBodyFormatHTML objMail.MailFormat = CdoMailFormatMime objMail.Subject = "「レントライフ物件検索サイト」" objMail.Body = "レントライフ携帯版URLを送信しました。是非ご活用ください。http://www.r-life.co.jp/i/" objMail.Send Set objMail = Nothing %> <% end if %>
"> ">
  賃貸、管理のレントライフ、賃貸アパート、賃貸マンション、賃貸不動産情報。賃貸物件の間取・地図・外観・室内写真など、下見ができます。
Rent Life
アパマンステーション
レントライフネットワーク
アパート・マンション・賃貸不動産・地域密着型不動産検索サイト
ネットで見れば下見ができる!
トップページ <%if tenpoID<>"" then%> 店舗トップページ|<%end if%>
携帯へURLを送る→携帯アドレス入力:
 
" strTdSpace="" strTable="
<% dim strTitle if tenpoID <> "" OR (tenpoID <> "" AND prefID <> "") then strSql="select Meishou from Tenpojyouho where Tenpono='" & tenpoID & "'" set res=server.CreateObject("adodb.recordset") res.open strSql,g_bancho if not res.eof then strTitle=res("Meishou") & "店" end if res.close set res=nothing end if if prefID <> "" AND tenpoID = "" then strSql="select PREF_NAME from TBL_PREF where PREF_PUBNO='" & prefID & "'" set res=server.CreateObject("adodb.recordset") res.open strSql,g_bancho if not res.eof then strTitle=res("PREF_NAME") end if res.close set res=nothing end if %> <%=strTitle%>

地域を選択 <% dim postPrefeture dim resCount if tenpoID <> "" OR (tenpoID <> "" AND prefID <> "") then strSql="SELECT DISTINCT syozaichicode,left(POST_PUBLIC_CODE,len(POST_PUBLIC_CODE)-3)as PREF_PUBNO,POST_PUBLIC_CODE,POST_PREFECTURE,POST_CITY" strSql=strSql & " FROM tintaikyojyuu INNER JOIN TBL_POSTCODE ON LEFT(syozaichicode,LEN(syozaichicode)-6) = POST_PUBLIC_CODE" strSql=strSql & " WHERE Keisai=1 AND Tkanrino = '" & tenpoID & "' ORDER BY syozaichicode" set res=server.CreateObject("adodb.recordset") res.open strSql,g_bancho if not res.eof then postPrefeture = res("POST_PREFECTURE") %>  ※住みたい市区町村を選択してください。 市区町村選択後、「検索する」ボタンまたは「条件選択」ボタンをクリックしてください。
   <%=postPrefeture%> <% else %>
検索できる物件がありません。
<% end if resCount=0 do while res.eof=false resCount=resCount+1 if postPrefeture = res("POST_PREFECTURE") then if resCount mod 4 = 1 then %> <% end if %> <% if resCount mod 4 = 0 then %> <% end if else if resCount > 1 then resCount = resCount - 1 end if do while resCount mod 4 <> 0 %> <% resCount=resCount+1 if resCount mod 4 = 0 then %> <% end if loop postPrefeture = res("POST_PREFECTURE") %>
" <%=funChecked(res("syozaichicode"), objPostCity)%>> <%=res("POST_CITY")%>
 
   <%=postPrefeture%> <% resCount=1 end if res.movenext loop do while resCount mod 4 <> 0 %> <% resCount=resCount+1 if resCount mod 4 = 0 then %> <% end if loop if resCount > 0 then %>
" <%=funChecked(res("syozaichicode"), objPostCity)%>> <%=res("POST_CITY")%> 
<% end if res.close set res=nothing end if if prefID <> "" AND tenpoID = "" then strSql="SELECT DISTINCT Syozaichicode,LEFT(POST_PUBLIC_CODE,LEN(POST_PUBLIC_CODE)-3) AS PREF_PUBNO,POST_PUBLIC_CODE,POST_PREFECTURE,POST_CITY" strSql=strSql & " FROM ( SELECT DISTINCT Syozaichicode FROM Tintaikyojyuu AS tk INNER JOIN Tenpojyouho AS tj ON tk.Tkanrino=tj.Tenpono WHERE tk.Keisai=1 ) AS Tintaikyojyuu" strSql=strSql & " INNER JOIN TBL_POSTCODE ON LEFT(Syozaichicode,LEN(Syozaichicode)-6) = POST_PUBLIC_CODE WHERE Syozaichicode LIKE '" & prefID & "_________' ORDER BY syozaichicode" set res=server.CreateObject("adodb.recordset") res.open strSql,g_bancho if not res.eof then %>  ※住みたい市区町村を選択してください。 市区町村選択後、「検索する」ボタンまたは「条件選択」ボタンをクリックしてください。

<% else %>
検索できる物件がありません。
<% end if resCount=0 do while res.eof=false resCount=resCount+1 if resCount mod 4 = 1 then %> <% end if %> <% if resCount mod 4 = 0 then %> <% end if res.movenext loop do while resCount mod 4 <> 0 %> <% resCount=resCount+1 if resCount mod 4 = 0 then %> <% end if loop if resCount > 0 then %>
" <%=funChecked(res("syozaichicode"), objPostCity)%>> <%=res("POST_CITY")%>
 
<% end if res.close set res=nothing end if %>

家賃や間取りを指定する条件選択


沿線を選択
<% dim res_jr dim res_railroad dim res_zero dim strTrEnd dim strTdSpace dim strTable strTrEnd="
 
" res_zero=0 if tenpoID <> "" OR (tenpoID <> "" AND prefID <> "") then 'JR strSql="SELECT DISTINCT TRAIN_ROSEN_NO,TRAIN_ROSEN_NAME FROM Tintaikyojyuu" strSql=strSql & " INNER JOIN TBL_TRAIN ON Rosen_code = TRAIN_ROSEN_NO" strSql=strSql & " WHERE Keisai=1 AND Tkanrino='" & tenpoID & "' AND TRAIN_ROSEN_NAME NOT LIKE '%バス%' AND TRAIN_ROSEN_NO <> '9999' AND" strSql=strSql & " TRAIN_EKI_NO <> '9999' AND (TRAIN_ROSEN_NAME LIKE '%JR%' OR TRAIN_ROSEN_NAME LIKE '%JR%')" strSql=strSql & " ORDER BY TRAIN_ROSEN_NAME" set res_jr=server.CreateObject("adodb.recordset") res_jr.open strSql,g_bancho '私鉄 strSql="SELECT DISTINCT TRAIN_ROSEN_NO,TRAIN_ROSEN_NAME FROM Tintaikyojyuu" strSql=strSql & " INNER JOIN TBL_TRAIN ON Rosen_code = TRAIN_ROSEN_NO" strSql=strSql & " WHERE Keisai=1 AND Tkanrino='" & tenpoID & "' AND TRAIN_ROSEN_NAME NOT LIKE '%バス%' AND TRAIN_ROSEN_NO <> '9999' AND " strSql=strSql & " TRAIN_EKI_NO <> '9999' AND (TRAIN_ROSEN_NAME NOT LIKE '%JR%' OR TRAIN_ROSEN_NAME NOT LIKE '%JR%')" strSql=strSql & " ORDER BY TRAIN_ROSEN_NAME" set res_railroad=server.CreateObject("adodb.recordset") res_railroad.open strSql,g_bancho end if if prefID <> "" AND tenpoID = "" then 'JR strSql="SELECT DISTINCT TRAIN_ROSEN_NO,TRAIN_ROSEN_NAME " strSql=strSql & " FROM ( SELECT Syozaichicode,Rosen_code FROM Tintaikyojyuu as tk INNER JOIN Tenpojyouho as tj ON tk.Tkanrino=tj.Tenpono WHERE tk.Keisai=1 ) as Tintaikyojyu" strSql=strSql & " INNER JOIN TBL_TRAIN ON Rosen_code = TRAIN_ROSEN_NO WHERE Syozaichicode LIKE '" & prefID & "_________' AND TRAIN_ROSEN_NAME NOT LIKE '%バス%' AND TRAIN_ROSEN_NO <> '9999' AND TRAIN_EKI_NO <> '9999' AND (TRAIN_ROSEN_NAME LIKE '%JR%' OR TRAIN_ROSEN_NAME LIKE '%JR%')" strSql=strSql & " ORDER BY TRAIN_ROSEN_NAME" set res_jr=server.CreateObject("adodb.recordset") res_jr.open strSql,g_bancho '私鉄 strSql="SELECT DISTINCT TRAIN_ROSEN_NO,TRAIN_ROSEN_NAME " strSql=strSql & " FROM ( SELECT Syozaichicode,Rosen_code FROM Tintaikyojyuu as tk INNER JOIN Tenpojyouho as tj ON tk.Tkanrino=tj.Tenpono WHERE tk.Keisai=1 ) as Tintaikyojyu" strSql=strSql & " INNER JOIN TBL_TRAIN ON Rosen_code = TRAIN_ROSEN_NO WHERE Syozaichicode LIKE '" & prefID & "_________' AND TRAIN_ROSEN_NAME NOT LIKE '%バス%' AND TRAIN_ROSEN_NO <> '9999' AND TRAIN_EKI_NO <> '9999' AND (TRAIN_ROSEN_NAME NOT LIKE '%JR%' OR TRAIN_ROSEN_NAME NOT LIKE '%JR%')" strSql=strSql & " ORDER BY TRAIN_ROSEN_NAME" set res_railroad=server.CreateObject("adodb.recordset") res_railroad.open strSql,g_bancho end if if not res_jr.eof then %>
<% resCount=0 do while res_jr.eof=false resCount=resCount+1 if resCount mod 3 = 1 then %> <% end if %> <% if resCount mod 3 = 0 then %> <% end if res_jr.movenext loop do while resCount mod 3 <> 0 %> <%=strTdSpace%> <% resCount=resCount+1 if resCount mod 3 = 0 then %> <%=strTrEnd%> <% end if loop res_zero=1 end if if not res_railroad.eof then if res_zero=0 then %> <%=strTable%> <% else %> <% end if %> <% resCount=0 do while res_railroad.eof=false resCount=resCount+1 if resCount mod 3 = 1 then %> <% end if %> <% if resCount mod 3 = 0 then %> <% end if res_railroad.movenext loop do while resCount mod 3 <> 0 %> <%=strTdSpace%> <% resCount=resCount+1 if resCount mod 3 = 0 then %> <%=strTrEnd%> <% end if loop res_zero=1 end if res_jr.close set res_jr=nothing res_railroad.close set res_railroad=nothing if res_zero=0 then %>
検索できる物件がありません。
<% else %>
■ JR
" <%=funChecked(res_jr("TRAIN_ROSEN_NO"), objRosenNo)%>> <%=res_jr("TRAIN_ROSEN_NAME")%>
     
■ 私鉄
" <%=funChecked(res_railroad("TRAIN_ROSEN_NO"), objRosenNo)%>> <%=res_railroad("TRAIN_ROSEN_NAME")%>
<% end if %>
検索する
駅を絞り込む


物件の条件を選択
 
1.物件種別
onClick="funSearchtypeChange()"> アパート・マンション・戸建 onClick="funSearchtypeChange()"> テナント・事業用  onClick="funSearchtypeChange()"> 駐車場
2.賃料
(駐車場除く)

> 共益費/管理費を含む   > 礼金なし  > 敷金なし
3.間取り
> 1R・1K・1DK > 1LDK・2K・2DK > 2LDK・3K・3DK > 3DK以上 > 戸建
4.築年数
> 指定なし  > 新築  > 3年以内  > 5年以内  > 10年以内  > 15年以内  > 20年以内
5.駅徒歩分 > 指定なし  > 1分以内  > 5分以内  > 7分以内  > 10分以内  > 15分以内
6.ペット > 可  > 不可
7.画像 > 図面有り  > 画像有り
8.こだわり
  条件
位置
> 南向き > 1階の物件 > 2階以上の物件 > 最上階の物件
> 角部屋      
条件
> 楽器相談 > 2人入居可 > 分譲タイプ > バリアフリー
> 即入居可 > 事務所可 > 保証人不要  
キッチン
> システムキッチン > ガスコンロ > 冷蔵庫あり > カウンターキッチン
バス・トイレ
> バス・トイレ別 > 追い焚き > シャンプードレッサー > シャワートイレ
> 浴室乾燥機      
冷暖房
> エアコン > 床暖房 > 暖房 > 冷房
収納
> クローゼット > 床下収納 > トランクルーム  
放送・通信
> CATV > CSアンテナ > BSアンテナ > 有線放送
> 光ファイバー      
セキュリティ
> オートロック > TVドアホン > 宅配ボックス  
その他の設備
> エレベーター > 室内洗濯機置場 > フローリング > ロフト付き
> 専用庭 > 駐車場あり > バイク置き場あり > 駐輪場あり
> バルコニー > 出窓 > 都市ガス > タイル貼り
> オール電化 > プロパンガス    
9.面積 下限 u〜上限 u



 
アパマンステーション レントライフネットワーク Copyright(c) 2004- Rent Life. All rights reserved.