<% '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 = "insert into ListedProperties(propID,owner,propType,propTitle,descript,address,location,country," &_ "price,priceType,bedroom,bathroom,balcony,parking,furnished,floorNo,area,swimming,gym,spa,cctv,security," &_ "jogging,maidsRoom,laundryRoom,guestRoom,playarea,park,image1,image2,image3,image4,uploadDate)" &_ "values(" & IDL &_ ",'" & own &_ "','" & proType &_ "','" & proTitle &_ "','" & proDesc &_ "','" & proAddress &_ "','" & proLocation &_ "','" & proCountry &_ "'," & proPrice &_ ",'" & proPriceType &_ "','" & proBedroom &_ "','" & proBathroom &_ "','" & proBalcony &_ "','" & proCarpark &_ "','" & proFurnish &_ "','" & profloor &_ "'," & proArea &_ ",'" & proSwim &_ "','" & progym &_ "','" & prospa &_ "','" & procc &_ "','" & prosec &_ "','" & projog &_ "','" & promaid &_ "','" & prolaun &_ "','" & progues &_ "','" & proplay &_ "','" & propark &_ "','" & proimage1 &_ "','" & proimage2 &_ "','" & proimage3 &_ "','" & proimage4 &_ "','" & ListDte & "')" 'response.write SQLP 'response.end RsP.open SQLP,AdoCon,3,3 'response.redirect 'index.asp' %> Property has been Listed

Please wait while your property is being Uploaded.    .