不動産
不動産 不動産 不動産 不動産 不動産 不動産 不動産

<%else%> <%end if%> <%if jpeg2Path="../images/seieired.jpg"then%>
<% dim rs dim cn dim mySQL dim bukken_no dim madoriPath dim jpegPath dim BukkenShubetu dim mode '物件リストからの引数受け取り bukken_no=request("bukken_no") mySQL="SELECT *, 物件種別ID " mySQL=mySQL & "FROM 売買物件テーブル " mySQL=mySQL & "WHERE 物件ID=" & bukken_no mode=Request.QueryString("mode") '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 mySQL,cn '間取りのパス設定 madoriPath="../images/madori/" & rs.Fields("物件ID") & ".gif" jpeg1Path="../images/shasin/" & rs.Fields("物件ID") & "/" & rs.Fields("物件ID") & "-1.jpg" jpeg2Path="../images/shasin/" & rs.Fields("物件ID") & "/" & rs.Fields("物件ID") & "-2.jpg" '自社物件の場合は、写真を6枚設定する if rs.Fields("業者ID").Value=1 then jpeg3Path="../images/shasin/" & rs.Fields("物件ID") & "/" & rs.Fields("物件ID") & "-3.jpg" jpeg4Path="../images/shasin/" & rs.Fields("物件ID") & "/" & rs.Fields("物件ID") & "-4.jpg" jpeg5Path="../images/shasin/" & rs.Fields("物件ID") & "/" & rs.Fields("物件ID") & "-5.jpg" jpeg6Path="../images/shasin/" & rs.Fields("物件ID") & "/" & rs.Fields("物件ID") & "-6.jpg" end if '---------------------------------------- 'ファイルの存在確認 '---------------------------------------- dim ObjFSO Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") If ObjFSO.FileExists(Server.Mappath(madoriPath))=false Then madoriPath="../images/seieired.jpg" end if Set ObjFSO = Nothing Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") 'Response.Write ObjFSO.FileExists(Server.Mappath(jpeg1Path)) If ObjFSO.FileExists(Server.Mappath(jpeg1Path))=false Then jpeg1Path="../images/seieired.jpg" end if Set ObjFSO = Nothing Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") 'Response.Write ObjFSO.FileExists(Server.Mappath(jpeg2Path)) If ObjFSO.FileExists(Server.Mappath(jpeg2Path))=false Then jpeg2Path="../images/seieired.jpg" end if Set ObjFSO = Nothing '■■自社物件の場合■■ if rs.Fields("業者ID").Value=1 then Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") 'Response.Write ObjFSO.FileExists(Server.Mappath(jpeg2Path)) If ObjFSO.FileExists(Server.Mappath(jpeg3Path))=false Then jpeg3Path="../images/seieired.jpg" end if Set ObjFSO = Nothing Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") 'Response.Write ObjFSO.FileExists(Server.Mappath(jpeg2Path)) If ObjFSO.FileExists(Server.Mappath(jpeg4Path))=false Then jpeg4Path="../images/seieired.jpg" end if Set ObjFSO = Nothing Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") 'Response.Write ObjFSO.FileExists(Server.Mappath(jpeg2Path)) If ObjFSO.FileExists(Server.Mappath(jpeg5Path))=false Then jpeg5Path="../images/seieired.jpg" end if Set ObjFSO = Nothing Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject") 'Response.Write ObjFSO.FileExists(Server.Mappath(jpeg2Path)) If ObjFSO.FileExists(Server.Mappath(jpeg6Path))=false Then jpeg6Path="../images/seieired.jpg" end if Set ObjFSO = Nothing end if '物件種別変換 'BukkenShubetu=rs.Fields("物件種別ID") 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 %>
    物件ID : <%=rs.Fields("物件ID")%>   更新日  :  <%=rs.Fields("資料更新日")%>
