<% 'ON ERROR RESUME NEXT '--------Initiliasing variables------------------- Dim AdoCon Dim RsSearch Dim SQLProj Dim RsPrc Dim SQLPrc '------Create Connection----------------------------------- Set AdoCon = server.createobject("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") Set RsSearch = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLSearch = "select * from project_details" '---------------------------------------------------------------- RsSearch.Open SQLSearch,AdoCon,3,3 %> View al Featured Projects | DUBAI DEVELOPERS

View All listed projects

Admin home
  <%DO WHILE NOT RsSearch.EOF%> <%RsSearch.MOVENEXT LOOP %>
Id  Project Name   Property Name Location    
 <%=RsSearch(0)%>  <%=RsSearch("project_name")%>  <%=RsSearch("property_name")%>  <%=RsSearch("locationCity")%>  Edit      Edit price  
<% RsSearch.Close Set RsSearch=Nothing AdoCon.Close Set AdoCon=Nothing%>