Use nosso "Quadro de Anúncios", pois é se comunicando que a gente compra e vende.

Para facilitar os negócios, cite sua cidade/uf e seu telefone com área DDD. Seu anúncio ficará no "quadro" durante 30 dias. Depois desse tempo, se ainda houver interesse, você pode recolocar a mensagem.

"Praticar, induzir ou incitar a discriminação ou preconceito de raça, cor, etnia, religião ou procedência nacional configura crime (art. 20, Lei nº 7.716/89)". O CAVU não se responsabiliza pelo conteúdo das mensagens publicadas neste Fórum, mas se reserva ao direito de apagar, sem prévio aviso, aquelas que tenham conteúdo ofensivo, racista e/ou discriminatório".

<% ConnString="DBQ=e:\home\balaio\dados\anuncioscavu.mdb;Driver={Microsoft Access Driver (*.mdb)}" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConnString del = " DELETE * FROM resposta WHERE ((([data]+ 30) < Now() ));" Set Registros = Conn.execute(del) del2 = " DELETE * FROM topico WHERE ((([data]+ 30) < Now() ));" Set Registros = Conn.execute(del2) myquery = "select * from topico where show = 1 order by data desc " Set Registros = Conn.execute(myquery) %> <% cont = 0 proximo =1 anterior = -1 %> <% While Not Registros.EOF cont = cont+1 proximo = proximo+1 anterior= anterior+1 %>

<% query2="select * from resposta where numero ="®istros("numero")&" and show =1 order by data desc " Set Reg= conn.execute(query2) While not Reg.eof %> <% Reg.movenext wend%>

Por  " > <%= Registros("nome") %>  -  <%=Formatdatetime( Registros("data"),vblongdate) %>  às  <%=Formatdatetime( Registros("data"),vbshorttime) %> horas,  pelo IP  <%= Registros("ip") %>

 

<%= Registros("mensagem") %>

<% Registros.MoveNext Wend '%>

 

<% 'Registros.Close 'Reg.Close Set Registros = Nothing Set Conexao = Nothing '%>