<% 'ON ERROR RESUME NEXT '--------Initiliasing variables------------------- Dim ProID Dim AdoCon Dim RsProject Dim SQLProj Dim RsPrc Dim SQLPrc Dim LOCID '--------Get The Project Name--------------------------------- LOCID = request.querystring("LOC") '------------------------------------------------------------ '------Create Connection----------------------------------- Set AdoCon = server.createobject("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") Set RsLOCATION = server.createobject("ADODB.RECORDSET") Set RsProjectsSN = server.createobject("ADODB.RECORDSET") Set RsProjectsCOM = server.createobject("ADODB.RECORDSET") Set RsProjectsRESALE = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLLOCATION = "select * from FreeHoldLocations WHERE LName='" & LOCID &"'" SQLSN = "select * from project_details where project_name ='" & LOCID & "' and ShowINLoc='Selling'" SQLCOM = "select * from project_details where project_name ='" & LOCID & "' and ShowINLoc='COMPLETED'" SQLRESALE = "select * from project_details where project_name ='" & LOCID & "' and ShowINLoc='RESALE'" '---------------------------------------------------------------- RsLOCATION.Open SQLLOCATION,AdoCon,3,3 RsProjectsSN.Open SQLSN,AdoCon,3,3 RsProjectsCOM.Open SQLCOM,AdoCon,3,3 RsProjectsRESALE.Open SQLRESALE,AdoCon,3,3 %> Free Hold Areas | UAE
 Home  Dubai City Guide  Investors  Plots  Classifieds Awards
" width="134" height="100" border="1" />
Master Developer <%=RsLOCATION("MDeveloper")%>
Type <%=RsLOCATION("AType")%>Residence
Area <%=RsLOCATION("AreaSize")%>
Views <%=RsLOCATION("LocViews")%>
»view more details
Attraction:

(Html tag)

Now Selling
<% Dim MaxRec,MaxRecord MaxRec = RsProjectsSN.recordcount MaxRecord = RsProjectsSN.recordcount if MaxRec < 6 then%> <%do while not RsProjectsSN.eof%> <%RsProjectsSN.movenext%> <%loop%> <%end if%> <%if MaxRec >5 and MaxRec < 11 then%> <%for MaxRec = 1 to 5%> <%RsProjectsSN.movenext%> <%next%> <%for MaxRec = 6 to MaxRecord%> <%RsProjectsSN.movenext%> <%Next%> <%end if%> <%if MaxRec > 10 and MaxRec < 16 then%> <%for MaxRec = 1 to 5%> <%RsProjectsSN.movenext%> <%next%> <%for MaxRec = 6 to 10%> <%RsProjectsSN.movenext%> <%Next%> <%for MaxRec = 11 to MaxRecord%> <%RsProjectsSN.movenext%> <%next%> <%end if%> <%if MaxRec > 15 and MaxRec < 21 then%> <%for Maxrec = 1 to 5%> <%RsProjectsSN.movenext%> <%Next%> <%for MaxRec = 6 to 10%> <%RsProjectsSN.movenext%> <%Next%> <%for MaxRec = 11 to 15%> <%RsProjectsSN.movenext%> <%Next%> <%for Maxrec = 16 to MaxRecord%> <%RsProjectsSN.movenext%> <%Next%> <%end if%>
">" width="100" height="120" border="0" />

<%=RsProjectsSN("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsSN("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsSN("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsSN("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsSN("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsSN("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsSN("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsSN("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsSN("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsSN("property_name")%>

 
Completed Projects
<% Dim MaxRec1,MaxRecord1 MaxRec1 = RsProjectsCOM.recordcount MaxRecord1 = RsProjectsCOM.recordcount if MaxRec1 < 6 then%> <%do while not RsProjectsCOM.eof%> <%RsProjectsCOM.movenext%> <%loop%> <%end if%> <%if MaxRec1 >5 and MaxRec1 < 11 then%> <%for MaxRec1 = 1 to 5%> <%RsProjectsCOM.movenext%> <%next%> <%for MaxRec1 = 6 to MaxRecord1%> <%RsProjectsCOM.movenext%> <%Next%> <%end if%> <%if MaxRec1 > 10 and MaxRec1 < 16 then%> <%for MaxRec1 = 1 to 5%> <%RsProjectsCOM.movenext%> <%next%> <%for MaxRec1 = 6 to 10%> <%RsProjectsCOM.movenext%> <%Next%> <%for MaxRec1 = 11 to MaxRecord1%> <%RsProjectsCOM.movenext%> <%next%> <%end if%> <%if MaxRec1 > 15 and MaxRec1 < 21 then%> <%for Maxrec = 1 to 5%> <%RsProjectsCOM.movenext%> <%Next%> <%for MaxRec1 = 6 to 10%> <%RsProjectsCOM.movenext%> <%Next%> <%for MaxRec1 = 11 to 15%> <%RsProjectsCOM.movenext%> <%Next%> <%for Maxrec1 = 16 to MaxRecord1%> <%RsProjectsCOM.movenext%> <%Next%> <%end if%>
">" width="100" height="120" border="0" />

<%=RsProjectsCOM("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsCOM("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsCOM("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsCOM("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsCOM("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsCOM("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsCOM("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsCOM("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsCOM("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsCOM("property_name")%>

 
Projects available for Resale
<% Dim MaxRec2,MaxRecord2 MaxRec2 = RsProjectsRESALE.recordcount MaxRecord2 = RsProjectsRESALE.recordcount if MaxRec2 < 6 then%> <%do while not RsProjectsRESALE.eof%> <%RsProjectsRESALE.movenext%> <%loop%> <%end if%> <%if MaxRec2 >5 and MaxRec2 < 11 then%> <%for MaxRec2 = 1 to 5%> <%RsProjectsRESALE.movenext%> <%next%> <%for MaxRec2 = 6 to MaxRecord2%> <%RsProjectsRESALE.movenext%> <%Next%> <%end if%> <%if MaxRec2 > 10 and MaxRec2 < 16 then%> <%for MaxRec2 = 1 to 5%> <%RsProjectsRESALE.movenext%> <%next%> <%for MaxRec2 = 6 to 10%> <%RsProjectsRESALE.movenext%> <%Next%> <%for MaxRec2 = 11 to MaxRecord2%> <%RsProjectsRESALE.movenext%> <%next%> <%end if%> <%if MaxRec2 > 15 and MaxRec2 < 21 then%> <%for Maxrec = 1 to 5%> <%RsProjectsRESALE.movenext%> <%Next%> <%for MaxRec2 = 6 to 10%> <%RsProjectsRESALE.movenext%> <%Next%> <%for MaxRec2 = 11 to 15%> <%RsProjectsRESALE.movenext%> <%Next%> <%for MaxRec2 = 16 to MaxRecord2%> <%RsProjectsRESALE.movenext%> <%Next%> <%end if%>
">" width="100" height="120" border="0" />

<%=RsProjectsRESALE("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsRESALE("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsRESALE("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsRESALE("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsRESALE("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsRESALE("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsRESALE("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsRESALE("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsRESALE("property_name")%>

">" width="100" height="120" border="0" />

<%=RsProjectsRESALE("property_name")%>

 
To List a Property
<%if session("logN")= true then response.write "Logout" else %> Existing user Login here <%end if%>
New user Register here
New launches
Contact Us |  About us | Disclaimer | Careers
 
This website and all content is © 2007 - futurehomesdubai.com
All rights reserved. Please read our Privacy Policy