<% 'ON ERROR RESUME NEXT ProjID=request.querystring("PID") IDD = 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 typeNprice where PrcID =" & IDD '---------------------------------------------------------------- RsSearch.Open SQLSearch,AdoCon,3,3 %> Edit price

      Edit price

typeName "> Project ID:
bedroom ">
priceAED ">
view ">
floorplan ">
typical ">
floorno ">
sqft ">