<% If Request("Action") = "Salvar" Then Session("Titulo") = Request.Form("Titulo") Session("descricao") = Request.Form("descricao") Session("categoria") = Request.Form("categoria") Session("Data") = Request.Form("Data") Session("imgcapa") = Request.Form("imgcapa") Session("aprovado") = Request.Form("aprovado") Response.Redirect "pro_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 promocoes WHERE Codigo = " sql = sql & Request.QueryString("Codigo") Set RS = Conn.Execute(sql) Session("Codigo") = RS("Codigo") %>

Título:

" size="70" />

Descrição:

<%=RS("descricao")%>

(tamanho limite imagem <-- 690px -->)

<%= RS("categoria")%> ------------------- promocoes_pt promocoes_en promocoes_es " />

" >

Enviar

Selecionar

Aprovado: " />