<% ID = request.form("TXTEmirateID") LocID = request.form("TXTEmid") LocName = request.form("TXTname") Descript = request.form("TXTdesc") LocImage = request.form("TXTimage") 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 ="INSERT INTO FreeHoldLocations(EmirateID,LocationID,LName,Description,Image)VALUES('" & ID &_ "','"& LocID &_ "','" & LocName &_ "','" & Descript &_ "','" & LocImage & "')" 'response.write SQLEN RsEnq.Open SQLEN, AdoCon %> New Page 2