<% Function FormataData(Data) If Data <> "" Then FormataData = DatePart("yyyy", Data) & "/" & Right("0" & DatePart("m", Data),2) & "/" & Right("0" & DatePart("d", Data),2) End Function %> <% codigo = Request.Form("codigo") data = request.Form("data") titulo = Replace(request.Form("titulo"),"'","\'") chamada = Replace(request.Form("chamada"),"'","\'") conteudo = Replace(Request.Form("conteudo"),"'","\'") destaque_lateral = Request.Form("destaque_lateral") foto_destaque = Request.Form("foto_destaque") imagem_des = Request.Form("imagem_des") destaque = Request.Form("destaque") Set conexao = Server.CreateObject("ADODB.RecordSet") MSQL = "UPDATE noticia SET data='"&FormataData(data)&"', titulo='"&titulo&"', chamada='"&chamada&"', conteudo='"&conteudo&"', destaque_lateral='"&destaque_lateral&"', foto_destaque='"&foto_destaque&"', imagem_des='"&imagem_des&"', destaque='"&destaque&"' WHERE codigo="&codigo Set conexao = Conn.Execute(MSQL) Conn.close Set conexao = Nothing Set Conn = Nothing if err = 0 Then response.Write "" end if %>