:: casa das molduras ::

<%@LANGUAGE="VBSCRIPT"%> <%Response.Expires = 0 dim Recmt, rsnews, connnews, cnpath, objRS, varSQL, vtitulo, texto, rsblitz, varSQL2, rsblitz2 dim rscount, vqtd, vtotal, vpag, resto, pagina, vinicio, i, lin, col '----- 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 varSQL2 = "SELECT * from galeria where codigo="& trim(request("galeria")) &"" set rsblitz2=connnews.execute(varSQL2) '================= mais galerias ==================== varSQL = "SELECT * from galeria where categoria=5 order by data DESC" set rsblitz=connnews.execute(varSQL) set rscount=connnews.execute("SELECT count(codigo) as soma from galeria where categoria=5") 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='5'") %> :: casa das molduras ::

" width="230" height="150" class="tabinternas">

&foto=">

<%=rsblitz2("titulo")%>
Data: <% dataevento=day(rsblitz2("data")) & "/" & month(rsblitz2("data")) & "/" & year(rsblitz2("data")) Response.Write dataevento %>

<%=rsblitz2("texto")%>

<% 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")%>

"><% Response.Write "" %>

<% if rs.eof then %> <% else rs.movefirst cont2 = 1 do until (cont2>4) or (rs.eof) %> <% cont2 = cont2 +1 rs.movenext loop end if %>



<% Response.Write "" %> <%=rs("titulo")%> <%=rs("texto")%>
">