<% 'ON ERROR RESUME NEXT '--------------------------------------------------------- PROJC = request.querystring("PRID") '--------Initiliasing variables------------------- Dim AdoCon Dim RsSearch Dim SQLProj Dim RsPrc Dim SQLPrc '------Create Connection----------------------------------- Set AdoCon = server.createobject("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") Set RsSearch = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLSearch = "select * from listedProperties WHERE propID =" & PROJC '---------------------------------------------------------------- RsSearch.Open SQLSearch,AdoCon,3,3 Dim Img1,Img2,Img3,Img4 Img1 = RsSearch("image1") Img2 = RsSearch("image2") Img3 = RsSearch("image3") Img4 = RsSearch("image4") %> <%=RsSearch("propTitle")%> | Buy | Sell | Dubai Properties :: Future Homes Dubai

<%=RsSearch("propTitle")%>

<%Dim a,b a = session("nme") b = RsSearch("owner") If a=b Then %> ">»Edit this property <% Else %> »Login to post or edit properties <% End If %>
»Go back to listed properties
" width="250" height="150" border="0" />
Type <%=RsSearch("propType")%>
Location <%=RsSearch("location")%>
Country <%=RsSearch("country")%>
Price <%Dim exc Fprice = RsSearch("price") Fprice1 = FormatCurrency(Fprice, 2) Fprice1 = replace(Fprice1,"$","")%> <%=Fprice1%>
">»Send an enquiry
Details:
Bedroom <%=RsSearch("bedroom")%>
Bathroom <%=RsSearch("bathroom")%>
Balcony <%=RsSearch("balcony")%>
Area(Sq.Ft) <%=RsSearch("area")%>
Floor No <%=RsSearch("floorNo")%>

<%=RsSearch("descript")%>

Facilities
/> Swimming Pool /> Gymnasium /> SPA
/> CCTV /> Security /> Jogging Area
/> Maids Room /> Laundry Room /> Guest Room
/> Play area /> Park  

Other Images

<%if Img1 <> "" then %> "rel="lightbox">" width="100" height="100" border="0" />
<%=RsSearch("imageTitle1")%> <%end if%>
<%if Img2 <> "" then %> " rel="lightbox">" width="100" height="100" border="0" />
<%=RsSearch("imageTitle2")%> <%end if%>
<%if Img3 <> "" then %> " rel="lightbox">" width="100" height="100" border="0" />
<%=RsSearch("imageTitle3")%> <%end if%>
<%if Img4 <> "" then %> " rel="lightbox">" width="100" height="100" border="0" />
<%=RsSearch("imagetTitle4")%> <%end if%>
<%if session("msg") = "Welcome" then%> <%else%> <%end if%>
Contact Us |  About us | Disclaimer | Careers
 
This website and all content is © 2007 - futurehomesdubai.com
All rights reserved. Please read our Privacy Policy