<% '07/11/12 王君偉 EDIT %> 賃貸・管理のレントライフ、アパート・マンション情報 <% call funGetData 'strArea =request.QueryString("strArea") strTenpoID =checkSql(request.QueryString("strTenpoID")) strCondition=checkSql(request.QueryString("strCondition")) if len(request.Form("condition"))=1 then strCondition=checkSql(request.Form("condition")) end if strcampaign =checkSql(request.Form("campaign")) if request.Form("hidtenpoid") <> "" then strTenpoID = checkSql(request.Form("hidtenpoid")) end if prefID = checkSql(request.Form("hidpubno")) if request.Form("strJkanrino") <> "" then strJkanrino = checkSql(request.Form("strJkanrino")) 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")) '築年数 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 '画像 objHavephoto = Split(checkSql(request.Form("havephoto")), ", ") 'こだわり条件 '位置 objHouseplace = Split(checkSql(request.Form("houseplace")), ", ") 'その他 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 searchtype = "2" then strCondition = "6" elseif searchtype = "3" then strCondition = "7" end if if searchtype = "" then if strCondition = "6" then searchtype = "2" elseif strCondition = "7" then searchtype = "3" end if end if if strTenpoID <> "" then strSql="select sale from Tenpojyouho where Tenpono='" & strTenpoID & "'" set strRes=server.CreateObject("adodb.recordset") strRes.open strSql,g_bancho if strRes.eof=false and strRes.bof=false then intsale=strRes(0) end if strRes.close set strRes=nothing end if 'if cstr(strArea)<>"" then ' g_strArea=strArea 'end if if cstr(strTenpoID)<>"" then g_strTenpoID=strTenpoID end if if cstr(strCondition)<>"" then g_strCondition=strCondition end if if cstr(strcampaign)="1" then g_strcampaign=strcampaign end if if strJkanrino<>"" then g_strJkanrino=strJkanrino end if 'strArea =g_strArea 'strTenpoID =g_strTenpoID 'strCondition=g_strCondition 'strcampaign =g_strcampaign 'strPrefIDと市区町村コードの両方がある場合 objPrefID = split(prefID, ",") if prefID <> "" then wherePostCity = "" wherePrefID = "" for i = 0 to UBound(objPostCity) if objPostCity(i) <> "" then wherePostCity = wherePostCity & objPostCity(i) & "," end if next if len(wherePostCity) > 0 then wherePostCity = mid(wherePostCity, 1, len(wherePostCity) - 1) strWhere = strWhere & " and Syozaichicode in(" & wherePostCity & ")" end if if wherePostCity = "" and prefID <> "" then for i = 0 to UBound(objPrefID) if objPrefID(i) <> "" then wherePrefID = wherePrefID & objPrefID(i) & "," end if next wherePrefID = mid(wherePrefID, 1, len(wherePrefID) - 1) strsql1 = strsql1 & " and left(Syozaichicode,len(Syozaichicode)-9) in(" & wherePrefID & ")" end if end if 'POSTパラメータに路線コードある場合 whereRosenNo = "" for i = 0 to UBound(objRosenNo) if objRosenNo(i) <> "" then whereRosenNo = whereRosenNo & objRosenNo(i) & "," end if next if len(whereRosenNo) > 0 then whereRosenNo = mid(whereRosenNo, 1, len(whereRosenNo) - 1) strWhere = strWhere & " and Rosen_code in(" & whereRosenNo & ") " end if 'POSTパラメータに駅コードある場合 whereTrainEkiNo = "" for i = 0 to UBound(objTrainEkiNo) if objTrainEkiNo(i) <> "" then whereTrainEkiNo = whereTrainEkiNo & objTrainEkiNo(i) & "," end if next if len(whereTrainEkiNo) > 0 then whereTrainEkiNo = mid(whereTrainEkiNo, 1, len(whereTrainEkiNo) - 1) strWhere = strWhere & " and Eki_code in(" & whereTrainEkiNo & ") " end if 'POSTパラメータに”賃料”ある場合 if chinryoFrom <> "0" and chinryoTo <> "0" then strWhere = strWhere & " and Chinryo BETWEEN " & chinryoFrom & " AND " & chinryoTo end if if chinryoFrom = "0" and chinryoTo <> "0" then strWhere = strWhere & " and Chinryo < " & chinryoTo end if if chinryoFrom <> "0" and chinryoTo = "0" then strWhere = strWhere & " and Chinryo > " & chinryoFrom end if 'POSTパラメータに”共益費/管理費”ある場合 if kyoekiKanrihi = "1" then strWhere = strWhere & " and Kyoeki1 = 0 " end if 'POSTパラメータに”礼金なし”がある場合 if reikin3 = "1" then strWhere = strWhere & " and ((Reikin1 = 0 AND Reikin2 = 0) OR Reikin3 = 1) " end if 'POSTパラメータに”敷金なし”がある場合 if shikikin3 = "1" then strWhere = strWhere & " and ((Shikikin1 = 0 AND Shikikin2 = 0) OR Shikikin3 = 1) " end if 'POSTパラメータに”築年数”がある場合 AND POSTパラメータに”築年数”<>0の場合 nowYear = int(mid(FormatDateTime(date(),vbShortDate), 1, 4)) nowMonth = int(mid(FormatDateTime(date(),vbShortDate), 6, 2)) if tikunen <> "0" then strWhere = strWhere & " and ((Chikugo <> 0 AND Chikugo <= " & tikunen & ") OR " strWhere = strWhere & " (Chikunen >= " & nowYear & " - " & tikunen strWhere = strWhere & " AND Chikugetsu > " & nowMonth & ") OR " strWhere = strWhere & " (Chikunen >= " & nowYear & " - " & tikunen & " AND Chikugetsu <= " & nowMonth & ")) " end if 'response.write(strWhere) 'POSTパラメータに”駅徒歩分”がある場合 AND POSTパラメータに”駅徒歩分”<>0の場合 if ekitoho <> "0" then strWhere = strWhere & "and ((Ekikyori <= " & ekitoho & "*80 and Ekikyori <> 0) or " strWhere = strWhere & "( Ekijikan <= " & ekitoho & " and Ekijikan<>0))" end if 'POSTパラメータに”画像”がある場合 for i = 0 to UBound(objHavephoto) if objHavephoto(i) = "1" then strWhere = strWhere & " and Madorizu <> ''" end if if objHavephoto(i) = "2" then strWhere = strWhere & " and Photo1 <> ''" end if next 'POSTパラメータにこだわり条件の”位置”がある場合 whereHouseplace = "" for i = 0 to UBound(objHouseplace) select case objHouseplace(i) case "1": if whereHouseplace = "" then whereHouseplace = whereHouseplace & " (Tate1 = 1 OR Tate3 = 1) " else whereHouseplace = whereHouseplace & " or (Tate1 = 1 OR Tate3 = 1) " end if case "2": if whereHouseplace = "" then whereHouseplace = whereHouseplace & " (Tate3 > 1 AND Tate1 > 1) " else whereHouseplace = whereHouseplace & " or (Tate3 > 1 AND Tate1 > 1) " end if case "3": if whereHouseplace = "" then whereHouseplace = whereHouseplace & " Tate3 = Tate1 " else whereHouseplace = whereHouseplace & " or Tate3 = Tate1 " end if end select next if whereHouseplace <> "" then strWhere = strWhere & " and (" & whereHouseplace & ")" end if 'POSTパラメータにこだわり条件の設備項目がある場合 whereSetsubi = "" for i = 0 to UBound(objSetsubi) if objSetsubi(i) <> "" then if len(whereSetsubi) > 0 then if objSetsubi(i) = "1" then whereSetsubi = whereSetsubi & " and Setsubi like '" & objSetsubi(i) & ",%' " else whereSetsubi = whereSetsubi & " and Setsubi like '%," & objSetsubi(i) & ",%' " end if else if objSetsubi(i) = "1" then whereSetsubi = whereSetsubi & " Setsubi like '" & objSetsubi(i) & ",%' " else whereSetsubi = whereSetsubi & " Setsubi like '%," & objSetsubi(i) & ",%' " end if end if end if next 'POSTパラメータにこだわり条件:その他の設備の”駐車場あり”がある場合 whereHavestop = "" if havestop = "1" then if len(whereSetsubi) > 0 then whereHavestop = " or Chushajyo3 NOT IN(1,2)" else whereHavestop = " Chushajyo3 NOT IN(1,2)" end if end if if len(whereSetsubi) + len(whereHavestop) > 0 then strWhere = strWhere & " and (" & whereSetsubi & whereHavestop & ") " end if 'POSTパラメータに”面積”がある場合 if mensekiFrom <> "0" and mensekiTo <> "0" then strWhere = strWhere & " and tatemonomenseki BETWEEN " & mensekiFrom & " AND " & mensekiTo end if if mensekiFrom = "0" and mensekiTo <> "0" then strWhere = strWhere & " and tatemonomenseki < " & mensekiTo end if if mensekiFrom <> "0" and mensekiTo = "0" then strWhere = strWhere & " and tatemonomenseki > " & mensekiFrom end if stroldsort=checkSql(request.Form("oldsort")) if request.Form("newsort")<>"" then strnewsort=checkSql(request.Form("newsort")) else strnewsort="1" end if strsort="" strsortstring="" if stroldsort=strnewsort then strsortstring=" desc " stroldsort="" else stroldsort=strnewsort end if if strnewsort<>"" then if strnewsort="1" then if request.Form("newsort")<>"" then strsort= " order by skotsu " & strsortstring else strsort= " order by Keisaihi desc,Jkanrino " & strsortstring end if elseif strnewsort="2" then strsort= " order by chinryo " & strsortstring elseif strnewsort="3" then strsort= " order by rosen " & strsortstring end if end if 'strHrefPrm="strArea=" & strArea & "&strTenpoID=" & strTenpoID & "&strCondition=" & strCondition 'strHrefPrm=strHrefPrm & "&strcampaign=" & strcampaign & "&oldsort=" & stroldsort strHrefPrm2="strTenpoID=" & strTenpoID 'strWhere="" if strTenpoID<>"" then strWhere=strWhere & " and tkanrino=" & strTenpoID end if 'if strArea<>"" then ' strAreaSql="select Areateigi from Areajyouhou where Areano=" & strArea ' set AreaRs = g_bancho.Execute(strAreaSql) ' do while AreaRs.eof=false ' strAreaString=AreaRs(0) ' exit do ' loop ' if strAreaString<>"" then ' 'response.Write(funCreateAreaSql("Shozaichi",strAreaString)) ' strWhere=strWhere & " and (" & funCreateAreaSql("Prefecture",strAreaString) ' strWhere=strWhere & " or " & funCreateAreaSql("City",strAreaString) ' strWhere=strWhere & " or " & funCreateAreaSql("skotsu",strAreaString) & ") " ' 'strWhere=strWhere & " and (Loarea1=" & strArea & " or Loarea2=" & strArea & ")" ' end if 'end if if cstr(strcampaign)="1" then strWhere=strWhere & " and Campaign1 = " & strcampaign end if if cstr(strCondition)="7" then strWhere=strWhere & " and Shumoku=23" end if strsql="select * from (select Jkanrino,skotsu,chinryo,kyoeki1,shikikin1," strsql=strsql & "shikikin2,shikikin3,reikin1,reikin2,reikin3,kouzo,tate3,Hikiwtashi1,Hikiwtashi2,Hikiwtashi3,Hikiwtashi4," strsql=strsql & "Campaign1,Tesuuryo2,Rosen,Keisaihi FROM Tintaijigyou AS tji INNER JOIN Tenpojyouho AS tj ON tji.Tkanrino=tj.Tenpono where Keisai=1" strsql=strsql & strWhere & ") as Tintaijigyou" & strsort set rs=server.CreateObject("adodb.recordset") 'response.write(strsql) rs.open strsql,g_bancho,1,1 intSum=rs.recordcount rs.close set rs=nothing if cstr(strTenpoID)<>"" then strSql="select susumei from tenpojyouho where tenpono=" & strTenpoID set rs = g_bancho.Execute(strSql) if rs.eof=false and rs.bof=false then strOsusume=rs("susumei") end if rs.close set rs=nothing 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 strTenpoID<>"" then%>店舗トップページ|<%end if%>
携帯へURLを送る→携帯アドレス入力:
レントライフ総合案内豆知識免責FC店募集プライバシーポリシー
1R・1K・1DK1LDK・2K・2DK2LDK・3K・3DK3LDK以上戸建テナント・事業用駐車場|<%if strTenpoID<>"" and strOsusume<>"" then%>おすすめ<%else%>おすすめ<%end if%>|キャンペーン|<%if intsale=1 then%>売買<%else%>売買<%end if%>|
<%call funHiddenControl%> <%if intSum<1 then%>





