<% If Request("Action") = "Salvar" Then Session("Titulo") = Request.Form("Titulo") Session("Manchete") = Request.Form("Manchete") Session("Noticia") = Request.Form("Noticia") Session("tem_link") = Request.Form("tem_link") Session("link") = Request.Form("link") Session("Categoria") = Request.Form("categoria") Session("posicao") = Request.Form("posicao") Session("imgcapa") = Request.Form("imgcapa") Session("Data") = Request.Form("Data") Session("aprovado") = Request.Form("aprovado") Response.Redirect "not_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 WHERE Codigo = " sql = sql & Request.QueryString("Codigo") Set RS = Conn.Execute(sql) Session("Codigo") = RS("Codigo") %>

Título:

" size="70" />

Manchete:

<%= RS("manchete")%>

Notícia:

<%= RS("Noticia")%>

Link:

<%= RS("tem_link")%> --Escolha outra posição abaixo-- ----------------- Sim Não " size="70" />

<%= RS("posicao")%> --Escolha outra posição abaixo-- ----------------- SLIDE DESTAQUE-1 DESTAQUE-2 ULTIMAS NENHUM

"/>

Enviar

Selecionar

Data:

" />

Aprovado: ">

 

" onclick="excluir_registro( event );">Excluir notícia