3 replies to this topic

[maxcs]

Oi, estou com um codigo bem simples e bem pequeno de uma busca em um bd, porem quando não há resultados encontrados ele retorna uma tela vazia... alguem poderia me ajudar a adicionar uma frase do tipo "Nenhum resultado encontrado" ?

Segue o codigo da pagina formulario.asp
-------------------------------------------------------------
<FORM ACTION='resultado.asp' METHOD='POST'>
<INPUT TYPE='TEXT' NAME='search'>
<INPUT TYPE='SUBMIT' VALUE='Search'>
</FORM>
-------------------------------------------------------------



Segue o codigo da pagina resultado.asp (é nesta que eu quero acrescentar)
-------------------------------------------------------------
<%
strSearch = Request.Form("search")
If strSearch <> "" Then
Dim strConnect, SQL
Dim RS
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb") & ";"
SQL = "SELECT * FROM teste WHERE exibir= 'sim' and INSTR(teste.senha,'" & strSearch & "') "
Set RS = Server.CreateObject("Adodb.Recordset") categories from DB
RS.Open SQL,strConnect
Do Until RS.EOF
Response.Write "1 - " & RS("url") & "<BR>"
Response.Write RS("site") & "<BR><BR>"
RS.MoveNext
LOOP
RS.Close
End If
%>


Agradecido à quem puder me ajudar...

[Generation]

Æ Tenta isso....


<%

if rs.eof or rs.bof then
Response.Write "<script>alert('Nenhum Registro Encontrado')</script>"
Response.Write "<meta http-equiv='refresh' content='0;URL=pagina_de_busca.asp'>"
else
do while not rs.eof
Response.Write "1 - " & rs("url") & "<BR>"
Response.Write rs("site") & "<BR><BR>"
rs.movenext
loop
end if

RS.Close
End If
%>


T+

Generation

Edição feita por: Generation, 22/08/2004, 09:37.

[Agente Linhares]

é..e vc pod ecolocar o redirect no mesmo js ao invés no meta.

ou até por em asp msm: response.redirect "pg.asp"

[maxcs]

Valeu Generation e Agente Linhares...
Ficou melhor do que eu esperava com o uso de um alert.