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

Se Valor Não Exixtir Apresentar Msg!


Guest mkboy

Pergunta

Ola amigos,

Eu fiz uma página com um select, que ta funcionando legal.

Se digitar algo, ele busca no banco, se o campo for vazio ele volta, só que ao digitar uma palavra que não tem no banco ele retorna pagina em branco.

Fiz uma mensagem informando que a palavra não consta no banco, mas não consigo colocar no codigo, só a mensagem tb funciona bem.

Segue o código:

<%

dim objRS

dim strrs

cor_titulo = "#cccccc"

%>

<%

'Recupera o que foi digitado

query = Request.querystring("query")

'Verifica se o campo não está vazio

If query = "" then

response.redirect "busca.asp"

End if

%>

<%

Set conn = Server.CreateObject ("ADODB.Connection")

strconn = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("fish.mdb")

conn.open strconn

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

%>

<%

strrs = "Select * from bo where nome like'%" & query & "%' order by email"

objRS.open strrs, conn

If objRS.EOF Then

response.write "&nbsp;"

End if

%>

<%

If erro <> "" Then

Response.Write mensagem

End if

Do While not objRS.Eof

%>

<HTML>

<head><title>Resultado da pesquisa</title>

<link rel=stylesheet type="text/css" href="estilos.css">

</head>

<body>

<%=nome%><br><%=email%>

</body>

</html>

A mensagem de erro:

<%

response.write "<center>"

response.write "<table  border=0 width="&"90%"&" cellspacing="&"0"&"  cellpaging="&"0"&">"

response.write "<tr><td>Resultado da pesquisa:</td></tr>"

response.write "</table>"

response.write "<br>"

response.write "<table bgcolor="&"#000033"&" border=0 width="&"90%"&" cellspacing="&"0"&"  cellpaging="&"0"&">"

response.write "<tr><td>"

response.write "<table bgcolor="&"#ffffff"&" border=0 width="&"100%"&" cellspacing="&"0"&"  cellpaging="&"0"&">"

response.write "<tr><td bgcolor="&"#efefef"&"><font class="&"padrão"&">Nenhum registro encontrado.</font></td></tr>"

response.write "<tr><td><a href="&"busca.asp"&">:: Voltar</a></td></tr>"

response.write "</table>"

response.write "</td></tr>"

response.write "</table>"

response.write "</center>"

%>

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Fiz assim

.....

<%

If objRS.EOF Then

response.write "<center>"

response.write "<table  border=0 width="&"90%"&" cellspacing="&"0"&"  cellpaging="&"0"&">"

response.write "<tr><td>Resultado da pesquisa:</td></tr>"

response.write "</table>"

response.write "<br>"

response.write "<table bgcolor="&"#000033"&" border=0 width="&"90%"&" cellspacing="&"0"&"  cellpaging="&"0"&">"

response.write "<tr><td>"

response.write "<table bgcolor="&"#ffffff"&" border=0 width="&"100%"&" cellspacing="&"0"&"  cellpaging="&"0"&">"

response.write "<tr><td bgcolor="&"#efefef"&"><font class="&"padrão"&">Nenhum registro encontrado.</font></td></tr>"

response.write "<tr><td><a href="&"busca.asp"&">:: Voltar</a></td></tr>"

response.write "</table>"

response.write "</td></tr>"

response.write "</table>"

response.write "</center>"

End if

%>

</body>

</html>

Deu esse erro:

Tipo de erro:

ADODB.Recordset (0x800A0E78)

Operation is not allowed when the object is closed.

/pesca/boletim/processa_01.asp, line 111

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
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...