Sistema de Notícias nao tá adicionando no ano novo

[Custellinha 0]

Galera! O sistema de notícias do meu site aki parou de add noticias, eu adiciono através de formulários de administracao e a partir de 31 de dezembro ele nao tá adicionando! eh o seguinte:CODIGO DA 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 SubFunction ExibeData(data)dia_semana = WeekDay(data)Select Case dia_semanaCase 1 : dia_semana = "Domingo"Case 2 : dia_semana = "Segunda-Feira"Case 3 : dia_semana = "Terça-Feira"Case 4 : dia_semana = "Quarta-Feira"Case 5 : dia_semana = "Quinta-Feira"Case 6 : dia_semana = "Sexta-Feira"Case 7 : dia_semana = "Sábado"End Selectmes = Month(data)Select Case mesCase 1 : mes = "janeiro"Case 2 : mes = "fevereiro"Case 3 : mes = "março"Case 4 : mes = "abril"Case 5 : mes = "maio"Case 6 : mes = "junho"Case 7 : mes = "julho"Case 8 : mes = "agosto"Case 9 : mes = "setembro"Case 10 : mes = "outubro"Case 11 : mes = "novembro"Case 12 : mes = "dezembro"End SelectExibeData = dia_semana & ", " & Day(data) & " de " & mes & " de " & Year(data)End FunctionFunction FormataData(Data)If Data <> "" Then FormataData = Right("0" & DatePart("d", Data),2) & "/" & Right("0" & DatePart("m", Data),2) & "/" & DatePart("yyyy", Data)End FunctionFunction FormataHora(DataHora)FormataHora = Right("0" & DatePart("H",DataHora),2) & ":" & Right("0" & DatePart("n",DataHora),2) & ":" & Right("0" & DatePart("s",DataHora),2)End Function%>

Código da pagina que lista as notícias!

<!--#include file="connect.asp"--><table width="100%" border="0" cellpadding="2" cellspacing="0" class="content2" id="table35"><%AbreConexao()Set Datas = CONEXAO.EXECUTE("SELECT DISTINCT TOP 4 DATA FROM Noticias ORDER BY DATA DESC")DO WHILE NOT Datas.EOF%><tr><td><strong><font color="#000000" face="Verdana" size="2"><%=ExibeData(Datas("DATA"))%></font></strong></td></tr><%Set Noticias = CONEXAO.EXECUTE("SELECT TOP 20 * FROM Noticias WHERE Data = '"&Datas("data")&"'ORDER BY ID DESC" )Do While Not Noticias.EOF%><tr><td><font color="#666666" size="1"><strong> </strong><%=(Noticias("hora"))%></font> <a href="noticia.asp?id=<%=Noticias("id")%>" class="content"><font color="#000000" size="1" face="verdana"><%=Noticias("titulo")%></font></a></td></tr><%Noticias.MoveNextLoopSet Noticias = NothingDatas.MoveNextLoopSet Datas = NothingFechaConexao()%></table>

Creio que seja algum erro na função!Na hora que add a noticia ela nao aparece na listagem!Abraços!

[Custellinha 0]

Até adiciona no BANCO DE DADOS! mas nao lista!...Deve ser algum erro de data ou de ano!

[Thiago Marinho 0]

eu tenho a impressao q o erro esta em:<%AbreConexao()Set Datas = CONEXAO.EXECUTE("SELECT DISTINCT TOP 4 DATA FROM Noticias ORDER BY DATA DESC")DO WHILE NOT Datas.EOF%>Sabe pq... Troquei o DESC por ASC... aí apareceu as noticia s de 2007, mas voltou no começo de dezembro...Tem q colocar para o primeiro criterio de seleção das noticias ser o ano, depois o mês e por ultimo o dia...