Mensaje

[Fabian olmos]

Tengo este codigo el cual me buaca las direcciones e-mail de las persona que tengo en mi pagina, es decir, quiero que el usuario coloque cualquier nombre en un textfields de un formulario y cuando le de al boton de buscar le muestre al usuario todass la personas y su respectivas ctas email dependiendo del nombre que coloque en dicho formulario. este codigo me lo hace pero cuando la persona no existe en mi bd le debo mostrar un mensaje, yo lo hago pero el problema este que dicho mensaje me loo muestra exista o no la persona en mi bd como lo puedo solucionar.

aqui va el codigo:


<%
dim Recoger
Recoger= cstr(request.form("Buscar"))
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & SERVER.MApPath("Bases de Datos\San Ignacio de Loyola.mdb"))
set rs = CreateObject("ADODB.Recordset")
rs.Open "Acceso_Personal", conn,1

<%

rs.movefirst
do while rs.eof = false
if(Recoger= rs("Nombre")) then
response.write (rs("Nombre") & (" ") & (rs("Apellido")))
response.write ("<br>")

%>
</font><font color="#000066" size="1" face="Arial, Helvetica, sans-serif"><strong>Email:</strong></font><font color="#990033" size="2" face="Arial, Helvetica, sans-serif">
<a href="Mailto:<% = rs("cta_mail") %>">
<% = rs("cta_mail")%>
<% response.write ("<br>" & "<br>")%>
</a> <strong>
<%
end if
rs.movenext
loop

%>


saludos y gracias al que me puda ayudar.

[Manoloweb]

Creo que te falto pegar la parte donde haces la condicionante...

De todos modos:

If NOT (TuDato.BOF and TuDato.EOF) Then

Despliegas tus registros

Else

Desplegas el mensaje

End If


Creo que por ahi va...