% 'Conexao com o banco de dados Set Conexao = Server.CreateObject("ADODB.Connection") banco_dados="clap.mdb" Conexao.Open ("Driver={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath(banco_dados) &"") id_produto=Request.QueryString("id_produto") Set Produtos = Server.CreateObject("ADODB.Recordset") q = "SELECT * FROM produtos where id="& id_produto &"" Set Produtos = Conexao.Execute (q) codigo=Session("codigo") %>
|