該当物件が見つかりません












<%else%>
絞り込み検索       
> キャンペーン物件  

<% prefShow = "" wherePostCity1 = "" for i = 0 to UBound(objPostCity) if objPostCity(i) <> "" then wherePostCity1 = wherePostCity1 & mid(objPostCity(i), 1, len(objPostCity(i)) - 6) & "," end if next if len(wherePostCity1) > 0 then prefNum = 0 postCityNum = 1 wherePostCity1 = mid(wherePostCity1, 1, len(wherePostCity1) - 1) strSql="SELECT DISTINCT LEFT(POST_PUBLIC_CODE,LEN(POST_PUBLIC_CODE)-3) as PREF_PUBNO,POST_PREFECTURE,POST_CITY" strSql=strSql & " FROM TBL_POSTCODE WHERE POST_PUBLIC_CODE IN(" & wherePostCity1 & ")" set res=server.CreateObject("adodb.recordset") res.open strSql,g_bancho prefCode = "" do while res.eof=false if prefCode = cstr(res("PREF_PUBNO")) then if postCityNum < 4 then prefShow = prefShow & "「" & res("POST_CITY") & "」" postCityNum = postCityNum + 1 elseif postCityNum = 4 then prefShow = prefShow & "など" postCityNum = postCityNum + 1 end if else if prefNum < 2 then prefCode = cstr(res("PREF_PUBNO")) if prefNum = 1 then prefShow = prefShow & "
" end if prefShow = prefShow & res("POST_PREFECTURE") & "「" & res("POST_CITY") & "」" prefNum = prefNum + 1 postCityNum = 1 end if end if res.movenext loop res.close set res=nothing else wherePrefID1 = "" if prefID <> "" then for i = 0 to UBound(objPrefID) if objPrefID(i) <> "" then if i > 0 then wherePrefID1 = wherePrefID1 & " OR " end if wherePrefID1 = wherePrefID1 & " POST_PUBLIC_CODE LIKE '" & objPrefID(i) & "___'" end if next strSql="SELECT DISTINCT LEFT(POST_PUBLIC_CODE,LEN(POST_PUBLIC_CODE)-3) as PREF_PUBNO,POST_PREFECTURE" strSql=strSql & " FROM TBL_POSTCODE WHERE " & wherePrefID1 set res=server.CreateObject("adodb.recordset") res.open strSql,g_bancho prefCode = "" prefNum = 0 do while res.eof=false if prefCode <> cstr(res("PREF_PUBNO")) then if prefNum < 4 then if prefNum > 0 then prefShow = prefShow & "・" end if prefShow = prefShow & res("POST_PREFECTURE") prefNum = prefNum + 1 elseif prefNum = 4 then prefShow = prefShow & "など" prefNum = prefNum + 1 end if 'prefCode = cstr(res("PREF_PUBNO")) end if res.movenext loop res.close set res=nothing else prefShow = "指定なし" end if end if trainRosenShow = "" whereTrainEkiNo1 = "" for i = 0 to UBound(objTrainEkiNo) if objTrainEkiNo(i) <> "" then whereTrainEkiNo1 = whereTrainEkiNo1 & objTrainEkiNo(i) & "," end if next if len(whereTrainEkiNo1) > 0 then rosenNoNum = 0 trainEkiNoNum = 1 whereTrainEkiNo1 = mid(whereTrainEkiNo1, 1, len(whereTrainEkiNo1) - 1) strSql="SELECT TRAIN_ROSEN_NO,TRAIN_ROSEN_NAME,TRAIN_EKI_NO,TRAIN_EKI_NAME FROM TBL_TRAIN " strSql=strSql & " WHERE TRAIN_EKI_NO IN (" & whereTrainEkiNo1 & ")" set res=server.CreateObject("adodb.recordset") res.open strSql,g_bancho rosenCode = "" do while res.eof=false if rosenCode = cstr(res("TRAIN_ROSEN_NO")) then if trainEkiNoNum < 4 then trainRosenShow = trainRosenShow & "・" & res("TRAIN_EKI_NAME") trainEkiNoNum = trainEkiNoNum + 1 elseif trainEkiNoNum = 4 then trainRosenShow = trainRosenShow & "など" trainEkiNoNum = trainEkiNoNum + 1 end if else if rosenNoNum < 2 then rosenCode = cstr(res("TRAIN_ROSEN_NO")) trainRosenShow = trainRosenShow & "
" trainRosenShow = trainRosenShow & res("TRAIN_ROSEN_NAME") & ":" & res("TRAIN_EKI_NAME") rosenNoNum = rosenNoNum + 1 trainEkiNoNum = 1 end if end if res.movenext loop res.close set res=nothing else whereRosenNo1 = "" for i = 0 to UBound(objRosenNo) if objRosenNo(i) <> "" then whereRosenNo1 = whereRosenNo1 & objRosenNo(i) & "," end if next if whereRosenNo1 <> "" then whereRosenNo1 = mid(whereRosenNo1, 1, len(whereRosenNo1) - 1) strSql="SELECT TRAIN_ROSEN_NO,TRAIN_ROSEN_NAME,TRAIN_EKI_NO,TRAIN_EKI_NAME FROM TBL_TRAIN " strSql=strSql & " WHERE TRAIN_ROSEN_NO IN (" & whereRosenNo1 & ")" set res=server.CreateObject("adodb.recordset") res.open strSql,g_bancho rosenCode = "" rosenNoNum = 0 trainRosenShow = trainRosenShow & "
" do while res.eof=false if rosenCode <> cstr(res("TRAIN_ROSEN_NO")) then if rosenNoNum < 4 then if rosenNoNum > 0 then trainRosenShow = trainRosenShow & "・" end if trainRosenShow = trainRosenShow & res("TRAIN_ROSEN_NAME") rosenNoNum = rosenNoNum + 1 elseif rosenNoNum = 4 then trainRosenShow = trainRosenShow & "など" rosenNoNum = rosenNoNum + 1 end if rosenCode = cstr(res("TRAIN_ROSEN_NO")) end if res.movenext loop res.close set res=nothing else trainRosenShow = "
沿線:指定なし" end if end if %> 所在地:<%=prefShow%> <%=trainRosenShow%>
<% if prefShow <> "指定なし" or trainRosenShow <> "
沿線:指定なし" then %> 所在地を変える
<% end if if request.Form("trainEkiNo") <> "" then %> 路線・駅を変える <% end if %>
物件種別
賃料(駐車場除く)
面積
築年数
駅徒歩分
<% if searchtype = "1" then searchtypeShow = "アパート・マンション・戸建" elseif searchtype = "2" then searchtypeShow = "テナント・事業用" elseif searchtype = "3" then searchtypeShow = "駐車場" end if %> <%=searchtypeShow%>
<% chinryoFromNum = 0 chinryoToNum = 0 if chinryoFrom = "0" then chinryoShow = chinryoShow & "指定なし" else chinryoFromNum = clng(chinryoFrom) / 10000 chinryoShow = chinryoShow & cstr(chinryoFromNum) & "万" end if chinryoShow = chinryoShow & "〜" if chinryoTo = "0" then chinryoShow = chinryoShow & "指定なし" else chinryoToNum = clng(chinryoTo) / 10000 chinryoShow = chinryoShow & cstr(chinryoToNum) & "万" end if %> <%=chinryoShow%>
<% if mensekiFrom = "0" then mensekiShow = mensekiShow & "指定なし" else mensekiShow = mensekiShow & mensekiFrom & "u" end if mensekiShow = mensekiShow & "〜" if mensekiTo = "0" then mensekiShow = mensekiShow & "指定なし" else mensekiShow = mensekiShow & cstr(mensekiTo) & "u" end if %> <%=mensekiShow%>
<% if tikunen = "0" then tikunenShow = "指定なし" elseif tikunen = "1" then tikunenShow = "新築" else tikunenShow = tikunen & "年以内" end if %> <%=tikunenShow%>
<% if ekitoho = "0" then ekitohoShow = "指定なし" else ekitohoShow = ekitoho & "分以内" end if %> <%=ekitohoShow%>
<% termNum = 0 termShow = "" for i = 0 to UBound(objHouseplace) if objHouseplace(i) <> "" then if termNum = 4 then termShow = termShow & "など" termNum = termNum + 1 end if if termNum > 3 then exit for end if if termNum > 0 then termShow = termShow & "、" end if select case objHouseplace(i) case "0": termShow = termShow & "南向き" case "1": termShow = termShow & "1階の物件" case "2": termShow = termShow & "2階以上の物件" case "3": termShow = termShow & "最上階の物件" case "4": termShow = termShow & "角部屋" end select termNum = termNum + 1 end if next for i = 0 to UBound(objSearchid) if objSearchid(i) <> "" then if termNum = 4 then termShow = termShow & "など" termNum = termNum + 1 end if if termNum > 3 then exit for end if if termNum > 0 then termShow = termShow & "、" end if select case objSearchid(i) case "89": termShow = termShow & "楽器相談" case "63": termShow = termShow & "2人入居可" case "64": termShow = termShow & "分譲タイプ" case "69": termShow = termShow & "バリアフリー" case "92": termShow = termShow & "即入居可" case "79": termShow = termShow & "事務所可" case "91": termShow = termShow & "保証人不要" case "22": termShow = termShow & "システムキッチン" case "10": termShow = termShow & "ガスコンロ" case "24": termShow = termShow & "冷蔵庫あり" case "30": termShow = termShow & "カウンターキッチン" case "1": termShow = termShow & "バス・トイレ別" case "15": termShow = termShow & "追い焚き" case "25": termShow = termShow & "シャンプードレッサー" case "26": termShow = termShow & "シャワートイレ" case "27": termShow = termShow & "浴室乾燥機" case "8": termShow = termShow & "エアコン" case "50": termShow = termShow & "床暖房" case "33": termShow = termShow & "暖房" case "38": termShow = termShow & "冷房" case "31": termShow = termShow & "クローゼット" case "40": termShow = termShow & "床下収納" case "41": termShow = termShow & "トランクルーム" case "23": termShow = termShow & "CATV" case "34": termShow = termShow & "CSアンテナ" case "19": termShow = termShow & "BSアンテナ" case "35": termShow = termShow & "有線放送" case "13": termShow = termShow & "光ファイバー" case "16": termShow = termShow & "オートロック" case "28": termShow = termShow & "TVドアホン" case "32": termShow = termShow & "宅配ボックス" case "17": termShow = termShow & "エレベーター" case "7": termShow = termShow & "室内洗濯機置場" case "14": termShow = termShow & "フローリング" case "29": termShow = termShow & "ロフト付き" case "39": termShow = termShow & "専用庭" case "44": termShow = termShow & "バイク置き場あり" case "21": termShow = termShow & "駐輪場あり" case "9": termShow = termShow & "バルコニー" case "78": termShow = termShow & "出窓" case "12": termShow = termShow & "都市ガス" case "77": termShow = termShow & "タイル貼り" case "53": termShow = termShow & "オール電化" case "11": termShow = termShow & "プロパンガス" end select termNum = termNum + 1 end if next if havestop = "1" and termNum < 4 then if termNum > 0 then termShow = termShow & "、" end if termShow = termShow & "駐車場あり" end if if havestop = "1" and termNum = 4 then termShow = termShow & "など" end if if termShow = "" then termShow = "指定なし" end if %> 設備・条件:<%=termShow%>
<% if termShow <> "指定なし" then if request.Form("trainEkiNo") <> "" then urlValue = "javascript:funFormCheck(5)" else urlValue = "javascript:funFormCheck(4)" end if %> 条件を変える <% end if %>

