%@LANGUAGE="VBSCRIPT"%>
<%Response.Expires = 0
dim Recmt, rsnews, connnews, cnpath, vlogin, vsenha, objRS, varSQL, vtitulo, varSQL2, lin, col, rsdata
dim rscount, vtotal, vpag, resto, vqtd, vinicio, i, pagina, vdia, vmes,vano, data, vcat, consta
'----- 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
vdia = day(date)
vmes = month(date)
vano = year(date)
data = vmes & "-" & vdia & "-"& vano
'----- Montar clusula SQL para consulta
varSQL = "Select * from dicas order by codigo DESC"
varSQL2 = "Select count(codigo) as soma from dicas"
set rsnews=connnews.execute(varSQL)
set rscount=connnews.execute(varSQL2)
vqtd=20
vtotal = rscount("soma")
vpag = vtotal\vqtd
resto = (vtotal/vqtd) - vpag
if (resto = 0) then
vpag = vpag-1
end if
if (trim(request("pagina"))="") then
pagina = 0
else
pagina=trim(request("pagina"))
end if
vinicio = (pagina*vqtd)
for i=0 to (vinicio-1)
rsnews.movenext
next
'===================== produtos destaques ======================================================
dim connnews1, cnpath1, cont2, rs
'----- Conexão com o Banco, Sem ODBC
set connnews1=server.createobject("adodb.connection")
cnpath1="DBQ=" & server.mappath("bd/dbcm.mdb")
connnews1.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath1
set rs=connnews.execute("Select * from produtos_destaques")
'===================== destaque ======================================================
dim connnews6, cnpath6, cont6, rs1, texto
'----- 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 rs1=connnews6.execute("Select * from dicas order by codigo DESC")
'=====================================================================================
'===================== banners ===================================================
dim rsnews7, connnews7, cnpath7, cont7
dim rsbanner
'----- Conexão com o Banco, Sem ODBC
set connnews7=server.createobject("adodb.connection")
cnpath7="DBQ=" & server.mappath("bd/dbcm.mdb")
connnews7.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath7
set rsbanner=connnews7.execute("SELECT * from banners where secao='6'")
%>
:: casa das molduras ::