Incluir Depoimento

Listagem

<% If Request("Action") = "Salvar" Then Session("nome") = Request.Form("nome") Session("funcao") = Request.Form("funcao") Session("descricao") = Request.Form("descricao") Session("posicao") = Request.Form("posicao") Session("imgcapa") = Request.Form("imgcapa") Session("data") = Request.Form("data") Session("aprovado") = Request.Form("aprovado") Response.Redirect "dep_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 depoimentos WHERE Codigo = " sql = sql & Request.QueryString("Codigo") Set RS = Conn.Execute(sql) Session("Codigo") = RS("Codigo") %>