<% if cstr(strCondition)="7" then intForBegin=23 intForEnd=23 call SubNetworkVisitLog(funVarToNum(strTenpoID)) if strTenpoID<>"" then call SubIntegrationVisitLog(funVarToNum(strTenpoID),4,"駐車場物件ページ",g_strURLstring & "jigyo/index.asp?strTenpoID=" & g_strTenpoID & "&strCondition=7") end if call SubIntegrationVisitLog(funVarToNum(strTenpoID),7,"駐車場","") else intForBegin=1 intForEnd=23 call SubNetworkVisitLog(funVarToNum(strTenpoID)) if strTenpoID<>"" then call SubIntegrationVisitLog(funVarToNum(strTenpoID),4,"事業用物件ページ",g_strURLstring & "jigyo/index.asp?strTenpoID=" & g_strTenpoID & "&strCondition=6") end if call SubIntegrationVisitLog(funVarToNum(strTenpoID),7,"テナント・事業用","") end if intj=1 for intShumoku=intForBegin to 23 strWhere1="" if cstr(strCondition)<>"7" then strWhere1=" and Shumoku=" & intShumoku end if strsql="SELECT * FROM ( select Jkanrino,skotsu,chinryo,kyoeki1,Chikunen,Chikugetsu,Chikugo," strsql=strsql & "shikikin1,shikikin2,shikikin3,reikin1,reikin2,reikin3,kouzo,tate1,tate3,Hikiwtashi1,Hikiwtashi2,Hikiwtashi3,Hikiwtashi4," strsql=strsql & "Tatemonomenseki,Campaign1,Tesuuryo2,Rosen,Eki,Keisaihi FROM Tintaijigyou AS tji INNER JOIN Tenpojyouho AS tj ON tji.Tkanrino=tj.Tenpono where Keisai=1 " strsql=strsql & strWhere & strWhere1 & ") as Tintaikyojyuu" & strsort set rs=server.CreateObject("adodb.recordset") 'response.Write(strsql) rs.open strsql,g_bancho,1,1 if rs.recordcount>0 then if intj>1 then %>




