<% Function FormataData(Data) If Data <> "" Then FormataData = DatePart("yyyy", Data) & "/" & Right("0" & DatePart("m", Data),2) & "/" & Right("0" & DatePart("d", Data),2) End Function %> <% 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") destaque = Request.Form("destaque") Set conexao = Server.CreateObject("ADODB.RecordSet") MSQL = "INSERT noticia (data,titulo,chamada,conteudo,destaque_lateral,destaque) VALUES ('"&FormataData(data)&"','"&titulo&"','"&chamada&"','"&conteudo&"','"&destaque_lateral&"','"&destaque&"')" Set conexao = Conn.Execute(MSQL) Conn.close Set conexao = Nothing Set Conn = Nothing if err = 0 Then response.Write "" end if %>