como recupero las busquedas que se hacen en mi buscador?....plis ayuda

[basty]

Como puedo saber lo que se busca en mi site en el buscador en asp que tengo?

Alguien sabe?......



este es el codigo......

==============================================
<%

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
%>
==============================================

como lo implemento ???????....

PD: cuando ejecuto en mi machine me aparece este error:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][Controlador ODBC Microsoft Access] El sistema operativo no admite la secuencia de ordenación seleccionada.



como soluciono eso?


graciaaaaaaaas.....al q me conteste!

[Manoloweb]

<%

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) like '%" & UCase(Request("palabra")) & "%'" || UCase(Nombre) like '%" & UCase(Request("palabra")) & "%'" || UCase(Direccion)like '%" & UCase(Request("palabra")) & "%'" || UCase (Telefono) like '%" & UCase(Request("palabra")) & "%'"
-------------------->


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


Creo que por ahi va...

[basty]

yo tengo una bdd llamada "Busquedas", quiero q ahi se guarden las palabras que se buscan........


lo que tengo es:

====================

<%

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 ([Fecha], Palabras) VALUES ('" &now()& "', '"&palabra&"')"


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

%>

====================

Hasta ahi todo bien, me pone la fecha en q se busco, y me agrega filas, pero:

NO ME APARECE LA PALABRA QUE SE BUSCO (osea, no se escribe en la bdd "Busqueda" .....????

COMO LO ARREGLO......

Se q es una huevada, pero hace horas q estoy y no lo puedo sacar....

Thanks

[Manoloweb]

<%

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 ([Fecha], Palabras) VALUES ('" &now()& "', '"&valorBusqueda &"')"


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

%>

[basty]

Manoloweb....

FUNCIONA.....!!!!

MIL GRACIAS!!!!!!!!!!

......y para poner tipo "lo que se busca" como hago????

ya es mucho pedir no'?

igual con eso ya estoy hecho!!!!

Gracias nuevamene!

[almaluz]

Supongo que habras de leer la tabla de busquedas y mostrar,



antes de cerrar la conexion

Set rs=Server.CreateObject("ADODB.RecordSet")

mostrar= "SELECT TOP 10 FROM busquedas ORDER BY id DESC"

rs.Open mostrar

...............


rs.Close
con.Close

(Supongo)

[basty]

la cosa es asi:
como hago, por ejemplo un top 10 de lo que se busca......pero
que lo tome de la tabla, pero solo los ultimos 10 registros y no el resto?

como lo agrego:

<%

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 ([Fecha], Palabras) VALUES ('" &now()& "', '"&valorBusqueda &"')"


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

%>


agradezco respuestas!!!....

thanks!!

[basty]

alguien me ayuda con lo anterior.... q no me sale?


gracias.....snif.....

[basty]

de nuevo el buscador......

no me escribe las busqedas............¿?

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

Busqueda = Request.form("palabra")
consulta="INSERT INTO Busquedas ([Fecha], Palabras) VALUES ('" &now()& "' , '"&Busqueda&"')"

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

pone la fecha, pero no la palabra q se busca.....

ah, y como hago un top 10 q se escriba arriba del buscador?