<%@LANGUAGE="VBSCRIPT"%> <%Response.Expires = 0 dim Recmt, rsnews, connnews, cnpath, varSQL, varSQL2, lin, col, rsdata, vmes, vdia, vano, rsblitz dim rscount, vtotal, vpag, resto, vqtd, vinicio, i, pagina, data, data2, rsdata2, texto, cont vdia = day(date) vmes = month(date) vano = year(date) data2 = vmes & "/" & vdia & "/"& vano '----- 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 varSQL = "SELECT * from agenda where data>=#"& data2 &"# order by data" set rsnews=connnews.execute(varSQL) '===================== 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='7'") %> :: casa das molduras ::
<% if rsnews.eof then %> <% else rsnews.movefirst cont = 1 do until (cont>7) or (rsnews.eof) %> <% cont = cont +1 rsnews.movenext loop end if %>
<% If rsnews("imagem")<>"" then Response.Write "" end if %>
Evento: <%=rsnews("titulo")%>
Local: <%=rsnews("local")%>
Data: <% dataevento=day(rsnews("data")) & "/" & month(rsnews("data")) & "/" & year(rsnews("data")) Response.Write dataevento %> Hora: <%=rsnews("hora")%>
Cidade: <%=rsnews("cidade")%>
Mais Informações :

<% texto = rsnews("texto") texto = replace(texto, vbcrlf, "
") Response.Write texto %>
"><% 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")%>