<%=RsProject("Title")%> Floorplans| Dubai Properties | Dubai Freehold Properties |Ajman Properties

<% '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

<%Do while not Rsnames.eof%> <%Rsnames.Movenext%> <%Loop%>

Type	Area(Sq.Ft)	Price(<%=CURType%>)	Choose currency	Views	Floorplans
		Starting From
<%=Rsnames("typeName")%>	<%=Rsnames("sqft")%>	<%Dim exc exc = RsConv("CurRate") Prc = Rsnames("priceAED") Fprice = Prc * exc Fprice1 = FormatCurrency(Fprice, 2) Fprice1 = replace(Fprice1,"$","") %> <%=FPrice1%>		<%=Rsnames("pview")%>	" rel="lightbox" > View

<%=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">