<% If Request("Action") = "Salvar" Then Session("marca") = Request.Form("marca") Session("categoria") = Request.Form("categoria") Session("nome") = Request.Form("nome") Session("descricao") = Request.Form("descricao") Session("preco") = Request.Form("preco") Session("imgcapa") = Request.Form("imgcapa") Session("destaque") = Request.Form("destaque") Session("aprovado") = Request.Form("aprovado") Response.Redirect "prod_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 produtos WHERE Codigo = " sql = sql & Request.QueryString("Codigo") Set RS = Conn.Execute(sql) Session("Codigo") = RS("Codigo") %>