<% call funGetData() strArea=checkSql(request.QueryString("strArea")) strTenpoID=checkSql(request.QueryString("strTenpoID")) strCondition=checkSql(request.QueryString("strCondition")) strJkanrino=checkSql(request.QueryString("strJkanrino")) strReturnPage=checkSql(request.QueryString("strReturnPage")) strPrefID=checkSql(request.QueryString("strPrefID")) 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 if strArea<>"" or strArea<>null then g_strArea=strArea end if if strTenpoID<>"" or strTenpoID<>null then g_strTenpoID=strTenpoID end if call SubNetworkVisitLog(funVarToNum(g_strTenpoID)) if g_strTenpoID<>"" then call SubIntegrationVisitLog(g_strTenpoID,4,"キャンペーン物件ページ",g_strURLstring & "campaign/index.asp?strTenpoID=" & g_strTenpoID & "&strCondition=9") end if if strCondition<>"" or strCondition<>null then g_strCondition=strCondition end if if strJkanrino<>"" or strJkanrino<>null then g_strJkanrino=strJkanrino end if if strReturnPage<>"" or strReturnPage<>null then g_strReturnPage=strReturnPage end if strHrefPrm2="g_strTenpoID=" & g_strTenpoID & "&g_strArea=" & g_strArea call SubIntegrationVisitLog(0,7,"キャンペーン","") if g_strcouple<>"" then call SubIntegrationVisitLog(0,7,"カップル向き","") strPosition=strPosition & " and Tokkijikou like '%26,%'" end if if g_strpet<>"" then call SubIntegrationVisitLog(0,7,"ペット可","") strPosition=strPosition & " and Tokkijikou like '%28,%'" end if if g_strstudent<>"" then call SubIntegrationVisitLog(0,7,"学生歓迎","") strPosition=strPosition & " and Tokkijikou like '%27,%'" end if 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") if strOsusume<>"" then if mid(strOsusume,1,7)<>"http://" then strOsusume="http://" & strOsusume end if end if end if rs.close set rs=nothing end if blntemp=false strsql="select count(*) as count from Tintaikyojyuu where campaign1='1'" & strPosition & "and Keisai='" & 1 & "'" set rs=g_bancho.Execute(strsql) strCount1=rs("count") strsql="select count(*) as count from Tintaijigyou where Campaign1=1" & strPosition & "and Keisai='" & 1 & "'" set rs=g_bancho.Execute(strsql) strCount2=rs("count") if (strCount1+strCount2)>0 then blntemp=true end if 'strsqla="select * from Tintaikyojyuu where campaign1='1'" strsql="select * from Tintaikyojyuu where campaign1='1' and Keisai='" & 1 & "'" if g_strTenpoID<>"" then strsql1=strsql1 & " and tkanrino=" & g_strTenpoID else if g_strArea<>"" then strAreaSql="select Areateigi from Areajyouhou where Areano=" & g_strArea set AreaRs = g_bancho.Execute(strAreaSql) do while AreaRs.eof=false strAreaString=AreaRs(0) exit do loop 'response.Write(funCreateAreaSql("SyozaichiHiyouji",strAreaString)) 'strsql1=strsql1 & " and (Loarea1=" & g_strArea & " or Loarea2=" & g_strArea & ") " strsql1=strsql1 & " and " & funCreateAreaSql("City",strAreaString) end if end if if strPrefID<>"" then strsql1=strsql1 & " and SyozaichiCode Like '" & strPrefID & "_________'" end if strsql=strsql & strsql1 & strPosition & " and Shumoku1<>3 order by madori1,madori2" set rs=g_bancho.Execute(strsql) %> <% if checkSql(request.Form("submit"))="送信" and checkSql(request.Form("textfield"))<>"" then Set objMail=CreateObject("CDONTS.NewMail") objMail.From="rentnet@r-life.co.jp" objMail.To=checkSql(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<>"" or g_strTenpoID<>"" then%>|店舗トップページ<%end if%>|
携帯へURLを送る→携帯アドレス入力:
<% if blntemp=false then %>




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





<%else%> <%end if%> <% g_strReturnPage="campaign" call funHiddenControl()%>
> カップル向き  > ペット可   > 学生歓迎   
キャンペーン
 
