<% '--------Initiliasing variables------------------- Dim ProID Dim AdoCon Dim RsProject Dim SQLProj Dim RsPrc Dim SQLPrc '--------Get The Project Name--------------------------------- ProID = request.querystring("projID") '------------------------------------------------------------ '------Create Connection----------------------------------- Set AdoCon = server.createobject("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") Set RsProject = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLProj = "select * from project_details WHERE projectID=" & proID '---------------------------------------------------------------- RsProject.Open SQLProj,AdoCon,3,3 Set Rsmenu = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- 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 'response.write Rsmenu.Recordcount %> <%=RsProject("Title")%> Location| Dubai Properties | Dubai Freehold Properties |Ajman Properties "> " >
<%=RsProject("locationCountry")%>»<%=RsProject("locationCity")%>»<%=RsProject("project_name")%>»<%=RsProject("property_name")%>»Location

" 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

<%=RsProject("property_name")%>-Location


" />


<%=RsProject("locationDesc")%>

  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