[resolvido] Mensagem Quando Não Tiver Nada Pra Exibir

[Luka13th]

Tenho uma página que exibe dados de um banco Access, de acordo com cada dia.

Porém há dias que não haverá informações para serem exibidas.

Nesse caso, como fazer para exibir uma frase no lugar dessa informação?

:huh:

[.Andreia.]

if tab.eof then
response.write "não existem registros para exibir"
else
while not tab.eof
response.write tab("data")
tab.movenext
wend
end if

[Luka13th]

Coloquei assim:

<%
if Noticias.eof then
response.write "não existem registros para exibir"
else
while not Noticias.eof
response.write Noticias("data")
Noticias.movenext
wend
end if
%>

E deu o seguinte erro:

Script error detected at line 14.

Source line: if Noticias.eof then

Description: Objeto necessário: ''

[bareta]

o noticias ta como recordset você o criou e abriu neste arquivo?

[Luka13th]

Pois é... mas olha só: criei outro documento com o recordset NoticiasHJ. O arquivo de conexão se chama CadNoticias, a tabela do banco se chama Noticias e assim tá a página (ainda dando erro):

<%
if NoticiasHJ.eof then
response.write "não existem registros para exibir"
else
while not NoticiasHJ.eof
response.write NoticiasHJ("data")
NoticiasHJ.movenext
wend
end if
%>

<%
Dim NoticiasHJ
Dim NoticiasHJ_cmd
Dim NoticiasHJ_numRows

Set NoticiasHJ_cmd = Server.CreateObject ("ADODB.Command")
NoticiasHJ_cmd.ActiveConnection = MM_CadNoticias_STRING
NoticiasHJ_cmd.CommandText = "SELECT * FROM Noticias WHERE [DATA] = date()" 
NoticiasHJ_cmd.Prepared = true

Set NoticiasHJ = NoticiasHJ_cmd.Execute
NoticiasHJ_numRows = 0
%>

[bareta]

repare que o recordeset é executado antes de ser criado... por isso o erro...

o dreamweaver faz essas bagaça de coloco código no lugar errado SEMPRE!!!...

<%
Dim NoticiasHJ
Dim NoticiasHJ_cmd
Dim NoticiasHJ_numRows

Set NoticiasHJ_cmd = Server.CreateObject ("ADODB.Command")
NoticiasHJ_cmd.ActiveConnection = MM_CadNoticias_STRING
NoticiasHJ_cmd.CommandText = "SELECT * FROM Noticias WHERE [DATA] = date()" 
NoticiasHJ_cmd.Prepared = true

Set NoticiasHJ = NoticiasHJ_cmd.Execute
NoticiasHJ_numRows = 0

if NoticiasHJ.eof then
response.write "não existem registros para exibir"
else
while not NoticiasHJ.eof
response.write NoticiasHJ("data")
NoticiasHJ.movenext
wend
end if
%>

[Luka13th]

Ih cara... :P

Fiz igual você postou... mas dá o seguinte erro agora:

Script error detected at line 49.

Source line: Response.Write (NoticiasHJ.Fields.Item("TITULO").Value)

Description: BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual.

[bareta]

mude a sql

"SELECT * FROM Noticias WHERE [DATA] = date()"

para

"SELECT * FROM Noticias WHERE DATA =#"&date()&"#"

[Luka13th]

Valeu consegui!

Obrigado. :D

[bareta]

ok... tópico fechado