<% 'ON ERROR RESUME NEXT '--------Initiliasing variables------------------- Dim ProID Dim AdoCon Dim RsProject Dim SQLProj Dim RsPrc Dim SQLPrc SQLProj = request.form("TXTSQL") SQL1 = "Select * from project_details where property_name <> '' " & SQLProj 'response.write SQL1 '--------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 ------------------- RsProject.Open SQL1,AdoCon,3,3 %> Search Results | Future Homes
 Home  Dubai City Guide  Investors  Plots  Property Classifieds Awards
  Search List
<%DO WHILE NOT RsProject.EOF%> <%RsProject.movenext%> <%LOOP%>

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

<%'=RsProject("description")%>

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

Type <%=RsProject("project_type")%>
Location <%=RsProject("project_name")%>
Completion <%=RsProject("completion_date")%>
">»Enquire " >»More Details

 

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' %>