% '===================== produtos destaques ====================================================== dim connnews, cnpath, cont1, rs '----- Conexão com o Banco, Sem ODBC set connnews=server.createobject("adodb.connection") cnpath="DBQ=" & server.mappath("bd/dbcm.mdb") connnews.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath set rs=connnews.execute("Select * from produtos_destaques") '===================================================================================== '===================== banners =================================================== dim rsnews6, connnews6, cnpath6, cont6 dim rsbanner '----- Conexão com o Banco, Sem ODBC set connnews6=server.createobject("adodb.connection") cnpath6="DBQ=" & server.mappath("bd/dbcm.mdb") connnews6.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath6 set rsbanner=connnews6.execute("SELECT * from banners where secao='8'") %>
|