<% IDE = request.form("PID") ShwInCity = request.form("ShwCity") ShwInLoc = request.form("ShwLoc") Dim AdoCon Dim RsEnq Dim SQLEN set AdoCon = server.createobject("ADODB.CONNECTION") set RsEnq = server.createobject("ADODB.RECORDSET") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") SQLEN ="update project_details set ShowINCity='" & ShwInCity & "',ShowINLoc='" & ShwInLoc &"' Where projectID=" & IDE RsEnq.Open SQLEN, AdoCon 'response.write SQLEN response.redirect "../adminviewallprojects.asp" %> New Page 2