<% '===================== destaques ====================================================== dim connnews3, cnpath3, cont3, data3, vdia3, vmes3, vano3, texto, texto1, texto2 '----- Conexão com o Banco, Sem ODBC set connnews5=server.createobject("adodb.connection") cnpath5="DBQ=" & server.mappath("bd/dbcm.mdb") connnews5.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath5 set rsdestaque1=connnews5.execute("SELECT * from destaquespp where codigo=1") set rsdestaque2=connnews5.execute("SELECT * from destaquespp where codigo=2") set rsdestaque3=connnews5.execute("SELECT * from destaquespp where codigo=3") '===================== dicas ====================================================== dim connnews4, cnpath4, cont, rsnews '----- Conexão com o Banco, Sem ODBC set connnews4=server.createobject("adodb.connection") cnpath4="DBQ=" & server.mappath("bd/dbcm.mdb") connnews4.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath4 set rsnews=connnews4.execute("Select * from dicas order by dia DESC") '===================== produtos destaques ====================================================== dim connnews, cnpath, cont1, rs '----- 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 set rs=connnews.execute("Select * from produtos_destaques") '===================================================================================== 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='1'") %> :: casa das molduras ::
<% Response.Write "" %> <%=rsdestaque1("titulo")%>

<% texto2 = left(rsdestaque1("texto"),180) texto2 = replace(texto2, vbcrlf, "
") Response.Write texto2 %> ...
<% Response.Write "" %> <%=rsdestaque2("titulo")%>

<% texto = left(rsdestaque2("texto"),180) texto = replace(texto, vbcrlf, "
") Response.Write texto %> ...
<% Response.Write "" %> <%=rsdestaque3("titulo")%>

<% texto1 = left(rsdestaque3("texto"),180) texto1 = replace(texto1, vbcrlf, "
") Response.Write texto1 %> ...
<% if rsnews.eof then %> <% else rsnews.movefirst cont = 1 do until (cont>7) or (rsnews.eof) %> <% cont = cont +1 rsnews.movenext loop end if %>
" class="font11"><%=rsnews("titulo")%>
"> <% Response.Write "" %>

<% if rs.eof then %> <% else rs.movefirst cont1 = 1 do until (cont1>4) or (rs.eof) %> <% cont1 = cont1 +1 rs.movenext loop end if %>
 
<% Response.Write "" %> <%=rs("titulo")%>

<%=rs("texto")%>