<%
If Request("Action") = "Salvar" Then
Session("nome") = Request.Form("nome")
Session("imgcapa") = Request.Form("imgcapa")
Session("aprovado") = Request.Form("aprovado")
Response.Redirect "cat_alterar2.asp"
End If
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
BdConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Domains\antonioautopecas.com.br\db\conteudo.mdb;"
conn.Open BdConn
sql = "SELECT * FROM noticias_categorias WHERE Codigo = "
sql = sql & Request.QueryString("Codigo")
Set RS = Conn.Execute(sql)
Session("Codigo") = RS("Codigo")
%>
<%
RS.close
Conn.close
%>