<% ProjectID=request.form("TXTPID") PID =request.querystring("ID") TypNm = request.querystring("Nm") SqFt = request.querystring("SFT") ptype = request.form("TXTtype") Pbed = request.form("TXTbed") pPrice = request.form("TXTprice") Pview = request.form("TXTview") Pfloorplanurl = request.form("TXTfloorplan") Ptypical = request.form("TXTtypical") Pfloorno = request.form("TXTfloorno") Psqft = request.form("TXTsqft") Dim AdoCon Dim RsP Dim Rsd Dim SQLP Dim SQLPP Set AdoCon = server.createobject ("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") Set Rsd = server.createobject ("ADODB.RECORDSET") SQLP = "update typeNprice set typeName='" & ptype &_ "',bedroom='" & Pbed &_ "',priceAED='" & pPrice &_ "',pview='" & Pview &_ "',floorplan='" & Pfloorplanurl &_ "',typical='" & Ptypical &_ "',floorno='" & Pfloorno &_ "',sqft='" & Psqft &_ "' where PrcID =" & PID 'response.end Rsd.open SQLP,AdoCon,3,3 URLA = "admineditprice.asp?" & "IDE=" & ProjectID response.redirect URLA %> Project Saved