<% id =request.Form("id") name=request.Form("name") font=request.Form("font") txt=request.Form("txt") author=request.Form("author") %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("../base/magazines.mdb") & ";" SQL="UPDATE textes SET name="&name&",font='"&font&"', txt='"&txt&"', author = '"&author&"' WHERE id="&id Set rst = Conn.Execute(SQL) %>