<%@LANGUAGE="VBSCRIPT"%> <%Response.Expires = 0 '===================== produtos destaques ====================================================== dim connnews, cnpath1, cont1, rs '----- Conexão com o Banco, Sem ODBC set connnews=server.createobject("adodb.connection") cnpath1="DBQ=" & server.mappath("bd/dbcm.mdb") connnews.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='4'") %> :: casa das molduras ::


Temos os mais diversos modelos de Molduras por metro linear.


Temos os mais diversos modelos de Molduras prontas em diversos tamanhos e formas.


As mais belas gravuras você encontra aqui.

Os mais diversos modelos de espelhos em diversos tamanhos e formas.

Os mais diversos modelos de espelhos em diversos tamanhos e formas.
"><% 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")%>