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 "recoje" los datos, y l averdad no se donde pueda estar mal
Saludos y gracias !!!
Owen Bonilla
Webmaster Weblaguna S. C.
[email protected]
[email protected]