<% '--------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.Fields("project_name") ProjDesc = RsProject.Fields("property_desc") 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 %> <%=RsProject("Title")%> | <%=RsProject("project_name")%> | <%=RsProject("locationCity")%> Freehold Properties ::Future Homes LLC "> <% If Not IsNull(ProjDesc) Then %> <% Else %> " > <% End If%>
 
<%=RsProject("locationCountry")%>»<%=RsProject("locationCity")%>»<%=RsProject("project_name")%>»<%=RsProject("property_name")%>»Overview

" border="1" align="middle" />
 Project at a glance
Type <%=RsProject("project_type")%>
Floor <%=RsProject("floors")%>
Finance <%=RsProject("finance")%>
Completion <%=RsProject("completion_date")%>
Project Status
<%=RsProject("stat")%>
View our Resale Stocks
Construction Updates
<%=RsProject("Const_Update")%>

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

<%=RsProject("description")%>

<%=RsProject("fac")%>

  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
<% Rsmenu.close RsProject.close set Rsmenu = nothing set RsProject = nothing set AdoCon = nothing %>