<% 'ON ERROR RESUME NEXT '--------Initiliasing variables------------------- Dim AdoCon Dim RsSearch Dim SQLProj Dim RsPrc Dim SQLPrc Dim SqlOP SqlOP = request.querystring("OP") 'response.end '------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 ------------------- if SqlOP="" then SQLSearch = "select * from enquiries" else SQLSearch =" select * from enquiries where assignedto= '" & SqlOP &"'" end if '---------------------------------------------------------------- 'response.end RsSearch.Open SQLSearch,AdoCon,3,3 %> Administrator | View all enquiries| DUBAI DEVELOPERS  

Administrator

View All Enquiries

View Enquiries Assigned to:
<%DO WHILE NOT RsSearch.EOF%> <%RsSearch.MOVENEXT LOOP %>
 Property Clients Name Country Date Status Assigned to
 <%=RsSearch("subject")%>  <%=RsSearch("Cname")%>  <%=RsSearch("country")%>  <%=RsSearch("enquirydate")%>  <%=RsSearch("enquirystatus")%>  <%=RsSearch("assignedto")%>
<% RsSearch.Close Set RsSearch=Nothing AdoCon.Close Set AdoCon=Nothing%>