<%@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 ::
<%=rs1("titulo")%>

<% If rs1("imagem")<>"" then Response.Write "" end if texto = left(rs1("texto"),200) texto = replace(texto, vbcrlf, "
") Response.Write texto %> ...
<% if not rsnews.eof then lin = 0 do until rsnews.eof or lin=20 %> <% rsnews.movenext lin = lin +1 loop else %> <% end if %>
" class="font10"> <% datadica=day(rsnews("dia")) & "/" & month(rsnews("dia")) & "/" & year(rsnews("dia")) Response.Write datadica %> - <%=rsnews("titulo")%>
Nenhum cadastro.
<% if pagina>0 then %> <% end if %> <% if ((trim(vpag)>0) and (cint(pagina)<>cint(vpag))) then %> <% end if %>
"><% Response.Write "" %>
voltar para a página anterior