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