%@LANGUAGE="VBSCRIPT"%>
<%Response.Expires = 0
dim Recmt, rsblitz, connnews, cnpath, objRS, varSQL, cont, rsdata, vmes, vdia, vano
dim vqtd,lin, col, rscount, vtotal, vpag, resto, vinicio, i, pagina, vcat, data
'----- 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
'----- Montar clusula SQL para consulta
vdia = day(date)
vmes = month(date)
vano = year(date)
data = vmes & "-" & vdia & "-"& vano
varSQL = "SELECT * from galeria where categoria=4 order by data DESC"
set rsblitz=connnews.execute(varSQL)
set rscount=connnews.execute("SELECT count(codigo) as soma from galeria where categoria=4")
vqtd=5
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)
rsblitz.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")
'=====================================================================================
'===================== 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='3'")
%>
:: casa das molduras ::