<% inti=1 do while rs.eof=false strmadori="" strmadori1=rs("madori1") strmadori2=rs("madori2") if (strmadori1=1 and (strmadori2=1 or strmadori2=2 or strmadori2=3 or strmadori2=4)) or (strmadori1=0 and strmadori2=1) then strmadori="1R・1K・1DK" elseif (strmadori1=1 and (strmadori2=5 or strmadori2=6 or strmadori2=7 or strmadori2=8 or strmadori2=9)) then strmadori="1LDK・2K・2DK" elseif (strmadori1=2 and (strmadori2=1 or strmadori2=2 or strmadori2=3 or strmadori2=4)) then strmadori="1LDK・2K・2DK" elseif (strmadori1=2 and (strmadori2=5 or strmadori2=6 or strmadori2=7 or strmadori2=8 or strmadori2=9)) then strmadori="2LDK・3K・3DK" elseif (strmadori1=3 and (strmadori2=1 or strmadori2=2 or strmadori2=3 or strmadori2=4)) then strmadori="2LDK・3K・3DK" elseif (strmadori1=3 and (strmadori2=5 or strmadori2=6 or strmadori2=7 or strmadori2=8 or strmadori2=9)) then strmadori="3LDK以上" elseif strmadori1>3 then strmadori="3LDK以上" end if strnyukyobi="" if rs("nyukyobi3")=1 or rs("nyukyobi3")=2 then strnyukyobi=strnyukyobi & funNyukyobi3(rs("nyukyobi3")) & " " end if if rs("nyukyobi1")<>0 then strnyukyobi=strnyukyobi & rs("nyukyobi1") & "/" end if if rs("nyukyobi2")<>0 then strnyukyobi=strnyukyobi & rs("nyukyobi2") & "/" end if if rs("nyukyobi4")<>0 then strnyukyobi=strnyukyobi & funNyukyobi44(rs("nyukyobi4")) end if strsetsubivalue=rs("Setsubi") if strsetsubivalue<>"" then on error resume next myarray=split(strsetsubivalue,",") intSetsubi52=myarray(51) 'カードキー end if strtokkijikouvalue=rs("Tokkijikou") if strtokkijikouvalue<>"" then on error resume next myarray1=split(strtokkijikouvalue,",") intTokkijikou26=myarray1(25) 'カップル向き intTokkijikou27=myarray1(26) '学生向き intTokkijikou28=myarray1(27) 'ペット可(種類による intTokkijikou25=myarray1(24) '高齢者歓迎 intTokkijikou24=myarray1(23) '24時間セキュリティー end if intShikikin2=rs("shikikin2") intShikikin3=rs("shikikin3") '敷金なし intReikin2=rs("reikin2") intReikin3=rs("reikin3") '礼金なし intKin="0" if (intShikikin3=1) then intKin="1" end if intKin2="0" if (intReikin3=1) then intKin2="1" end if if inti mod 2=1 then %> <%else%> <% end if rs.movenext inti=inti+1 loop strsql="select * from Tintaikyojyuu where campaign1='1' and Keisai='" & 1 & "'" strsql=strsql & strsql1 & strPosition & " and Shumoku1=3 order by madori1,madori2" set rs=g_bancho.Execute(strsql) do while rs.eof=false strmadori="" strmadori1=rs("madori1") strmadori2=rs("madori2") strmadori="戸建" strnyukyobi="" if rs("nyukyobi3")=1 or rs("nyukyobi3")=2 then strnyukyobi=strnyukyobi & funNyukyobi3(rs("nyukyobi3")) & " " end if if rs("nyukyobi1")<>0 then strnyukyobi=strnyukyobi & rs("nyukyobi1") & "/" end if if rs("nyukyobi2")<>0 then strnyukyobi=strnyukyobi & rs("nyukyobi2") & "/" end if if rs("nyukyobi4")<>0 then strnyukyobi=strnyukyobi & funNyukyobi44(rs("nyukyobi4")) end if strsetsubivalue=rs("Setsubi") if strsetsubivalue<>"" then on error resume next myarray=split(strsetsubivalue,",") intSetsubi52=myarray(51) 'カードキー end if strtokkijikouvalue=rs("Tokkijikou") if strtokkijikouvalue<>"" then on error resume next myarray1=split(strtokkijikouvalue,",") intTokkijikou26=myarray1(25) 'カップル向き intTokkijikou27=myarray1(26) '学生向き intTokkijikou28=myarray1(27) 'ペット可(種類による intTokkijikou25=myarray1(24) '高齢者歓迎 intTokkijikou24=myarray1(23) '24時間セキュリティー end if intShikikin3=rs("shikikin3") '敷金なし intShikikin2=rs("shikikin2") intReikin3=rs("reikin3") '礼金なし intReikin2=rs("reikin2") intKin="0" if (intShikikin3=1) then intKin="1" end if intKin2="0" if (intReikin3=1) then intKin2="1" end if if inti mod 2=1 then %> <%else%> <%end if rs.movenext inti=inti+1 loop %> <% if g_strcouple="" and g_strpet="" and g_strstudent="" then strsql="select * from Tintaijigyou where Campaign1=1 and Shumoku<>23" & strsql1 & "and Keisai='" & 1 & "'" 'response.Write(strsql) set rs=g_bancho.Execute(strsql) do while rs.eof=false intShikikin3=rs("shikikin3") '敷金なし intShikikin2=rs("shikikin2") intReikin3=rs("reikin3") '礼金なし intReikin2=rs("reikin2") intKin="0" if intShikikin3="1" then intKin="1" end if intKin2="0" if intReikin3="1" then intKin2="1" end if if inti mod 2=1 then 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 %> <%else%> <%end if rs.movenext inti=inti+1 loop %> <% strsql="select * from Tintaijigyou where Campaign1=1 and Shumoku=23" & strsql1 & "and Keisai='" & 1 & "'" 'response.Write(strsql) set rs=g_bancho.Execute(strsql) do while rs.eof=false intShikikin3=rs("shikikin3") '敷金なし intShikikin2=rs("shikikin2") intReikin3=rs("reikin3") '礼金なし intReikin2=rs("reikin2") intKin="0" if intShikikin3="1" then intKin="1" end if intKin2="0" if intReikin3="1" then intKin2="1" end if if inti mod 2=1 then 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 %> <%else%> <%end if rs.movenext inti=inti+1 loop end if %>
<%=strmadori%>
<%if rs("Shinchiku")="1" then%>
新築物件!!
<%end if%> <%=formatShow(rs("campaign2"))%>
<%if rs("Gaikan")<>"" then%> " width="120" height="60"> <%else%> 外観写真 <%end if%>
<%if rs("Gaikanlacomment")<>"" then%>
<%=Replace(Replace(rs("Gaikanlacomment"),vbcrlf,"
")," "," ")%>
<%end if%>
所在地 <%=rs("SyozaichiHiyouji")%>
間取り <% if strmadori1=0 then %> <%=funMadori2(strmadori2)%> <% else %> <%=strmadori1%><%=funMadori2(strmadori2)%> <% End If %>
種別 <%=funShumoku1(rs("Shumoku1"))%>
家賃 <%=formatnumber(rs("chinryo"),0)%>円
共益費 <%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("shikikin2")<>"0" then%> <%=formatnumber(rs("shikikin2"),0)%>円 <%elseif rs("shikikin1")<>"0" then%> <%=rs("shikikin1")%>ヶ月 <%end if%>
構造 <%=funKouzo(rs("kouzo"))%>
総階数/所在階 <%if rs("ichi2")="1" then%> 平屋 <%else%> <%=rs("tate1")%>/<%=rs("ichi1")%> <%end if%>
入居日 <%=strnyukyobi%>
<%if intTokkijikou26="26" then%> <% end if if intTokkijikou28="28" then %> <% end if if intTokkijikou27="27" then %> <% end if if rs("campaign1")="1" then %> <%end if if rs("Shinchiku")="1" then %> <%end if if intKin="1" then %> <%end if if intKin2="1" then %> <%end if if intTokkijikou25="25" then%> <% end if if intSetsubi52="52" then%> <% end if if intTokkijikou24="24" then%> <% end if%>
<%=strmadori%>
<%if rs("Shinchiku")="1" then%>
新築物件!!
<%end if%> <%=formatShow(rs("campaign2"))%>
<%if rs("Gaikan")<>"" then%> " width="120" height="60"> <%else%> 外観写真 <%end if%>
<%if rs("Gaikanlacomment")<>"" then%>
<%=Replace(Replace(rs("Gaikanlacomment"),vbcrlf,"
")," "," ")%>
<%end if%>
所在地 <%=rs("SyozaichiHiyouji")%>
間取り <% if strmadori1=0 then %> <%=funMadori2(strmadori2)%> <% else %> <%=strmadori1%><%=funMadori2(strmadori2)%> <% End If %>
種別 <%=funShumoku1(rs("Shumoku1"))%>
家賃 <%=formatnumber(rs("chinryo"),0)%>円
共益費 <%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("shikikin2")<>"0" then%> <%=formatnumber(rs("shikikin2"),0)%>円 <%elseif rs("shikikin1")<>"0" then%> <%=rs("shikikin1")%>ヶ月 <%end if%>
構造 <%=funKouzo(rs("kouzo"))%>
総階数/所在階 <%if rs("ichi2")="1" then%> 平屋 <%else%> <%=rs("tate1")%>/<%=rs("ichi1")%> <%end if%>
入居日 <%=strnyukyobi%>
<%if intTokkijikou26="26" then%> <% end if if intTokkijikou28="28" then %> <% end if if intTokkijikou27="27" then %> <% end if if rs("campaign1")="1" then %> <%end if if rs("Shinchiku")="1" then %> <%end if if intKin="1" then %> <%end if if intKin2="1" then %> <%end if if intTokkijikou25="25" then%> <% end if if intSetsubi52="52" then%> <% end if if intTokkijikou24="24" then%> <% end if%>
<%=strmadori%>
<%if rs("Shinchiku")="1" then%>
新築物件!!
<%end if%> <%=formatShow(rs("campaign2"))%>
<%if rs("Gaikan")<>"" then%> " width="120" height="60"> <%else%> 外観写真 <%end if%>
<%if rs("Gaikanlacomment")<>"" then%>
<%=Replace(Replace(rs("Gaikanlacomment"),vbcrlf,"
")," "," ")%>
<%end if%>
所在地 <%=rs("SyozaichiHiyouji")%>
間取り <% if strmadori1=0 then %> <%=funMadori2(strmadori2)%> <% else %> <%=strmadori1%><%=funMadori2(strmadori2)%> <% End If %>
種別 <%=funShumoku1(rs("Shumoku1"))%>
家賃 <%=formatnumber(rs("chinryo"),0)%>円
共益費 <%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("shikikin2")<>"0" then%> <%=formatnumber(rs("shikikin2"),0)%>円 <%elseif rs("shikikin1")<>"0" then%> <%=rs("shikikin1")%>ヶ月 <%end if%>
構造 <%=funKouzo(rs("kouzo"))%>
総階数/所在階 <%if rs("ichi2")="1" then%> 平屋 <%else%> <%=rs("tate1")%>/<%=rs("ichi1")%> <%end if%>
入居日 <%=strnyukyobi%>
<%if intTokkijikou26="26" then%> <% end if if intTokkijikou28="28" then %> <% end if if intTokkijikou27="27" then %> <% end if if rs("campaign1")="1" then %> <%end if if rs("Shinchiku")="1" then %> <%end if if intKin="1" then %> <%end if if intKin2="1" then %> <% end if if intTokkijikou25="25" then%> <% end if if intSetsubi52="52" then%> <% end if if intTokkijikou24="24" then%> <% end if%>
<%=strmadori%>
<%if rs("Shinchiku")="1" then%>
新築物件!!
<%end if%> <%=formatShow(rs("campaign2"))%>
<%if rs("Gaikan")<>"" then%> " width="120" height="60"> <%else%> 外観写真 <%end if%>
<%if rs("Gaikanlacomment")<>"" then%>
<%=Replace(Replace(rs("Gaikanlacomment"),vbcrlf,"
")," "," ")%>
<%end if%>
所在地 <%=rs("SyozaichiHiyouji")%>
間取り <% if strmadori1=0 then %> <%=funMadori2(strmadori2)%> <% else %> <%=strmadori1%><%=funMadori2(strmadori2)%> <% End If %>
種別 <%=funShumoku1(rs("Shumoku1"))%>
家賃 <%=formatnumber(rs("chinryo"),0)%>円
共益費 <%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("shikikin2")<>"0" then%> <%=formatnumber(rs("shikikin2"),0)%>円 <%elseif rs("shikikin1")<>"0" then%> <%=rs("shikikin1")%>ヶ月 <%end if%>
構造 <%=funKouzo(rs("kouzo"))%>
総階数/所在階 <%if rs("ichi2")="1" then%> 平屋 <%else%> <%=rs("tate1")%>/<%=rs("ichi1")%> <%end if%>
入居日 <%=strnyukyobi%>
<%if intTokkijikou26="26" then%> <% end if if intTokkijikou28="28" then %> <% end if if intTokkijikou27="27" then %> <% end if if rs("campaign1")="1" then %> <%end if if rs("Shinchiku")="1" then %> <%end if if intKin="1" then %> <%end if if intKin2="1" then %> <%end if if intTokkijikou25="25" then%> <% end if if intSetsubi52="52" then%> <% end if if intTokkijikou24="24" then%> <% end if%>
テナント・事業所
<%=formatShow(rs("campaign2"))%>
<%if rs("Photo1")<>"" then%> " width="120" height="80"> <%else%> 外観写真 <%end if%>
<%if rs("Photo1comment")<>"" then%>
<%=Replace(Replace(rs("Photo1comment"),vbcrlf,"
")," "," ")%>
<%end if%>
所在地 <%=rs("SyozaichiHiyouji")%>
種別 <%=funShumoku2(rs("Shumoku"))%>
家賃 <%=formatnumber(rs("chinryo"),0)%>円
共益費 <%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("shikikin2")<>"0" then%> <%=formatnumber(rs("shikikin2"),0)%>円 <%elseif rs("shikikin1")<>"0" then%> <%=rs("shikikin1")%>ヶ月 <%end if%>
構造 <%=funKouzo(rs("kouzo"))%>
総階数/所在階 <%=rs("Tate1")%>/<%=rs("Tate3")%>
入居日 <%=strnyukyobi%>
<%if cstr(rs("Campaign1"))="1" then%> <%end if%> <%if intKin="1" then%> <%end if%> <%if intKin2="1" then%> <%end if%>
テナント・事業所
<%=formatShow(rs("campaign2"))%>
<%if rs("Photo1")<>"" then%> " width="120" height="80"> <%else%> 外観写真 <%end if%>
<%if rs("Photo1comment")<>"" then%>
<%=Replace(Replace(rs("Photo1comment"),vbcrlf,"
")," "," ")%>
<%end if%>
所在地 <%=rs("SyozaichiHiyouji")%>
種別 <%=funShumoku2(rs("Shumoku"))%>
家賃 <%=formatnumber(rs("chinryo"),0)%>円
共益費 <%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("shikikin2")<>"0" then%> <%=formatnumber(rs("shikikin2"),0)%>円 <%elseif rs("shikikin1")<>"0" then%> <%=rs("shikikin1")%>ヶ月 <%end if%>
構造 <%=funKouzo(rs("kouzo"))%>
総階数/所在階 <%=rs("Tate1")%>/<%=rs("Tate3")%>
入居日 <%=strnyukyobi%>
<%if cstr(rs("Campaign1"))="1" then%> <%end if%> <%if intKin="1" then%> <%end if%> <%if intKin2="1" then%> <%end if%>
駐車場
<%=formatShow(rs("campaign2"))%>
<%if rs("Photo1")<>"" then%> " width="120" height="80"> <%else%> 外観写真 <%end if%>
<%if rs("Photo1comment")<>"" then%>
<%=Replace(Replace(rs("Photo1comment"),vbcrlf,"
")," "," ")%>
<%end if%>
所在地 <%=rs("SyozaichiHiyouji")%>
種別 <%=funShumoku2(rs("Shumoku"))%>
家賃 <%=formatnumber(rs("chinryo"),0)%>円
共益費 <%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("shikikin2")<>"0" then%> <%=formatnumber(rs("shikikin2"),0)%>円 <%elseif rs("shikikin1")<>"0" then%> <%=rs("shikikin1")%>ヶ月 <%end if%>
構造 <%=funKouzo(rs("kouzo"))%>
総階数/所在階 <%=rs("Tate1")%>/<%=rs("Tate3")%>
入居日 <%=strnyukyobi%>
<%if cstr(rs("Campaign1"))="1" then%> <%end if%> <%if intKin="1" then%> <%end if%> <%if intKin2="1" then%> <%end if%>
駐車場
<%=formatShow(rs("campaign2"))%>
<%if rs("Photo1")<>"" then%> " width="120" height="80"> <%else%> 外観写真 <%end if%>
<%if rs("Photo1comment")<>"" then%>
<%=Replace(Replace(rs("Photo1comment"),vbcrlf,"
")," "," ")%>
<%end if%>
所在地 <%=rs("SyozaichiHiyouji")%>
種別 <%=funShumoku2(rs("Shumoku"))%>
家賃 <%=formatnumber(rs("chinryo"),0)%>円
共益費 <%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("shikikin2")<>"0" then%> <%=formatnumber(rs("shikikin2"),0)%>円 <%elseif rs("shikikin1")<>"0" then%> <%=rs("shikikin1")%>ヶ月 <%end if%>
構造 <%=funKouzo(rs("kouzo"))%>
総階数/所在階 <%=rs("Tate1")%>/<%=rs("Tate3")%>
入居日 <%=strnyukyobi%>
<%if cstr(rs("Campaign1"))="1" then%> <%end if%> <%if intKin="1" then%> <%end if%> <%if intKin2="1" then%> <%end if%>

アイコンの説明
カップル向けの物件。
ペットOK!
学生歓迎!
キャンペーン中のおトク物件!!
新築物件
敷金ゼロ!
礼金ゼロ!
高齢者歓迎
カードキー
24時間セキュリティー

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