<% '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 Rsmenu = server.createobject("ADODB.RECORDSET") 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 ------------------- SQLProjList = "select projectID,project_name,property_name from project_details WHERE project_type='commercial'" SQLLOCATION = "select * from FreeHoldLocations WHERE LName='" & LOCID &"'" SQLSN = "select * from project_details where project_type like'%commercial%' and ShowINLoc='Selling'" SQLCOM = "select * from project_details where project_type ='commercial' and ShowINLoc='COMPLETED'" SQLRESALE = "select * from project_details where project_type ='commercial' and ShowINLoc='RESALE'" '---------------------------------------------------------------- Rsmenu.Open SQLProjList,AdoCon,3,3 RsLOCATION.Open SQLLOCATION,AdoCon,3,3 RsProjectsSN.Open SQLSN,AdoCon,3,3 RsProjectsCOM.Open SQLCOM,AdoCon,3,3 RsProjectsRESALE.Open SQLRESALE,AdoCon,3,3 %> Freehold locations | Dubai | Ajman | Properties
 
 Home  Dubai City Guide  Investors  Plots  Property Classifieds Awards
Commercial properties
Now Selling
<% if RsProjectsSN.recordcount = 0 then response.write "No projects for this category" else numCols = 5 response.write "" Dim OPMIG i = 0 do while not RsProjectsSN.eof OPIMG = RsProjectsSN("image") OPIMG = (replace(OPIMG," ","%20")) needFooter = true if i mod numCols = 0 then response.write "" end if 'response.write "" response.write "" if i mod numCols = numCols - 1 then response.write "" needFooter = false end if i = i + 1 RsProjectsSN.movenext loop if needFooter then response.write "" end if response.write "
" & RsProjectsSN.fields("county_name") & "

" & RsProjectsSN("property_name") & "

" end if %>  
Completed Projects
<% if RsProjectsCOM.recordcount = 0 then response.write "No projects for this category" else numColsCom = 5 response.write "" Dim OPIMG1 i = 0 do while not RsProjectsCOM.eof OPIMG1 = RsProjectsCOM("image") OPIMG1 = (replace(OPIMG1," ","%20")) needFooter = true if i mod numColsCom = 0 then response.write "" end if 'response.write "" response.write "" if i mod numColsCom = numColsCom - 1 then response.write "" needFooter = false end if i = i + 1 RsProjectsCOM.movenext loop if needFooter then response.write "" end if response.write "
" & RsProjectsCOM.fields("county_name") & "

" & RsProjectsCOM("property_name") & "

" end if %>
Projects available for Resale
<% if RsProjectsRESALE.recordcount = 0 then response.write "No projects for this category" else numColsRes = 5 response.write "" Dim OPIMG2 i = 0 do while not RsProjectsRESALE.eof OPIMG2 = RsProjectsRESALE("image") OPIMG2 = (replace(OPIMG2," ","%20")) needFooter = true if i mod numColsRes = 0 then response.write "" end if 'response.write "" response.write "" if i mod numColsRes = numColsRes - 1 then response.write "" needFooter = false end if i = i + 1 RsProjectsRESALE.movenext loop if needFooter then response.write "" end if response.write "
" & RsProjectsRESALE.fields("county_name") & "

" & RsProjectsRESALE("property_name") & "

" end if %>
Contact Us |  About us | Disclaimer | Careers
 
This website and all content is © 2007 - futurehomesdubai.com
All rights reserved. Please read our Privacy Policy