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