<%@ LANGUAGE="VBSCRIPT" %>
<!--#include virtual="/site/scripts/iProtect/loggedin.asp" -->
<%

Set Conn = Server.CreateObject("ADODB.Connection") 
Set RS = Server.CreateObject("ADODB.RecordSet")
BdConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Domains\antonioautopecas.com.br\db\conteudo.mdb;" 
conn.Open BdConn


    sql = "UPDATE noticias SET Titulo = '"
    sql = sql & Session("titulo") & "', " 
    sql = sql & "Manchete = " & "'" &  Session("Manchete") & "', " 
    sql = sql & "noticia = " & "'" &  Session("noticia") & "', " 
    sql = sql & "tem_link = " & "'" &  Session("tem_link") & "', " 
    sql = sql & "link = " & "'" &  Session("link") & "', " 
    sql = sql & "Categoria = " & "'" &  Session("categoria") & "', " 
    sql = sql & "posicao = " & "'" &  Session("posicao") & "', " 
    sql = sql & "imgcapa = " & "'" &  Session("imgcapa") & "', " 	
    sql = sql & "data = " & "'" & Session("data") & "', "
    sql = sql & "aprovado = " & "'" & Session("aprovado") & "' "  
	
    sql = sql & " WHERE Codigo = "
    sql = sql & Session("Codigo")
	
	Set RS = Conn.Execute(sql)
	
	Response.Redirect "not_listagem.asp"
%>