Search Results | Future Homes

<% 'ON ERROR RESUME NEXT '--------Initiliasing variables------------------- Dim ProID Dim AdoCon Dim RsProject Dim SQLProj Dim RsPrc Dim SQLPrc SQLProj = request.form("TXTSQL") SQL1 = "Select * from project_details where property_name <> '' " & SQLProj 'response.write SQL1 '--------Get The Project Name--------------------------------- PropType = request.form("Ptype") PropBed = request.form("Pbed") PropCity = request.form("Pcity") PropLoc = request.form("plocation") '------------------------------------------------------------ '------Create Connection----------------------------------- Set AdoCon = server.createobject("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") Set RsProject = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- RsProject.Open SQL1,AdoCon,3,3 %> Search Results | Future Homes