Ir para conteúdo
Fórum Script Brasil
  • 0

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


Luka13th

Pergunta

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:

Link para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 0

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: ''

Link para o comentário
Compartilhar em outros sites

  • 0

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
%>

Link para o comentário
Compartilhar em outros sites

  • 0

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
%>

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novos posts.


  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...