<% 'ON ERROR RESUME NEXT IDL = request.form("idd") own = session("nme") proType = request.form("pType") proTitle = request.form("pTitle") proDesc = request.form("pDesc") proDesc = (Replace(proDesc,"'","''")) proAddress = request.form("pAddress") proLocation = request.form("pLocation") proCountry = request.form("pCountry") proPrice = request.form("pPrice") proPrice = (Replace(proPrice,",","")) proPriceType = request.form("pPriceType") proBedroom = request.form("pBedroom") proBathroom = request.form("pBathroom") proBalcony = request.form("pBalcony") proCarpark = request.form("pCarpark") proFurnish = request.form("pFurnish") profloor = request.form("pfloor") proArea = request.form("pArea") proSwim = request.form("TXTswimming") progym = request.form("TXTgym") prospa = request.form("TXTspa") procc = request.form("TXTcc") prosec = request.form("TXTsec") projog = request.form("TXTjog") promaid = request.form("TXTmaid") prolaun = request.form("TXTlaun") progues = request.form("TXTgues") proplay = request.form("TXTplay") propark = request.form("TXTpark") proimage1 = request.form("TXTimage1") proimage2 = request.form("TXTimage2") proimage3 = request.form("TXTimage3") proimage4 = request.form("TXTimage4") ListDte = request.form("TXtdte") Dim ProID Dim AdoCon Dim RsID Dim RsP Dim SQLP Dim imag 'imag = "insertimagepath" 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 ListedProperties set "&_ "propType='" & proType &_ "',propTitle='" & proTitle &_ "',descript='" & proDesc &_ "',address='" & proAddress &_ "',location='" & proLocation &_ "',country='" & proCountry &_ "',price=" & proPrice &_ ",priceType='" & proPriceType &_ "',bedroom='" & proBedroom &_ "',bathroom='" & proBathroom &_ "',balcony='" & proBalcony &_ "',parking='" & proCarpark &_ "',furnished='" & proFurnish &_ "',floorNo='" & profloor &_ "',area=" & proArea &_ ",swimming='" & proSwim &_ "',gym='" & progym &_ "',spa='" & prospa &_ "',cctv='" & procc &_ "',security='" & prosec &_ "',jogging='" & projog &_ "',maidsRoom='" & promaid &_ "',laundryRoom='" & prolaun &_ "',guestRoom='" & progues &_ "',playarea='" & proplay &_ "',park='" & propark &_ "',image1='" & proimage1 &_ "',image2='" & proimage2 &_ "',image3='" & proimage3 &_ "',image4='" & proimage4 & "'" &" where propID=" & IDL RsP.open SQLP,AdoCon,3,3 'response.redirect 'index.asp' %> Property has been Listed