<% '--------------------------------------------------------- PROJC = request.querystring("PRID") '--------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("../fh.mdb") Set RsSearch = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLSearch = "select * from ListedProperties WHERE propID =" & PROJC '---------------------------------------------------------------- RsSearch.Open SQLSearch,AdoCon,3,3 %> Listed properties | DUBAI DEVELOPERS
 

Activate/Delete/Move

 Activated:  <%=RsSearch("ActiveStatus")%>
 
     For <%=RsSearch("listedfor")%>          <%=RsSearch("propTitle")%>      
    ">    Type: <%=RsSearch("propType")%>  Bedroom:  <%=RsSearch("bedroom")%>  
       Location: <%=RsSearch("location")%>   Bathroom: <%=RsSearch("bathroom")%>  
       Country: <%=RsSearch("country")%>   Balcony: <%=RsSearch("balcony")%>  
       Price: <%=RsSearch("price")%>   Area: <%=RsSearch("area")%>  
           Floor No: <%=RsSearch("floorNo")%>  
   

Description:
 <%=RsSearch("descript")%>

 
    Facilities :            
   
> Swimming Pool > Gymnasium > SPA
> CCTV > Security > Jogging Area
> Maids Room > Laundry Room > Guest Room
> Play area > Park