<%@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, cont1 '----- 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 produtos where codigo=" & request("codigo") set rsblitz2=connnews.execute(varSQL2) '================= mais produtos ==================== varSQL = "SELECT * from produtos order by codigo DESC" set rsblitz=connnews.execute(varSQL) set rscount=connnews.execute("SELECT count(codigo) as soma from produtos") 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='4'") %> :: casa das molduras ::
" width="250" class="contornofotos">
<%=rsblitz2("nome")%>
Material: <%=rsblitz2("material")%>
Cor: <%=rsblitz2("cor")%>
Dimensões: <%=rsblitz2("dimensoes")%>
Marca: <%=rsblitz2("marca")%>
Descrição:
<%=rsblitz2("descricao")%>
<% 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="100"> <%=rsblitz("nome")%>

<%=rsblitz("dimensoes")%>

">

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