:: casa das molduras ::

<%@LANGUAGE="VBSCRIPT"%> <%Response.Expires = 0 dim rscount, vtotal, vpag, resto, vqtd, vinicio, i, pagina, vdia, vmes,vano, data, vcat, consta, connnews, cnpath, varSQL dim varSQL2, rsnews, lin '----- 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=10 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 dim Recmt, rsnews2, connnews6, cnpath6, objRS, varSQL3, vtitulo, 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 '----- Montar clusula SQL para consulta varSQL3 = "SELECT * from dicas where codigo=" & request("codigo") set rsnews2=connnews.execute(varSQL3) '===================== 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 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 ::

<%=rsnews2("titulo")%>
Data: <% datadica=day(rsnews2("dia")) & "/" & month(rsnews2("dia")) & "/" & year(rsnews2("dia")) Response.Write datadica %>

<% If rsnews2("imagem")<>"" then Response.Write "" end if texto = rsnews2("texto") texto = replace(texto, vbcrlf, "
") Response.Write texto %>

<% if not rsnews.eof then lin = 0 do until rsnews.eof or lin=10 %> <% rsnews.movenext lin = lin +1 loop else %> <% end if %>

	" class="font10preta"> <% datadica2=day(rsnews("dia")) & "/" & month(rsnews("dia")) & "/" & year(rsnews("dia")) Response.Write datadica2 %> - <%=rsnews("titulo")%>
Nenhum cadastro.

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