Jump to content
Fórum Script Brasil
  • 0

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


Luka13th
 Share

Question

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 to comment
Share on other sites

9 answers to this question

Recommended Posts

  • 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

Guest
This topic is now closed to further replies.
 Share



  • Forum Statistics

    • Total Topics
      150.2k
    • Total Posts
      647.5k
×
×
  • Create New...