<% 'ON ERROR RESUME NEXT P = request.form("ProjctID") ptitle = request.form("TXTtitle") Pkey = request.form("TXTkeywords") Pname = request.form("TXTprojectname") Propname = request.form("TXTpropertyname") Plocation = request.form("TXTlocation") PlocCountry = request.form("TXTcountry") 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") Pimage = request.form("TXTimage") Pfac = request.form("TXTfacilities") Pmap = request.form("TXTmap") PlocDesc = request.form("TXTlocationdesc") Pfloors = request.form("TXTfloors") PcarParks = request.form("TXTcarparks") Ptypical = request.form("TXTtypical") Pbed = request.form("TXTbed") Ppayment = request.form("TXTpayment") 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='" & Plocation &_ "',locationCountry='" & PlocCountry &_ "',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='" & PcarParks &_ "',typical='" & Ptypical &_ "',bedrooms='" & Pbed &_ "',payment='" & Ppayment & "' Where projectID=" & p response.write SQLP RsP.open SQLP,AdoCon,3,3 'response.redirect "adminindex.htm" If Err.Number <> 0 Then Response.Write (Err.Description) End If %> Project Saved

Changes have been saved

Admin Home