Error en buscador

[Owen-Bonilla]

Este codigo esta un poco largo, pero para que me entiendan pondre solo lo necesario.

Estas lineas me realizan la conexión a la DB

Código:

Dim con
	Set con = CreateObject("ADODB.Connection")
	con.Open strDB


cat=Split(Replace(request.querystring("FormCat"),"'","''")) 
myquery="SELECT * FROM tblEvents WHERE (((tblEvents.End_Date)>Date())) & INSTR(Event_Description,'"&cat(0)&"') & INSTR(Event_Name,'"&cat(0)&"') & INSTR(Event_Venue,'"&cat(0)&"') & INSTR(Contact_Name,'"&cat(0)&"') & INSTR(Even_Url,'"&cat(0)&"') & INSTR(More_Info,'"&cat(0)&"') & INSTR(Town,'"&cat(0)&"')" & _
Request.QueryString("formcat") & "%' ORDER BY Start_Date ASC  "

For i=1 to Ubound(cat)

myquery=myquery&" (((tblEvents.End_Date)>Date())) & OR INSTR(Event_name,'"&Busqueda(I)&"') OR INSTR(Event_venu,'"&Busqueda(I)&"') OR INSTR(contact_name,'"&Busqueda(I)&"') OR INSTR(event_url,'"&Busqueda(I)&"') OR INSTR(more_info,'"&Busqueda(I)&"') OR INSTR(town,'"&Busqueda(I)&"')"

Next 

Dim rs
	Set rs = CreateObject("ADODB.Recordset")
	rs.CursorLocation = adUseClient
	rs.PageSize = recordsToShow
	rs.CacheSize = recordsToShow
	rs.Open myquery, con, 3, 3

Ahora, me manda este error:

Código:

Tipo de error:
Microsoft JET Database Engine (0x80040E14)
Error de sintaxis (falta operador) en la expresión de consulta '(((tblEvents.End_Date)>Date())) & INSTR(Event_Description,'owen') & INSTR(Event_Name,'owen') & INSTR(Event_Venue,'owen') & INSTR(Contact_Name,'owen') & INSTR(Even_Url,'owen') & INSTR(More_Info,'owen') & INSTR(Town,'owen')owen%' ORDER BY Start_Date ASC'.
/rediseño/directorio/category_results.asp, línea 65

La linea 65 es esta: rs.Open myquery, con, 3, 3

Arriba en el código marque en NEGRITA la linea "hasta donde llega a recorrer el código" ....

Qué puede estar mal?

Saludos y Gracias

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

[urjose]

Bueno el error esta en que "ORDER BY Start_Date ASC"

queda a la mitad de la Query
y debería quedar al final

es decir debes concatenarlo despues del ciclo for que tienes.

Saludos

<center>
<p><a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/urjose.gif></a></p>
</center>

[Owen-Bonilla]

Que tal urjose !!!
fijate que ya quite mejor eso del ORDER .... y me sigue mandando errores

me mandaba un error de que no encontraba ningun dato con que validar o algo asi, entonces me fije que tenia unas lineas donde necesitaba un LIKE, lo agrege y quedo asi, pero me sigue mandando el mismo error :

Código:

  

Dim con
	Set con = CreateObject("ADODB.Connection")
	con.Open strDB


cat=Split(Replace(request.querystring("FormCat"),"'","''")) 
myquery="SELECT * FROM tblEvents WHERE (((tblEvents.End_Date)>Date())) & INSTR(Event_Description,'"&cat(0)&"') & INSTR(Event_Name,'"&cat(0)&"') & INSTR(Event_Venue,'"&cat(0)&"') & INSTR(Contact_Name,'"&cat(0)&"') & INSTR(Even_Url,'"&cat(0)&"') & INSTR(More_Info,'"&cat(0)&"') & INSTR(Town,'"&cat(0)&"') LIKE   '%" & _
Request.QueryString("formcat") & ""

For i=1 to Ubound(cat)

myquery=myquery&" (((tblEvents.End_Date)>Date())) & OR INSTR(Event_name,'"&Busqueda(I)&"') OR INSTR(Event_venu,'"&Busqueda(I)&"') OR INSTR(contact_name,'"&Busqueda(I)&"') OR INSTR(event_url,'"&Busqueda(I)&"') OR INSTR(more_info,'"&Busqueda(I)&"') OR INSTR(town,'"&Busqueda(I)&"')"

Next 

Dim rs
	Set rs = CreateObject("ADODB.Recordset")
	rs.CursorLocation = adUseClient
	rs.PageSize = recordsToShow
	rs.CacheSize = recordsToShow
	rs.Open myquery, con, 3, 3

Y el error pues cambio un poco, es este:

Código:

 Error de sintaxis en la cadena en la expresión de consulta '(((tblEvents.End_Date)>Date())) & INSTR(Event_Description,'owen') & INSTR(Event_Name,'owen') & INSTR(Event_Venue,'owen') & INSTR(Contact_Name,'owen') & INSTR(Even_Url,'owen') & INSTR(More_Info,'owen') & INSTR(Town,'owen') LIKE '%owen'.
/rediseño/directorio/category_results.asp, línea 65

Que puede estar mal, porque si me &quot;recoje&quot; los datos, y l averdad no se donde pueda estar mal

Saludos y gracias !!!

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

[urjose]

Usa un Response.Write myquery

Para que veamos el contenido de la variable e identigicar el error de sintaxis, ademas de que debes comentar la linea que ejecuta la query para que podamos ver dicho contenido y no mande el error.

Saludos

<center>
<p><a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/urjose.gif></a></p>
</center>

[Owen-Bonilla]

Ya trate de mostrar en pantalla el myquery, pero no me lo muestra en ningun lado.
Lo pose despues de abrir el &quot;RS&quot;

lo puse terminando de concatenar el SQL ...

y nada !!! porque sera?

hago esto:

Response.Write &quot; &quot;&amp; myquery &amp;&quot; &quot;
y
Response.Write &quot; &quot;&amp; Rs.myquery &amp;&quot; &quot;

Que pasa !!! esto ya me trae loco !!

Saludos

Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]

[urjose]

Debes ponerlo despues de terminar de crear la query
y antes de abrir el rs
de preferencia comenta el rs para que no lo abrar y que solo muestre el contenido de la variable.

Saludos

<center>
<p><a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/urjose.gif></a></p>
</center>