<% ProjID = request.querystring("ID") LogNme = request.querystring("Nme") '--------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") Set Rschangestat = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLchangestat = "update enquiries set enquirystatus='Open' WHERE EnquiryID=" & ProjID' &"'" SQLSearch = "select * from enquiries WHERE EnquiryID=" & ProjID' &"'" '---------------------------------------------------------------- RsSearch.Open SQLSearch,AdoCon,3,3 'response.write session("logN") %> Sales | View Enquiry Details
  View Enquiry details

">«Back to my list of Enquiries

Enquiry Status :
Enquired Date: <%=RsSearch("enquirydate")%>
Assigned Date: <%=RsSearch("assignDate")%>
 Enquiry ID <%=RsSearch("EnquiryID")%>   <%=RsSearch("subject")%> 
 Property ID <%=RsSearch("PROPID")%> 
 Looking for No of Bedrooms: <%=RsSearch("bedrooms")%> 
 Name:  <%=RsSearch("Cname")%> 
 City:  <%=RsSearch("city")%>
 Country:  <%=RsSearch("country")%>
 Phone:  <%=RsSearch("phone")%> 
 Mobile:  <%=RsSearch("mobile")%> 
 E mail:  <%=RsSearch("email")%> 
 Salaried/Self Employed: <%=RsSearch("salaried")%>   Are you planning to visit Dubai: <%=RsSearch("visitDubai")%> 
 would you like our property consultant to call you: <%=RsSearch("wantContact")%>   Are you looking for finance option: <%=RsSearch("finance")%> 
 Contact Time: <%=RsSearch("ContactTime")%>     
Comments from the Enquirer <%=RsSearch("comments")%> 
 Comments from the assigner  <%=RsSearch("assigcomments")%>
  ">View all follow up
Enter Email Follow Up comments Enter Phone follow up comments