<% 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") Pcountry = 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 ConUpdate ConUpdate = "" 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 = "insert into project_details(projectID,title,pkeywords,project_name,property_name,locationcity,locationcountry,developer_name,project_type,stat,completion_date,price,finance,description,image,fac,map,locationdesc,floors,carpark,typical,bedrooms,payment,const_update) values(" & P &_ ",'" & ptitle &_ "','" & pkey &_ "','" & Pname &_ "','" & Propname &_ "','" & Plocation &_ "','" & Pcountry &_ "','" & Pdeveloper &_ "','" & Ptype &_ "','" & Pstatus &_ "','" & Pcompletion &_ "','" & Pprice &_ "','" & Pfinance &_ "','" & Pdesc &_ "','" & Pimage &_ "','" & Pfac &_ "','" & Pmap &_ "','" & Plocdesc &_ "','" & Pfloors &_ "','" & Pcarparks &_ "','" & Ptypical &_ "','" & Pbed &_ "','" & Ppayment &_ "','" & ConUpdate & "')" Response.writre "TEst" & SQLP RsP.open SQLP,AdoCon,3,3 '-------- error handling If err.number<0 then response.write "Please do not refresh the page:" & "

" response.write "Error Number=" & err.number & "

" response.write "Error Descr.=" & err.description & "

" response.write "Help Context=" & err.helpcontext & "

" response.write "Help Path=" & err.helppath & "

" response.write "Native Error=" & err.nativeerror & "

" response.write "Source=" & err.source & "

" response.write "SQLState=" & err.sqlstate & "

" else response.write "No problems occured!" & "

" end if AdoCon.Close %> Project Saved