<%@ 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 informativos SET Data = '"
    sql = sql & Session("Data") & "', " 
    sql = sql & "titulo = " & "'" &  Session("titulo") & "', " 
    sql = sql & "arquivo = " & "'" &  Session("arquivo") & "', " 
    sql = sql & "issuu = " & "'" &  Session("issuu") & "', " 
    sql = sql & "mes = " & "'" &  Session("mes") & "', " 	
    sql = sql & "ano = " & "'" &  Session("ano") & "', " 	
    sql = sql & "aprovado = " & "'" & Session("aprovado") & "' "  

    sql = sql & " WHERE Codigo = "
    sql = sql & Session("Codigo")

	Set RS = Conn.Execute(sql)

	Response.Redirect "inf_listagem.asp"

%>