<% ProjID = request.querystring("ID") '--------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 enquiries WHERE EnquiryID=" & ProjID' &"'" '---------------------------------------------------------------- RsSearch.Open SQLSearch,AdoCon,3,3 %> View Enquiry Details

    View Enquiry details
 Admin Home  Enquiries page  


   Enquiry Status : <%=RsSearch("enquirystatus")%>  Assigned to: <%=RsSearch("assignedto")%>
   Enquiry Date: <%=RsSearch("enquirydate")%>  Assign Date: <%=RsSearch("assignDate")%>

 Enquiry ID  <%=RsSearch("EnquiryID")%>   <%=RsSearch("subject")%> 
 Property ID <%=RsSearch("PROPID")%> 
 Name: <%=RsSearch("Cname")%> 
 City:  <%=RsSearch("city")%>
 Country  <%=RsSearch("country")%>
 Phone <%=RsSearch("phone")%> 
 Mobile <%=RsSearch("mobile")%> 
 E mail <%=RsSearch("email")%> 
 Looking for No of Bedrooms: <%=RsSearch("bedrooms")%> 
 comments <%=RsSearch("comments")%> 
 salaried/Self Employed <%=RsSearch("salaried")%>  Are you planning to visit Dubai <%=RsSearch("visitDubai")%> 
 want to be Contacted <%=RsSearch("wantContact")%>  Are you looking for finance option <%=RsSearch("finance")%> 
 Contact Time <%=RsSearch("ContactTime")%>     
  <%Dim j j = RsSearch("enquirystatus") if j="Open" then%> ">This is an Open Enquiry to view the follow up click here"> <%end if%>  
  Enter assigning comments:  
  Assign to