Muy buenas
Miren, tengo una busqueda en mi web dondé puede buscar según algunos criterios.
Uno de los criterio de busqueda es el sexo.
1-si hago una busqueda de hombre o mujer me sale bien.
Pero si busco ambos sexos me sale bien pero me sale tambien el mensaje "No existe usuario con estos criterio" que es la respuesta a la busqueda sin resultado.No consigo ver dondé esta el fallo.Este mensaje sale junto con el resultado de busqueda de ambos sexos.
Aqui tienen el codigo.
Gracias por mirar
[sql="select * from personass where sexo= '" &request.form("sexo") &"' AND edad ='" &request.form("edad")& "' AND pais = '" &request.form("pais")& "'AND provincia = '" &request.form("provincia")& "'"
set rs= Server.CreateObject ("ADODB.RecordSet")
rs.Open sql, oConn
If (rs.EOF = true) then
response.Write("<table width=100% border=1 bordercolor=000000 cellspacing=0 cellspadding=10 align=cente >")
response.write("<td> <font class='negrita'>")
response.Write("<B> No existe ningún usuario con estos criterios, por favor vuelve a intentarlo</B>")
response.Write("</td></table>")
end if
if (""&request.Form("sexo")&"")= "Ambos" then
sql2="select * from personass where edad ='" &request.form("edad")& "' AND pais = '" &request.form("pais")& "'AND provincia = '" &request.form("provincia")& "'"
set rs2= Server.CreateObject ("ADODB.RecordSet")
rs2.Open sql2, oConn
Do while not rs2.EOF
response.Write("<table width=100% border=1 bordercolor=000000 cellspacing=0 cellspadding=10 align=center >")
response.write("<td> <font class='negrita'>")
response.write("<table border=0 height=100 width=100% cellspading=2 >")
response.write("<tr valign=top><td width=40% >")
response.Write("<a href='mificha.asp?Nomamigo="&rs2("Nomamigo")&"'<fo nt class='negrita'> <b>"&rs2("NomAmigo")&"</b></a>")
response.Write("</td>")
response.Write(" <td align=right width=60% ><font class='negrita'><b>"&rs2("edad")&"<b>Años</b> "&rs2("provincia")&"")
response.Write("</td></tr>")
response.Write(" <tr> <td colspan=2> </td> </tr>")
response.Write("<tr> <td colspan=2> <font class='negrita'>"&rs2("comentario")&"</td></tr>")
response.Write("</table>")
response.Write("</td></tr></table><br><p>")
rs2.movenext
loop
end if
If (""&request.Form("sexo")&"")<>"Ambos" then
sql2="select * from personass where sexo= '" &request.form("sexo") &"' AND edad ='" &request.form("edad")& "' AND pais = '" &request.form("pais")& "'AND provincia = '" &request.form("provincia")& "'"
set rs2= Server.CreateObject ("ADODB.RecordSet")
rs2.Open sql2, oConn
Do while not rs2.EOF
response.Write("<table width=100% border=1 bordercolor=000000 cellspacing=0 cellspadding=10 align=cente >")
response.write("<td> <font class='negrita'>")
response.write("<table border=0 height=100 width=100% cellspading=2 >")
response.write("<tr valign=top><td width=40% >")
response.Write("<a href='mificha.asp?Nomamigo="&rs2("Nomamigo")&"'<fo nt class='negrita'> <b>"&rs2("NomAmigo")&"</b></a>")
response.Write("</td>")
response.Write(" <td align=right width=60% ><font class='negrita'><b>"&rs2("edad")&"<b>Años</b> "&rs2("provincia")&"")
response.Write("</td></tr>")
response.Write(" <tr> <td colspan=2> </td> </tr>")
response.Write("<tr> <td colspan=2> <font class='negrita'>"&rs2("comentario")&"</td></tr>")
response.Write("</table>")
response.Write("</td></tr></table><br><p>")
rs2.movenext
loop
end if
response.write("<center><br><br><img src='volver.gif' onClick=history.back()></center>")