<% '間取り表示ロジック if madoriPath="../images/seieired.jpg" then%> " <%else%> <%end if%> <%Response.Write ""%> <%if isnull(rs.Fields("バス停"))=true or isnull(rs.Fields("バス停より徒歩所要時間"))=true then%> <%else%> <%end if%> <% dim Tochitubo, Tatetubo '坪数表示用計算 if not isnull(rs.Fields("土地u"))=true then Tochitubo=Round(rs.Fields("土地u")*0.3025,2) end if if not isnull(rs.Fields("建物u"))=true then Tatetubo=Round(rs.Fields("建物u")*0.3025,2) end if %> <%if rs.Fields("物件種別ID")<>3 then %> <%elseif rs.Fields("物件種別ID")=5 then %> <%else%> <%end if%> <%if rs.Fields("物件種別ID")=5 then %> <%else%> <%end if%> <% '■■学区ごとのWEBリンクを張る■■ dim strGakkou,strGakkou2 '小学校リンク if rs.Fields("学区1")="田辺小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="薪小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="大住小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="草内小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="桃園小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="三山木小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="普賢寺小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="田辺東小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="松井ケ丘小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="精北小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="川西小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="山田荘小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="東光小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="精華台小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="木津小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="相楽小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="高の原小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="相楽台小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="木津川台小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="梅美台小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="笠置小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="和束小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="高尾小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="田山小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="野殿童仙房小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="大河原小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="上狛小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="棚倉小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="加茂小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="恭仁小学校" then strGakkou="" & rs.Fields("学区1") & "" elseif rs.Fields("学区1")="当尾小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="南加茂台小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="井手小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="多賀小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="井手小学校有王分校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="田原小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="宇治田原小学校" then strGakkou=rs.Fields("学区1") elseif rs.Fields("学区1")="奥山田小学校" then strGakkou=rs.Fields("学区1") end if '中学校リンク if rs.Fields("学区2")="田辺中学校" then strGakkou2="" & rs.Fields("学区2") & "" elseif rs.Fields("学区2")="培良中学校" then strGakkou2="" & rs.Fields("学区2") & "" elseif rs.Fields("学区2")="大住中学校" then strGakkou2="" & rs.Fields("学区2") & "" elseif rs.Fields("学区2")="精華中学校" then strGakkou2="" & rs.Fields("学区2") & "" elseif rs.Fields("学区2")="精華南中学校" then strGakkou2=rs.Fields("学区1") elseif rs.Fields("学区2")="精華西中学校" then strGakkou2="" & rs.Fields("学区2") & "" elseif rs.Fields("学区2")="木津中学校" then strGakkou2="" & rs.Fields("学区2") & "" elseif rs.Fields("学区2")="木津第二中学校" then strGakkou2=rs.Fields("学区2") elseif rs.Fields("学区2")="笠置町南山城村組合立笠置中学校" then strGakkou2=rs.Fields("学区2") elseif rs.Fields("学区2")="和束中学校" then strGakkou2=rs.Fields("学区2") elseif rs.Fields("学区2")="山城中学校" then strGakkou2=rs.Fields("学区2") elseif rs.Fields("学区2")="泉川中学校" then strGakkou2=rs.Fields("学区2") elseif rs.Fields("学区2")="泉ヶ丘中学校" then strGakkou2=rs.Fields("学区2") elseif rs.Fields("学区2")="維孝館中学校" then strGakkou2="" & rs.Fields("学区2") & "" end if %> <%'広告不可ページの場合と成約物件の場合は写真表示無し if mode<>"untouchable_Ad" and (rs.Fields("物件状況ID").Value=1 or rs.Fields("物件状況ID").Value=2 or rs.Fields("物件状況ID").Value=5) then%> <%'自社物件の場合は写真6枚・コメントつきに変更 2002/12/3 岸野 if rs.Fields("業者ID").Value=1 then%> <%if jpeg1Path="../images/seieired.jpg"then%> <%else%> <%end if%> <%if jpeg2Path="../images/seieired.jpg"then%> <%else%> <%end if%>
価格<%=rs.Fields("価格")%>万円
クリックすると拡大します。
align=center height=230 alt="クリックすると拡大します。">
物件種別" & BukkenShubetu & "
所在地<%=rs.Fields("物件所在地")%>
交通電車 <%=rs.Fields("沿線")%><%=rs.Fields("最寄駅")%>より徒歩<%=rs.Fields("徒歩所要時間")%>分
バス----
<%=rs.Fields("バス停")%>より徒歩<%=rs.Fields("バス停より徒歩所要時間")%>分(乗車時間<%=rs.Fields("バス乗車時間")%>分)
土地
土地面積
<%=rs.Fields("土地u")%>u (<%=Tochitubo%>坪)
建物 延床面積
<%=rs.Fields("建物u")%>u (<%=Tatetubo%>坪)
土地土地面積
<%=rs.Fields("土地u")%>u (<%=Tochitubo%>坪)
建物 延床面積
---u (---坪)
建物専有面積
<%=rs.Fields("土地u")%>u (<%=Tochitubo%>坪)
バルコニー バルコニー面積<%=rs.Fields("建物u")%>u (<%=Tatetubo%>坪)
築年数 ---
建物構造
---
間取り ---
築年数 <%=rs.Fields("築年数")%>
建物構造 <%=rs.Fields("建物構造")%>
間取り <%=rs.Fields("部屋数")%><%=rs.Fields("間取り")%>
現況 現況<%=rs.Fields("現況")%>
引渡 <%=rs.Fields("引渡")%>
備考

