% 'Conexão com o banco de dados banco = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("./admin/database/dbSegregs.mdb") & ";" Set Conexao = Server.CreateObject("ADODB.Connection") id_secao = Request.QueryString("secao") 'Abre a conexao com o banco Conexao.Open banco Set DadosSecao = Conexao.Execute("SELECT url FROM SECOES WHERE id_secao = 9" ) Set DadosSecaoConteudo = Conexao.Execute("SELECT * FROM secoes_conteudo WHERE fl_publica = 'S' AND id_secao = 9 order by cd_sysdate desc") %>
|