<% codigo = Request.Form("codigo") conteudo = Replace(Request.Form("conteudo"),"'","\'") Set conexao = Server.CreateObject("ADODB.RecordSet") MSQL = "UPDATE empresa SET conteudo='"&conteudo&"' WHERE codigo="&codigo Set conexao = Conn.Execute(MSQL) Conn.close Set conexao = Nothing Set Conn = Nothing if err = 0 Then response.Write "" end if %>