<%@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 ::
<% if rsblitz.eof then %> <% else lin = 0 do until lin=5 col = 0 %> <% do until col=1 if not (rsblitz.eof) then %> <% rsblitz.movenext else %> <% end if col = col+1 loop %> <% lin = lin +1 loop end if %>
" width="120" height="78" border="0"> <%=rsblitz("titulo")%>
<%=rsblitz("texto")%>

">
<% if pagina>0 then %> &pagina=<%=(pagina-1)%>"> <% end if %> <% if ((trim(vpag)>0) and (cint(pagina)<>cint(vpag))) then %> &pagina=<%=(pagina+1)%>"> <% end if %>
"><% Response.Write "" %>