Sistema de Notícias - Problema de Data

[Custellinha 0]

Ajuda!To com um sistema de noticias aki e kero uma ajudinha!ó o codigo:CONNECT.ASP<%Dim StrConDim ConexaoSet Conexao = Server.CreateObject("ADODB.CONNECTION")StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("administracao/database_site.mdb")Sub AbreConexao()Conexao.Open StrConEnd SubSub FechaConexao()Conexao.closeEnd Sub %>-------------------------------------------------NOTICIAS.ASP<!--#include file="connect.asp"--><%AbreConexao()Set Datas = CONEXAO.EXECUTE("SELECT DISTINCT DATA FROM Noticias ORDER BY DATA DESC")DO WHILE NOT Datas.EOF%><tr><td><strong> <font color="#D24140" face="Verdana" size="2"><%=ExibeData(Datas("DATA"))%></font></strong></td></tr><%Set Noticias = CONEXAO.EXECUTE("SELECT TOP 60 * FROM Noticias WHERE Data = '"&Datas("data")&"'ORDER BY ID DESC" )Do While Not Noticias.EOF%><tr><td><font color="#C0C0C0" size="1"><%=Noticias("hora")%></font> <a href="http://flamengol.com/inc_noticia.asp?id=<%=Noticias("id")%>" class="content"><font color="#FFFFFF"><%=Noticias("titulo")%></font></a></td>---------------------------------------------------------Negocio eh o seguinte...esse codigo ele pega as 60 ultimas do dia...eu kero q ele pegue as 60 ultimas do banco de dados em geral! sacam ? heheQem puder ajudar ae!...Agradeço!Vlw! ^^

[jothaz 1]

Ajuda!To com um sistema de noticias aki e kero uma ajudinha!ó o codigo:CONNECT.ASP<%Dim StrConDim ConexaoSet Conexao = Server.CreateObject("ADODB.CONNECTION")StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("administracao/database_site.mdb")Sub AbreConexao()Conexao.Open StrConEnd SubSub FechaConexao()Conexao.closeEnd Sub %>-------------------------------------------------NOTICIAS.ASP<!--#include file="connect.asp"--><%AbreConexao()Set Datas = CONEXAO.EXECUTE("SELECT DISTINCT DATA FROM Noticias ORDER BY DATA DESC")DO WHILE NOT Datas.EOF%><tr><td><strong> <font color="#D24140" face="Verdana" size="2"><%=ExibeData(Datas("DATA"))%></font></strong></td></tr><%Set Noticias = CONEXAO.EXECUTE("SELECT TOP 60 * FROM Noticias WHERE Data = '"&Datas("data")&"'ORDER BY ID DESC" )Do While Not Noticias.EOF%><tr><td><font color="#C0C0C0" size="1"><%=Noticias("hora")%></font> <a href="http://flamengol.com/inc_noticia.asp?id=<%=Noticias("id")%>" class="content"><font color="#FFFFFF"><%=Noticias("titulo")%></font></a></td>---------------------------------------------------------Negocio eh o seguinte...esse codigo ele pega as 60 ultimas do dia...eu kero q ele pegue as 60 ultimas do banco de dados em geral! sacam ? heheQem puder ajudar ae!...Agradeço!Vlw! ^^

Troque:

Set Noticias = CONEXAO.EXECUTE("SELECT TOP 60 * FROM Noticias WHERE Data = '"&Datas("data")&"'ORDER BY ID DESC" )

Por isso:

Set Noticias = CONEXAO.EXECUTE("SELECT TOP 60 * FROM Noticias ORDER BY ID DESC" )

Acho que resolve.

[Custellinha 0]

Deu nao! nao deu nenhum erro mas as noticias se repetiram nos dias!exemplo:Terçanoticia 1noticia 2Quartanoticia 1noticia 2Quintanoticia 1noticia 2AS noticias repetiram!

[Chuck Norris 0]

Tenta colocar o seguinteSet Noticias = CONEXAO.EXECUTE("SELECT DISTINCT TOP 60 * FROM Noticias ORDER BY ID DESC" )

[jothaz 1]

Cara,Ooops! Foi mal ai.Faltou o DISTINCT.Caso o DISTINCT funcione use o GROUP BY.t+

[Custellinha 0]

