<% '07/10/16 王君偉 ADD %> 賃貸、管理のレントライフ、賃貸アパート、賃貸マンション、賃貸不動産情報。全国にフランチャイズ加盟店募集中。 <% strPath=Request.ServerVariables("HTTP_REFERER") call SubIntegrationVisitLog(0,1,strPath,strPath) sql_serch="select Hyouji,Atoresu,Domeinn from Enjin" set rs_serch=g_bancho.Execute(sql_serch) do while rs_serch.eof=false if instr(strPath,rs_serch("Domeinn"))<>0 then strPath1=rs_serch("Hyouji") strPath2=rs_serch("Atoresu") call SubIntegrationVisitLog(0,6,strPath1,strPath2) exit do else rs_serch.movenext end if loop rs_serch.close set rs_serch=nothing call SubNetworkVisitLog("0") intJyoken=1 if request.Form("madori")<>"" or request.Form("madori")<>null then intJyoken=checkSql(request.Form("madori")) end if if intJyoken=6 or intJyoken=7 then strFile="jigyo" else strFile="kyojyu" end if %> <% if request.Form("submit")="送信" 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/index.asp" objMail.Send Set objMail=Nothing %> <%end if%>
  賃貸、管理のレントライフ、賃貸アパート、賃貸マンション、賃貸不動産情報。賃貸物件の間取・地図・外観・室内写真など、下見ができます。
Rent Life
アパマンステーション
レントライフ
ネットワーク
アパート・マンション・賃貸不動産・地域密着型不動産検索サイト
ネットで見れば下見ができる!
Last UpDated <%=date()%>
お店から探す
<% sql_pref="select PREF_PUBNO,PREF_NAME from TBL_PREF order by PREF_PUBNO ASC" set rs_pref=g_bancho.Execute(sql_pref) 'TBL_PREFから抽出条件1、ソート順1でレコードを抽出しする。 temp_pref = 0 do while rs_pref.eof=false sql_Tenpojyouho="select Tenpono,Meishou from Tenpojyouho where Shozaichiken=" & rs_pref("PREF_PUBNO") & " order by Tenpono ASC" set rs_Tenpojyouho=g_bancho.Execute(sql_Tenpojyouho) 'Tenpojyouhoテーブルから抽出条件2、ソート順2でレコードを抽出しする。 if rs_Tenpojyouho.eof=false then if temp_pref > 0 then %> <% end if %> <% temp_pref = temp_pref + 1 end if rs_pref.movenext loop rs_pref.close set rs_pref=nothing %>
<%=rs_pref("PREF_NAME")%> <% temp_Tenpojyouho=0 intMeishouLen=0 intSpaceLen=0 do while rs_Tenpojyouho.eof=false strspace="" strbr="" sql_Tintai="select Tkanrino from Tintaikyojyuu where Tintaikyojyuu.Keisai=1 AND Tintaikyojyuu.Tkanrino = " & rs_Tenpojyouho("Tenpono") & " union select Tkanrino from Tintaijigyou where Tintaijigyou.Keisai=1 AND Tintaijigyou.Tkanrino = " & rs_Tenpojyouho("Tenpono") set rs_Tintai=g_bancho.Execute(sql_Tintai) 'TintaikyojyuテーブルとTintaijigyouテーブルから抽出条件2-1-1でレコード件数を取得しする。 if temp_Tenpojyouho > 0 then strspace=" " intSpaceLen=intSpaceLen+0.5 end if if intMeishouLen=20 then intMeishouLen=0 intSpaceLen=0 end if intMeishouLen=intMeishouLen+len(rs_Tenpojyouho("Meishou"))+1 if intMeishouLen+intSpaceLen>20 and intSpaceLen>0 then strbr="
" strspace="" intSpaceLen=0 intMeishouLen=len(rs_Tenpojyouho("Meishou"))+1 end if if rs_Tintai.eof=false then %> <%=strbr%><%=strspace%>"><%=rs_Tenpojyouho("Meishou")%>店 <% else %> <%=strbr%><%=strspace%><%=rs_Tenpojyouho("Meishou")%>店 <% end if rs_Tintai.close set rs_Tintai=nothing temp_Tenpojyouho = temp_Tenpojyouho + 1 rs_Tenpojyouho.movenext loop rs_Tenpojyouho.close set rs_Tenpojyouho=nothing %>
※売買物件、土地をお探しの方は各店へお入り下さい。

  エリアから探す <% '物件の存在する都道府県コードを取得 '結果より各都道府県画像を有効化 dim strVal sql_serch="select distinct * from (" sql_serch=sql_serch & "select distinct LEFT(syozaichicode,LEN(syozaichicode)-9) as shozaichicode " sql_serch=sql_serch & "from tintaikyojyuu where Keisai=1 union all " sql_serch=sql_serch & "select distinct LEFT(syozaichicode,LEN(syozaichicode)-9) as shozaichicode " sql_serch=sql_serch & "from tintaijigyou where Keisai=1 ) as shozaichicode order by shozaichicode" set rs_serch=g_bancho.Execute(sql_serch) strVal="" do while rs_serch.eof=false strVal=strVal&rs_serch("shozaichicode")&"," rs_serch.movenext loop rs_serch.close set rs_serch=nothing strVal=left(strVal,len(strVal)-1) strVal=split(strVal,",") %>
