<% 'ON ERROR RESUME NEXT '--------Initiliasing variables------------------- Dim ProID Dim AdoCon Dim RsProject Dim SQLProj Dim RsPrc Dim SQLPrc SQLProj = request.form("TXTSQL") 'response.write SQLProj '--------Get The Project Name--------------------------------- PropType = request.form("Ptype") PropBed = request.form("Pbed") PropCity = request.form("Pcity") PropLoc = request.form("plocation") '------------------------------------------------------------ '------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 project_type='" & PropType &"' OR project_name='" & PropLoc &"'" '---------------------------------------------------------------- 'response.write SQLProj 'response.end RsProject.Open SQLProj,AdoCon,3,3 %> Search Results | Future Homes
 Home  Dubai City Guide  Investors  Plots  Classifieds Awards

  Search List

<%DO WHILE NOT RsProject.EOF%> <%RsProject.movenext%> <%LOOP%>

" > " width="100" height="100" />

<%'=RsProject("description")%>
" ><%=RsProject("property_name")%>
 Type  <%=RsProject("project_type")%> 
 Location <%=RsProject("project_name")%> 
 Completion <%=RsProject("completion_date")%> 
 »"> Enquire
" >»More Details
To List a Property
<%if session("logN")= true then response.write "Logout" else %> Existing user Login here <%end if%>
New user Register here
Press Release
Dubai Freehold Maps
Contact Us |  About us | Disclaimer | Careers
 
This website and all content is © 2007 - futurehomesdubai.com
All rights reserved. Please read our Privacy Policy
 
<% RsProject.close set RsProject = nothing 'buffer.flush' %>