<% 'ON ERROR RESUME NEXT '--------Initiliasing variables------------------- Dim ProID Dim AdoCon Dim RsProject Dim SQLProj Dim RsPrc Dim SQLPrc '--------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 RsProject = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLProj = "select * from FreeHoldLocations WHERE LName='" & LOCID &"'" '---------------------------------------------------------------- RsProject.Open SQLProj,AdoCon,3,3 Set Rsmenu = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLProjList = "select projectID,project_name,property_name from project_details WHERE project_name='" & LOCID & "'" '---------------------------------------------------------------- Rsmenu.Open SQLProjList,AdoCon,3,3 %> Freehold locations | Dubai | Ajman | Properties
 
 Home  Dubai City Guide  Investors  Plots  Property Classifieds Awards
Freehold Locations:-

" alt="Freehold Maps" width="650" border="1" />
<%=RsProject("LName")%> Overview:-

<%=RsProject("Description")%>
City/Emirates
<%if Rsmenu.recordcount <> 0 then%><%=Rsmenu("project_name")%> Properties
Contact Us |  About us | Disclaimer | Careers
 
This website and all content is © 2007 - futurehomesdubai.com
All rights reserved. Please read our Privacy Policy