<% OPKEY = request.querystring("DKEY") 'response.write OPKEY 'ON ERROR RESUME NEXT Dim AdoCon Dim RsSearch Dim SQLProj Dim RsPrc Dim SQLPrc Dim Uname Dim SQLL Dim i if OPKEY = "ALL" THEN SQLSearch ="select * from ListedProperties" ELSE if OPKEY = "INAC" THEN SQLSearch ="select * from ListedProperties where ActiveStatus = 'N'" ELSE if OPKEY = "ACT" THEN SQLSearch ="select * from ListedProperties where ActiveStatus = 'Y'" end if end if end if '------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") '---------------------------------------------------------------- RsSearch.Open SQLSearch,AdoCon,3,3 %> Listed properties | DUBAI DEVELOPERS

 
 

Listed properties

 
    Admin Home

  View Inactive     View Active     View All <% Do while not RsSearch.EOF%> <%RsSearch.MOVENEXT%> <%LOOP%>
Active  Title  Type  For  Country  Location  Price  BR  
 <%=RsSearch("ActiveStatus")%> <%=RsSearch("propTitle")%>  <%=RsSearch("propType")%>  <%=RsSearch("listedfor")%>  <%=RsSearch("country")%>  <%=RsSearch("location")%>  <%=RsSearch("price")%>  <%=RsSearch("bedroom")%>    View Details
                 
<% RsSearch.Close set RsSearch = nothing%>