Dá o seguinte erro:Microsoft JET Database Engine error '80040e57'The field is too small to accept the amount of data you attempted to add. Try inserting or pasting less data./noticias.asp, line 190 Linha do codigo 190:Set Noticias = CONEXAO.EXECUTE("SELECT DISTINCT TOP 60 * FROM Noticias ORDER BY ID DESC" )://////////Alguem ajuda ae!Qualquer coisa add msn:custellinha@cliquehumor.com.br

[jothaz 1]

você ja executou o comando SELECT DISTINCT TOP 60 * FROM Noticias ORDER BY ID DESC direto no banco de dados access?

 

Qual o resultado que traz?

 

Segue um link aqui do forum explicando a msg de erro:

 

http://www.imasters.com.br/forum/lofiversi...hp/t167977.html

 

ou

http://forum.imasters.com.br/index.php?sho...rt=#entry404694

 

t+

[SilvaExtreme 0]

Olá Custellinha

Se o código que você deseja usar é exatamente este aê, precisava ver mais o que você tem nessa página, pra ver se de repente está conflitando, vou posta um código que uso, funfando 100%, talvez te ajude um pouco:

Pág config.asp

<% Set DB = Server.CreateObject("ADODB.Connection")sConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _"Data Source=" & Server.MapPath("seubanco.mdb") & ";" & _"Persist Security Info=True"DB.Open(sConnection)%>

pag geral.asp

<!--#include file="config.asp" --><%						Set RS = Server.CreateObject("ADODB.Recordset")			RS.Open "SELECT * from Noticias order by id desc", DB			Contar = 1						pulo = "0"			Do while not Rs.Eof			Classe = Rs("Classe")			Classe1 = Rs("Classe1")			Topico = Rs("Topico")			Hora = Rs("Horas")			Data = Rs("Data")			id = Rs("id")			if id = "" Then			end if					   IF Contar = 9 Then 'aqui você define quantas noticias que nesta página				exit Do			End if			if Contar > 50 Then			  Response.write ("<br>")			End if			%></b></font><a href="Noticias.asp?Noticias=<%Response.Write id%>&Classe=<%Response.Write Classe%>"><font face="Verdana,Arial" size="1" color="red"><b><%=Data%> </b></font></a><font color="red" face="Tahoma"><span style="font-size:11pt;"><b>»</b></span></font><a href="Noticias.asp?Noticias=<%Response.Write id%>&Classe=<%Response.Write Classe%>"><font face="Verdana,Arial" size="1" color="#666666"><b> <%=Topico%></b></font></a><font face="Verdana,Arial" size="1" color="#666666"><b> <br>					<%			Contar = Contar + 1			Rs.MoveNext			Loop			%>					<%			Rs.Close			Set Rs = Nothing			%>

Ah, tenho um sistema de notícias completo, com upload de fotos e noticias divididas por categorias, está aqui no forum, faça uma busca no laboratório de scripts

Sucesso aê cara, e precisando... chama

[Ted k' 126]

Amigo SilvaExtreme muito bom sua ajuda mais ñ reparou nada de estranho no topico ñ por exemplo a data dele? http://forum.imasters.com.br/public/style_emoticons/default/yes.gif 14/12/2006 - 14:20

[Custellinha 0]

uparam legal o tópico ein!?

[SilvaExtreme 0]

Ow Ted k'

Sou novo por aquê. Mas a idéia central não era responder axatamente ao custellinha, o tópico é velho pacas, postei uma ajuda hoje em outro de 2005...

A idéia central é não eixar o tópico pendurado sem uma solução paupável, se foi mal pode deletar, mas conheço uma galerinha que passa horas lendo foruns, perguntas e respostas de todos os tipos e linguagens pra aprender mesmo!

Tentei ser útil!

Abraços!!! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

Amigo SilvaExtreme muito bom sua ajuda mais ñ reparou nada de estranho no topico ñ por exemplo a data dele? http://forum.imasters.com.br/public/style_emoticons/default/yes.gif 14/12/2006 - 14:20

[Ted k' 126]

Tentei ser útil!

Ninguem está reclamando cara, muito boa asua idéia de não deixar nada sem resposta, só pensei que ñ tinha reparado a data, mais pode "colocar o dedo" nos tópicos, e irei deixar o topico æ, pois tem usuários que podem estar com a mesma duvida!!!

 

Abraços e continue assim man!!!