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?
Mensagem Quando Não Tiver Nada Pra Exibir
Started By Luka13, 06/08/2007, 09:03
10 replies to this topic
#1
Luka13
-
- Usuários
-
- 24 posts
Novato no fórum
- Sexo:Masculino
Posted 06/08/2007, 09:03
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?
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?
#2
Humberto - S.O.S.
-
- Banidos
-
- 463 posts
...
- Sexo:Masculino
- Localidade:São Bernardo do Campo - SP
Posted 06/08/2007, 10:17
<%
If RECORDSET.eof Or RECORDSET.bof Then
Response.Write("Hoje não tem nenhuma informação")
End If
%>OBS.: Troque "RECORDSET" pela tag do recordset que dá conexão com seu banco de dados, rs
Edição feita por: Humberto - S.O.S., 06/08/2007, 10:19.
...
#3
Luka13
-
- Usuários
-
- 24 posts
Novato no fórum
- Sexo:Masculino
Posted 06/08/2007, 16:53
Coloquei assim:
E deu o seguinte erro:
<%
If Noticias.eof Or Noticias.bof Then
Response.Write("Hoje não tem nenhuma informação")
End If
%>E deu o seguinte erro:
Script error detected at line 14.
Source line: If Noticias.eof Or Noticias.bof Then
Description: Objeto necessário: ''
#4
Humberto - S.O.S.
-
- Banidos
-
- 463 posts
...
- Sexo:Masculino
- Localidade:São Bernardo do Campo - SP
Posted 06/08/2007, 17:01
tenta assim:
OBS.: "Noticias" é o nome da sua conexão? se possivel poste a pagina
<%
If Noticias.EOF And Noticias.BOF Then
Response.Write("Hoje não tem nenhuma informação")
End If
%>OBS.: "Noticias" é o nome da sua conexão? se possivel poste a pagina
...
#5
Luka13
-
- Usuários
-
- 24 posts
Novato no fórum
- Sexo:Masculino
Posted 07/08/2007, 08:21
Ainda não deu.
<%
If NoticiasHJ.EOF And NoticiasHJ.BOF Then
Response.Write("Hoje não tem nenhuma informação")
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
%>
#6
Andre_seduc
-
- Usuários
-
- 38 posts
Turista
- Sexo:Não informado
Posted 07/08/2007, 12:24
tenta isso...
if NoticiasHJ.EOF then
response.write "Hoje não tem nenhuma informação"
end if
if NoticiasHJ.EOF then
response.write "Hoje não tem nenhuma informação"
end if
#7
Luka13
-
- Usuários
-
- 24 posts
Novato no fórum
- Sexo:Masculino
Posted 07/08/2007, 13:30
Tentei uma coisa: setar de outro modo. Mas o estranho é que com Recordset no Set, mesmo com algum registro pra exibir, dá o mesmo erro.
Veja como está todo o código do arquivo de teste noticia.asp:
Mas se eu colocar Command no lugar de Recordset, quando tem registro, ele mostra.
Veja como está todo o código do arquivo de teste noticia.asp:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/CadNoticias.asp" -->
<%
Dim NoticiasHJ
Dim NoticiasHJ_cmd
Dim NoticiasHJ_numRows
Set NoticiasHJ_cmd = Server.CreateObject ("ADODB.Recordset")
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 And NoticiasHJ.BOF Then
Response.Write("Hoje não tem nenhuma informação")
End If
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>Untitled Document</title>
</head>
<body>
<%=(NoticiasHJ.Fields.Item("TITULO").Value)%>
</body>
</html>
<%
NoticiasHJ.Close()
Set NoticiasHJ = Nothing
%>Mas se eu colocar Command no lugar de Recordset, quando tem registro, ele mostra.
Edição feita por: Luka13, 07/08/2007, 13:33.
#8
Humberto - S.O.S.
-
- Banidos
-
- 463 posts
...
- Sexo:Masculino
- Localidade:São Bernardo do Campo - SP
Posted 07/08/2007, 18:49
Ainda não deu.
<% If NoticiasHJ.EOF And NoticiasHJ.BOF Then Response.Write("Hoje não tem nenhuma informação") 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 %>
mas tá na cara!!!
primeiro voce tem que fazer a conexao "RecordSet", depois abaixo colocar o que te passei :S
Edição feita por: Humberto - S.O.S., 07/08/2007, 18:50.
...
#9
Luka13
-
- Usuários
-
- 24 posts
Novato no fórum
- Sexo:Masculino
Posted 08/08/2007, 08:23
agora funcionou... rsrsValeu mesmo.
Bom, tenho outra dúvida, pode até ser de principiante, mas lá vai:
A mensagem "Hoje não tem nenhuma informação" aparece lá no topo do design da página. Como fazer pra aparecer onde eu quero? (ou seja, no lugar onde aparecem as notícias)
#10
Humberto - S.O.S.
-
- Banidos
-
- 463 posts
...
- Sexo:Masculino
- Localidade:São Bernardo do Campo - SP
Posted 08/08/2007, 10:40
coloca isso:
att
<%
If NoticiasHJ.EOF And NoticiasHJ.BOF Then
Response.Write("Hoje não tem nenhuma informação")
End If
%>Aonde voce quer que fique a mensagem, mas lembrese! coloque abaixo da chamada da conexao (RECORDSET).att
...
#11
Luka13
-
- Usuários
-
- 24 posts
Novato no fórum
- Sexo:Masculino
Posted 08/08/2007, 11:27
Valeu cara!! 
Muito obrigado mesmo.
Fique com Deus.
Muito obrigado mesmo.
Fique com Deus.
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
