Buscador, Funciona Mal!!!!

[basty]

LA COSA ES ASI:
CUANDO ALGUIEN NO PONE NINGUNA PALABRA Y PRESIONA BUSCAR, DEVUELVE TOOODOS LOS REGISTROS.....!!!!.......

COMO HAGO PARA QUE PONGA 'INTRODUZCA UNA PALABRA"????

PLIS JELP MI!!!

CODIGO DE CONEXION

<%
Set conexion=Server.CreateObject("ADODB.Connection")
conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; "& "Dbq=" & Server.MapPath("busquedas.mdb")

valorBusqueda = request.form("palabra")
consulta="INSERT INTO Busquedas (Palabras, Fecha) VALUES ('"&valorBusqueda&"', '" &now()& "')"

Set resultado=conexion.Execute (consulta)
conexion.Close

%>

[Fr@Nc3$c0]

Crea un if el cual devuelva un mensaje personalizado si no introduce ninguna palabra.

If palabra = "" then
response.write " Introduce un valor "
End if

Algo así, (ahí tienes la idea)

Saludos!

[MsTech.DotNet]

Mejorando la idea de Fr@Nc3$c0 ......

<%
Set conexion=Server.CreateObject("ADODB.Connection")
conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; "& "Dbq=" & Server.MapPath("busquedas.mdb")

valorBusqueda = request.form("palabra")

If ValorBusqueda = "" then
response.write " Introduce un valor "
Else
consulta="INSERT INTO Busquedas (Palabras, Fecha) VALUES ('"&valorBusqueda&"', '" &now()& "')"

Set resultado=conexion.Execute (consulta)
conexion.Close
End if
%>

Espero que te sirva... sino cualquier cosa avisa...

Saludos...

[basty]

ES ASI LA CONECTION

<%

Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base_guia.mdb")

Dim Temp

Temp="Select * From Comercios Where UCase(Categoria & Nombre & Direccion & Telefono) like '%" & UCase(Request("palabra")) & "%'"

Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>

DONDE METO ESO Q DICEN????

[basty]

ME AYUDAN CON LO DE ARRIBA.....ROMPI TODO Y ANDA PAL CULETE!!!!!!!1.........LO TENGO Q ARREGLAR YA!

[affv]

basty!

Y si en lugar de mostrar el mensaje con if lo mostras al momento que tienen que llenar el formulario de busqueda y dejan un campo en blanco le mustras un error diciendo que lo debe llenar.

Pero si ya pensaste en eso y no te parece puedes solucionarlo con el if

<% if Request.QueryString("Variable") = "" then %>

aqui va un mensaje cuando este el blanco la variable

<% else %>

Aqui va la conexion y todo lo que te muestra cuando hay resultados

<% End if %>

Creo que esto te debe de funcionar cualquier cosa me avisas para ver como te ayudo.

[Fr@Nc3$c0]

Hola Basty

Deberías hacerlo mas o menos así en función lo que proporcionas:

<%

Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base_guia.mdb")


If PALABRA= "" then
response.write " Introduce un valor "
Else
Dim Temp
Temp="Select * From Comercios Where UCase(Categoria & Nombre & Direccion & Telefono) like '%" & UCase(Request("palabra")) & "%'"
End if

Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>


Salu2!!!! y suerte (avisa si te funciona)

[affv]

<%

Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("base_guia.mdb")

if Request.QueryString("Variable") = "" then

response.write " Introduce un valor "

else

Dim Temp
Temp="Select * From Comercios Where UCase(Categoria & Nombre & Direccion & Telefono) like '%" & UCase(Request("palabra")) & "%'"
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then

end if
%>

[affv]

lo olvide cambia variable por palabra

[Gurrutello]

basti
para ahorrarte problemas
pon...
if request.querystring("variable")="" then
response.redirect"pagina_de_no_acceso.asp?porque=n o_palabras"
end if

en la parte de arriba de tu codigo o antes de hacer la coneccion a la base de datos

en la pagina pagina_de_no_acceso.asp podras registrar todos los fallos que cometan tus usuarios o visitantes
al poner " porque=no_palabras"

mandas una variable a esa pagina en la cual podrias poner

if request.querystring("porque")="no_palabras" then
response.write"No efectuó ningun criterio de busqueda"
end if

.....
y asi con todos los fallos en el uso de tu web que realicen los usuarios
saludos

[basty]

CHICUELOS!!!!!
gracias a todos

YA LO SOLUCIONE!!!!!!!!!!

[Fr@Nc3$c0]

Para eso está el foro amigo.

¡¡Salu2!!