<% 'ON ERROR RESUME NEXT IDD = request.querystring("ID") '--------Initiliasing variables------------------- Dim AdoCon Dim RsSearch Dim SQLProj Dim RsPrc Dim SQLPrc '------Create Connection----------------------------------- Set AdoCon = server.createobject("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") Set RsSearch = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLSearch = "delete from typeNprice where PrcID =" & IDD '---------------------------------------------------------------- RsSearch.Open SQLSearch,AdoCon,3,3 %> New Page 1