<% Dim Comm EnqID = request.querystring("ID") Nme = request.querystring("LNme") '--------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 RsChck = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLChck = "select * from enquiries where EnquiryID=" & EnqID '---------------------------------------------------------------- RsChck.Open SQLChck,AdoCon,3,3 %> New Page 3
Email Folow Up  Phone call followup
<%=RsChck("closingcomments")%>  <%=RsChck("phonefollow")%>