<% end if %>
<%=funShumoku2(intShumoku)%>
 ↓ 全ての物件にチェックする ※▼をクリックをすると並び替えができます
<% intM=1 strTr=" " do while rs.eof=false if intM mod 2 = 1 then %> <%=strTr%> <% else %> <% end if %> <% intM=intM+1 rs.movenext loop %>
詳細
所在地
家賃
敷金
構造
総階数
入居日
アイコン情報
最寄り駅
共益費
礼金
所在階
">
<%=rs("Jkanrino")%>
')"><%=rs("skotsu")%>
<%=rs("Rosen")%>/<%=rs("Eki")%>

<%=formatnumber(rs("chinryo"),0)%>円
<%if rs("shikikin2")<>"0" then%> <%=formatnumber(rs("shikikin2"),0)%>円 <%elseif rs("shikikin1")<>"0" then%> <%=rs("shikikin1")%>ヶ月 <%end if%>
<%=funKouzo(rs("kouzo"))%> <%if rs("Tate1")<>"0" then%>
<%=rs("Tate1")%>階
<%end if%>
<% strnyukyobi="" if rs("Hikiwtashi3")=1 or rs("Hikiwtashi3")=2 then strnyukyobi=strnyukyobi & funNyukyobi3(rs("Hikiwtashi3")) & " " end if if rs("Hikiwtashi1")<>0 then strnyukyobi=strnyukyobi & rs("Hikiwtashi1") & "/" end if if rs("Hikiwtashi2")<>0 then strnyukyobi=strnyukyobi & rs("Hikiwtashi2") & "/" end if if rs("Hikiwtashi4")<>0 then strnyukyobi=strnyukyobi & funNyukyobi4(rs("Hikiwtashi4")) end if%> <%=strnyukyobi%> <%if cstr(rs("Campaign1"))="1" then%> <%end if%> <% intKin="0" if rs("shikikin3")=1 then intKin="1" else intKin="1" if rs("shikikin3")<>1 then intKin="0" end if end if%> <% intKin2="0" if rs("reikin3")=1 then intKin2="1" else intKin2="1" if rs("reikin3")<>1 then intKin2="0" end if end if%> <%if intKin="1" then%> <%end if%> <%if intKin2="1" then%> <%end if%>
<%if rs("kyoeki1")<>"0" then%> <%=formatnumber(rs("kyoeki1"),0)%>円 <%else%> 共益費込み <%end if%>
<%if rs("reikin2")<>"0" then%> <%=formatnumber(rs("reikin2"),0)%>円 <%elseif rs("reikin1")<>"0" then%> <%=rs("reikin1")%>ヶ月 <%end if%>
<%if rs("Tate3")<>"0" then%>
<%=rs("Tate3")%>階
<%end if%>

アイコンの説明
キャンペーン中のおトク物件!!
敷金ゼロ!
礼金ゼロ!

<% intj=intj+1 end if rs.close set rs=nothing next end if %>
 
アパマンステーション レントライフネットワーク Copyright(c) 2004- Rent Life. All rights reserved.