<% 'ON ERROR RESUME NEXT CURType = request.querystring ("CR") if CURType = "" then CURType ="AED" END IF ProjectID = request.querystring("projID") Dim AdoCon Dim RsP Dim Rsd Dim SQLP Dim SQLPP Set AdoCon = server.createobject ("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") Set Rsnames = server.createobject ("ADODB.RECORDSET") Set Rstyp = server.createobject ("ADODB.RECORDSET") SQLnames = "select * from typeNprice where projectID =" & ProjectID & "AND typeName <> NULL AND priceAED <> '1'" SQLtp = "select typical,floorno from typeNprice where projectID =" & ProjectID & "AND typical <> ''" Rsnames.open SQLnames,AdoCon,3,3 Rstyp.open SQLtp,AdoCon,3,3 Set RsProject = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLProj = "select * from project_details WHERE projectID=" & ProjectID '---------------------------------------------------------------- RsProject.Open SQLProj,AdoCon,3,3 '-----------Currency Converter------------------- Set RsConv = server.createobject("ADODB.RECORDSET") SQLConv = "select * from forex where CurName='" & CURType & "'" RsConv.Open SQLConv,AdoCon,3,3 'response.write RsConv("CurRate") '----------Currency Converter Ends--------------- '------------- menu building starts--------- Set Rsmenu = server.createobject("ADODB.RECORDSET") ProjList = RsProject("project_name") DontDisplayme = RsProject("property_name") SQLProjList = "select projectID,project_name,property_name from project_details WHERE project_name='" & ProjList & "' AND property_name <> '" & DontDisplayme & "'" Rsmenu.Open SQLProjList,AdoCon,3,3 '-----------menu building ends----------- %> <%=RsProject("Title")%> Floorplans| Dubai Properties | Dubai Freehold Properties |Ajman Properties "> " >
 
<%=RsProject("locationCountry")%>»<%=RsProject("locationCity")%>»<%=RsProject("project_name")%>»<%=RsProject("property_name")%>»Floorplan

" width="250" height="150" />
Snap Shot
Type <%=RsProject("project_type")%>
Floor <%=RsProject("floors")%>
Finance <%=RsProject("finance")%>
Completion <%=RsProject("completion_date")%>
Status <%=RsProject("stat")%>
»View our Resale Stocks
 
Type, price and Floor Plans

 
<%=RsProject("price")%>

*Prices subject to change.

Note:

If you own a property in this project and looking for selling/renting please mail us the details to luke@futurehomesdubai.com or arif@futurehomesdubai.com.

 

Typical Floor Plans

<% dim thisPage, rowcount, i thisPage =1 rowCount = 0 Dim intRecord maxRec = Rstyp.recordcount intRecord = Rstyp.recordcount 'response.write intRecord 'if floorplans is greater than 6 if intRecord > 6 And maxRec < 13 then Rstyp.PageSize = 5 For intRecord = 1 to 6%> <%Rstyp.MoveNext next%> <%For intRecord = 7 to maxRec%> <%Rstyp.MoveNext next 'end of greater than 6 end if 'if floor plan is greater than 12 if intRecord > 12 And maxRec < 19 then %> <%For intRecord = 1 to 6%> <%Rstyp.MoveNext next%> <%For intRecord = 7 to 12%> <%Rstyp.MoveNext next%> <%For intRecord = 13 to maxRec %> <%Rstyp.MoveNext next end if 'paste from here %> <%if maxRec > 18 And maxRec < 25 then%> <%For intRecord = 1 to 6 %> <%Rstyp.MoveNext next%> <%For intRecord = 7 to 12 %> <%Rstyp.MoveNext next%> <%For intRecord = 13 to 18 %> <%Rstyp.MoveNext next%> <%For intRecord = 19 to maxRec %> <%Rstyp.MoveNext next%> <%end if%> <% 'paste above if maxRec < 7 then%> <%do while not Rstyp.eof%> <%Rstyp.movenext loop%> <%end if %>
" rel="lightbox"> " width='100' height='100' border="1" /> <%'if Rstyp.recordcount > 0 then%>

<%=Rstyp("floorno")%>

" rel="lightbox">" width='100' height='100' border="1" />

<%=Rstyp("floorno")%>

" rel="lightbox">" width='100' height='100' border="1" />

<%=Rstyp("floorno")%>

" rel="lightbox">" width='100' height='100' border="1" />

<%=Rstyp("floorno")%>

" rel="lightbox">" width='100' height='100' border="1" />

<%=Rstyp("floorno")%>

" rel="lightbox">" width='100' height='100' border="1" />

<%=Rstyp("floorno")%>

" rel="lightbox">" width='100' height='100' border="1" />

<%=Rstyp("floorno")%>

" rel="lightbox">" width='100' height='100' border="0" />

<%=Rstyp("floorno")%>

" rel="lightbox">" width='100' height='100' border="1" />

<%=Rstyp("floorno")%>

" rel="lightbox">" width='100' height='100' border="1" />

<%=Rstyp("floorno")%>

  News
 
Contact Us |  About us | Disclaimer | Careers
 
This website and all content is  © Copyright  2007 - futurehomesdubai.com
All rights reserved. Please read our Privacy Policy