<% 'ID = request.form("TXTEmirateID") LocID = request.form("TXTid") LocName = request.form("TXTname") Descript = request.form("TXTdesc") Descript = (Replace(Descript,"'","''")) LocImage = request.form("TXTimage") MasterD = request.form("TXTMdev") AreaType = request.form("TXTType") Asize = request.form("TXTSize") AreaViews = request.form("TXTViews") AAttract = request.form("TXTATT") 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") 'AdoCon.Open "dd" SQLEN ="update FreeHoldLocations set LocationID='" & LocID &"',"&_ "LName='" & LocName &"'," &_ "Description='" & Descript & "'," &_ "Image='" & LocImage & "'," &_ "MDeveloper='" & MasterD & "'," &_ "AType='" & AreaType & "'," &_ "AreaSize='" & Asize & "'," &_ "LocViews='" & AreaViews & "'," &_ "Attractions='" & AAttract & "'" &_ "where LName='" & LocName &"'" response.write SQLEN RsEnq.Open SQLEN, AdoCon %> New Page 2