Erro na hora de exibir as últimas notícias do DB

[ivoce 0]

http://forum.imasters.com.br/public/style_emoticons/default/excl.gif Oi pessoal do imasters, beleza...

 

Estou com um problema no meu site e não sei como resolver. SE puder contar com a ajuda de vocês ficarei grato. OI problema que vem ocorrendo é que a minha página index.asp não está exibindo as última snotícias cadastradas. Ela chega a exibir sim as notícias, mas não as 4 últimas que eu cadastrei, com isso fica a impressão de que o site está ddesatualizado. Gostaria muito de que me ajudassem a resolver este problema.

 

Abaixo publicarei um trecho do código que chama para exibir as últimas notícias. Vale lembrar que é apenas para exibir as 4 últimas cadastradas.

 

Para ver o código completo, clique neste link por favor. O arquivo está em txt.

Download código

 

<!--#include file="config.asp"-->

<%

'************************************************* **********************

'** **

'** **

'** **

'************************************************* **********************

 

SQL = "SELECT Top 4 noticias.ID, noticias.categoria, noticias.descricao, noticias.data, noticias.foto, categorias.categorias FROM noticias, categorias WHERE categorias.ID=noticias.categoria ORDER BY noticias.ID DESC"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.Open SQL, Dados, 1, 2

 

Cont = RS.RecordCount

Aux = 1

Dim RS_Tema(4), RS_Data(4), RS_Foto(4), RS_Descricao(4), RS_Link(4)

 

While (Aux <= Cont)

RS_Tema(Aux) = RS("categorias")

RS_Data(Aux) = RS("data")

RS_Foto(Aux) = "../noticias/imagens/" & RS("Foto")

 

If Ucase(Cstr(RS_Foto(Aux))) = "../noticias/imagens/N" then

RS_Foto(Aux) = "../noticias/imagens/semfoto.gif"

End if

 

RS_Descricao(Aux) = RS("Descricao")

RS_link(Aux) = "../noticias/view.asp?id=" & RS("ID")

Aux = Aux + 1

RS.MoveNext

Wend

 

 

%>

[code=auto:0]

[ultra 0]

coloca isso abaixo do rs.Open SQL, Dados, 1, 2 pra testar algumas coisas:

 

while not rs.eof

response.write rs("noticias.id") & "<BR>"

response.write rs("noticias.data") & "<BR>"

response.write rs("noticias.descricao") & "<BR><BR>"

rs.movenext

wend

 

response.end