<% 'ON ERROR RESUME NEXT P = request.form("ProjctID") ptitle = request.form("TXTtitle") Pkey = request.form("TXTkeywords") Pname = request.form("TXTprojectname") Propname = request.form("TXTpropertyname") PlocationCty = request.form("TXTlocationCity") PlocationCnty = request.form("TXTlocationCountry") Pdeveloper = request.form("TXTdeveloper") Ptype = request.form("TXTprojecttype") Pstatus = request.form("TXTstatus") Pcompletion = request.form("TXTcompletion") Pprice = request.form("TXTprice") Pfinance = request.form("TXTfinance") Pdesc = request.form("TXTdesc") Pdesc = (Replace(Pdesc,"'","''")) Pimage = request.form("TXTimage") Pfac = request.form("TXTfacilities") Pfac = (Replace(Pfac,"'","''")) Pmap = request.form("TXTmap") PlocDesc = request.form("TXTlocationDesc") PlocDesc = (Replace(PlocDesc,"'","''")) Pfloors =request.form("TXTfloors") PcarPark = request.form("TXTcarpark") Ptypical = request.form("TXTtypical") Pbed = request.form("TXTbed") Ppayment = request.form("TXTpayment") Ppayment = (Replace(Ppayment,"'","''")) Pconstruct = request.form("TXTconst") Pconstruct = (Replace(Pconstruct,"'","''")) Dim AdoCon Dim RsP Dim SQLP Set AdoCon = server.createobject ("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") Set RsP = server.createobject ("ADODB.RECORDSET") SQLP = "Update project_details set Title='" & ptitle &_ "',Pkeywords='" & Pkey &_ "',project_name='" & Pname &_ "',property_name='" & Propname &_ "',locationCity='" & PlocationCty &_ "',locationCountry='" & PlocationCnty &_ "',developer_name='" & Pdeveloper &_ "',project_type='" & Ptype &_ "',stat='" & Pstatus &_ "',completion_date='" & Pcompletion &_ "',price='" & Pprice &_ "',finance='" & Pfinance &_ "',description='" & Pdesc &_ "',image='" & Pimage &_ "',fac='" & Pfac &_ "',map='" & Pmap &_ "',locationDesc='" & PlocDesc &_ "',floors='" & Pfloors &_ "',carPark='" & PcarPark &_ "',typical='" & Ptypical &_ "',bedrooms='" & Pbed &_ "',payment='" & Ppayment &_ "',Const_Update='" & Pconstruct & "' Where projectID=" & p 'response.write SQLP 'response.end RsP.open SQLP,AdoCon,3,3 %> Project Saved

Changes have been saved