<% if judgeVal(strVal,"1") then %>北海道<% else %>北海道<% end if %>
<% if judgeVal(strVal,"2") then %>青森<% else %>青森<% end if %>
<% if judgeVal(strVal,"5") then %>秋田<% else %>秋田<% end if %> <% if judgeVal(strVal,"3") then %>岩手<% else %>岩手<% end if %>
<% if judgeVal(strVal,"6") then %>山形<% else %>山形<% end if %> <% if judgeVal(strVal,"4") then %>宮城<% else %>宮城<% end if %>
<% if judgeVal(strVal,"17") then %>石川<% else %>石川<% end if %> <% if judgeVal(strVal,"15") then %>新潟<% else %>新潟<% end if %> <% if judgeVal(strVal,"10") then %>群馬<% else %>群馬<% end if %> <% if judgeVal(strVal,"7") then %>福島<% else %>福島<% end if %>
<% if judgeVal(strVal,"35") then %>山口<% else %>山口<% end if %> <% if judgeVal(strVal,"32") then %>島根<% else %>島根<% end if %> <% if judgeVal(strVal,"31") then %>鳥取<% else %>鳥取<% end if %> <% if judgeVal(strVal,"28") then %>兵庫<% else %>兵庫<% end if %> <% if judgeVal(strVal,"26") then %>京都<% else %>京都<% end if %> <% if judgeVal(strVal,"16") then %>富山<% else %>富山<% end if %> <% if judgeVal(strVal,"9") then %>栃木<% else %>栃木<% end if %> <% if judgeVal(strVal,"8") then %>茨城<% else %>茨城<% end if %>
<% if judgeVal(strVal,"34") then %>広島<% else %>広島<% end if %> <% if judgeVal(strVal,"33") then %>岡山<% else %>岡山<% end if %> <% if judgeVal(strVal,"18") then %>福井<% else %>福井<% end if %> <% if judgeVal(strVal,"21") then %>岐阜<% else %>岐阜<% end if %> <% if judgeVal(strVal,"20") then %>長野<% else %>長野<% end if %> <% if judgeVal(strVal,"11") then %>埼玉<% else %>埼玉<% end if %>
<% if judgeVal(strVal,"41") then %>佐賀<% else %>佐賀<% end if %> <% if judgeVal(strVal,"40") then %>福岡<% else %>福岡<% end if %> <% if judgeVal(strVal,"27") then %>大阪<% else %>大阪<% end if %> <% if judgeVal(strVal,"25") then %>滋賀<% else %>滋賀<% end if %>
<% if judgeVal(strVal,"19") then %>山梨<% else %>山梨<% end if %> <% if judgeVal(strVal,"13") then %>東京<% else %>東京<% end if %> <% if judgeVal(strVal,"12") then %>千葉<% else %>千葉<% end if %>
<% if judgeVal(strVal,"42") then %>長崎<% else %>長崎<% end if %> <% if judgeVal(strVal,"43") then %>熊本<% else %>熊本<% end if %> <% if judgeVal(strVal,"44") then %>大分<% else %>大分<% end if %> <% if judgeVal(strVal,"38") then %>愛媛<% else %>愛媛<% end if %> <% if judgeVal(strVal,"37") then %>香川<% else %>香川<% end if %> <% if judgeVal(strVal,"30") then %>和歌山<% else %>和歌山<% end if %> <% if judgeVal(strVal,"29") then %>奈良<% else %>奈良<% end if %> <% if judgeVal(strVal,"24") then %>三重<% else %>三重<% end if %>
<% if judgeVal(strVal,"23") then %>愛知<% else %>愛知<% end if %> <% if judgeVal(strVal,"22") then %>静岡<% else %>静岡<% end if %> <% if judgeVal(strVal,"14") then %>神奈川<% else %>神奈川<% end if %>
<% if judgeVal(strVal,"45") then %>宮崎<% else %>宮崎<% end if %> <% if judgeVal(strVal,"39") then %>高知<% else %>高知<% end if %> <% if judgeVal(strVal,"36") then %>徳島<% else %>徳島<% end if %>
<% if judgeVal(strVal,"46") then %>鹿児島<% else %>鹿児島<% end if %>
<% if judgeVal(strVal,"47") then %>沖縄<% else %>沖縄<% end if %>

QRコード

QRコードを読み取って携帯からアクセス!
携帯電話にサイトURLを送る

  不動産会社・マンション建設会社の方へ
レントライフFC加盟店募集!! 加盟店全店に「利益が上がる不動産管理業」のノウハウをご提供!
アパマンステーション レントライフネットワーク Copyright(c) 2004- Rent Life. All rights reserved.