<%=rs.Fields("備考")%>

学区

<%=rs.fields("学区1")%> 

<%=rs.fields("学区2")%> 

周辺写真1 周辺写真2
クリックすると拡大します。
クリックすると拡大します。
<%=rs.Fields("PicComment1").Value%> <%=rs.Fields("PicComment2").Value%>
周辺写真3 周辺写真4
クリックすると拡大します。 クリックすると拡大します。
<%=rs.Fields("PicComment3").Value%> <%=rs.Fields("PicComment4").Value%>
周辺写真5 周辺写真6
クリックすると拡大します。 クリックすると拡大します。
<%=rs.Fields("PicComment5").Value%> <%=rs.Fields("PicComment6").Value%>
<%else%> <%if jpeg1Path="../images/seieired.jpg"then%>
クリックすると拡大します。
<%else%>
クリックすると拡大します。
<%end if%> <%end if%>
"> "> <%else%> <%if rs.Fields("物件状況ID").Value=3 then%>
『<%=rs.fields("物件所在地")%><%=rs.fields("価格")%>万円』は成約済みです。 <%else%>
<%end if%> <%end if%>
   詳細
<%if rs.Fields("物件種別ID")<>3 then%> <%end if%> <%if rs.Fields("物件種別ID")=5 or rs.Fields("物件種別ID")=8 then%> <%elseif rs.Fields("物件種別ID")<>3 then%> <%else%> <%end if%> <%if rs.Fields("物件種別ID")<>3 then%> <%else%> ---- m接面 <%end if%> <%end if%> <%if rs.Fields("物件種別ID")=3 then%> <%end if%>
土地
私道面積<%=rs.Fields("私道面積")%>u 都市計画<%=rs.Fields("都市計画")%>
地目<%=rs.Fields("地目")%> 用途地域<%=rs.Fields("用途地域")%>
土地権利<%=rs.Fields("土地権利")%> 建ぺい率<%=rs.Fields("建ぺい率")%>%
容積率<%=rs.Fields("容積率")%>% 国土法届<%=rs.Fields("国土法届")%>
建物
1F<%=rs.Fields("1F")%>u 2F<%=rs.Fields("2F")%>u
3F<%=rs.Fields("3F")%>u その他<%=rs.Fields("その他")%>u
階数<%=rs.Fields("階数")%>階 地下<%=rs.Fields("地下")%>階
建物
階数<%=rs.Fields("階数")%>階建て 所在階<%=rs.Fields("地下")%>階部分
設備
下水<%=rs.Fields("下水")%> ガス<%=rs.Fields("ガス")%>
駐車場<%=rs.Fields("駐車場")%> <%=rs.Fields("台数")%>台
法令上の制限1<%=rs.Fields("法令上の制限")%>  法令上の制限2<%=rs.Fields("法令上の制限2")%> 
道路
接道状況<%=rs.Fields("接道状況")%>  位置指定<%=rs.Fields("位置指定")%> 
接道方向<%=rs.Fields("接道方向")%>  幅員<%=rs.Fields("幅員")%>m
接道方向 <% if rs.Fields("接道方向2")="" then response.write "--" else response.write rs.fields("接道方向2") end if %> 幅員 <% if rs.Fields("幅員2")="" then response.write "--m" else response.write rs.fields("幅員2") & "m" end if %>
接面道<%=rs.Fields("接面道")%>に <%if rs.Fields("接面幅").Value<>"" then%> <%=rs.Fields("接面幅")%>m接面
現況
引渡し期日<%=rs.Fields("引渡期日")%> 
その他費用
管理費<%=rs.Fields("管理費")%>円 修繕積立費<%=rs.Fields("修繕積立金")%>円

<%if rs.Fields("物件状況ID").Value=3 then%> 『<%=rs.fields("物件所在地")%><%=rs.fields("価格")%>万円』は成約済みです。 <%else%> "> "> <%end if%>

<% rs.Close set rs=nothing cn.Close set cn=nothing %>




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