Busqueda Multiple en .asp

ncianc · #1 (**permalink**) 25/09/2010, 12:20

Buenas tardes, necesito su ayuda!!! Tengo una pagina web interna de mi trabajo y necesito adjuntar una parte la cual haga una busqueda multiple. Es decir, tengo 5 campos de resultado: N# de solicitud, Nombre de empleado, Descripcion de cambio, Estado (Pendinte, cerrado, Abierto). Qusiiera la busqueda se pueda realizar de tal manera de los resultados ya ingresados por ej. pueda buscar: 1) De "X" empleado, buscar aquellos cambios "Pendientes" de tal numero de solicitud. Se puede hacer eso? Muchas gracias!

Adler · #2 (**permalink**) 25/09/2010, 13:16

Hola

Una ración de SQL marchando

Suerte

junnior · #3 (**permalink**) 30/09/2010, 08:03

Hola disculpa que me meta, si se puede realizar busqueda multiples, si todavia no solucionar el tema, avisame, creo que te puedo ayudar.

ncianc · #4 (**permalink**) 01/10/2010, 07:41

Junnior, muchas gracias! La verdad aun no se como hacerlo. La verdad es que no me quedo muy claro como poder hacer lo que necesito. Aqui dejo mi script:

<%
poo = Request.Form ("texto")
sta = Request.Form ("nombre")

if ( poo = "" and sta = "") then
Sql= "SELECT * FROM Plans"
else
if(sta="") then
Sql= "SELECT * FROM Plans WHERE Pool LIKE '%" & poo & "%'"
else
Sql= "SELECT * FROM Plans WHERE Status LIKE '%" & sta & "%'"
end if
end if
dbfile=Server.MapPath("fpdb/ticketsgenerales.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, OBJdbConnection, 3, 3 %>

<CENTER>

<TABLE BORDER=1>
<TR>
<tr bgcolor= "#990000">
<TH>Clave</TH>
<TH>Manager Approval</TH>
<TH>Category</TH>
<TH>Priority</TH>
<TH>Description</TH>
<TH>Pool</TH>
<TH>OwnerTrainer</TH>
<TH>AssociateTrainee</TH>
<TH>DueDate</TH>
<TH>StartDate</TH>
<TH>DateCompleted</TH>
<TH>AdditionalComments</TH>
<TH>Status</TH>

<% DO UNTIL rs.Eof %>
<TR>

<TD><CENTER> <%= rs("Clave") %> </CENTER></TD>
<TD><CENTER> <%= rs("ManagerApproval") %> </CENTER></TD>
<TD><CENTER> <%= rs("Category") %> </CENTER></TD>
<TD><CENTER> <%= rs("Priority") %> </CENTER></TD>
<TD><CENTER> <%= rs("Description") %> </CENTER></TD>
<TD><CENTER> <%= rs("Pool") %> </CENTER></TD>
<TD><CENTER> <%= rs("OwnerTrainer") %> </CENTER></TD>
<TD><CENTER> <%= rs("AssociateTrainee") %> </CENTER></TD>
<TD><CENTER> <%= rs("DueDate") %> </CENTER></TD>
<TD><CENTER> <%= rs("StartDate") %> </CENTER></TD>
<TD><CENTER> <%= rs("DateCompleted") %> </CENTER></TD>
<TD><CENTER> <%= rs("AdditionalComments") %> </CENTER></TD>
<TD><CENTER> <%= rs("Status") %> </CENTER></TD>

<% rs.MoveNext
LOOP
set rs = Nothing
OBJdbConnection.Close
set OBJdbConnection = Nothing%>

</TABLE>

La idea es que asi como lo tengo solo busca o por Pool o por Status. Necesito que si elijo X pool e Y Status busque en ambas, y no por separado.

GRacias!!!!

junnior · #5 (**permalink**) 01/10/2010, 08:01

que ete parece si lo hacemos por separado y si se cumple la condicion se ve la info.

Supongo que validate que si es vacio ambos text, traera toda la info, correcto.

este sera el primer select

Sql = "select * from planes"
'aramo cadena para saber si espero un paremtro
if(sta<>"") then
Sql2 = sql2 & "WHERE Status LIKE '%" & sta & "%' "
end if
if(Pool <>"") then
Sql2 = sql2 & "WHERE Pool LIKE '%" & poo & "%'"
end if

Sql = Sql & Sql2

puedes ocupara la qe mejor te acomode
set rs = oConn.Execute(Sql)

rs.Open sql, OBJdbConnection, 3, 3

espero que te funciona, esta es la logica.
has la pueba, veras tus distintos resultados.
si aún no te queda claro avisame.

ncianc · #6 (**permalink**) 01/10/2010, 08:40

Gracias Junnior por tu pronta respuesta. Este es el script como esta ahora:

<%
poo = Request.Form ("texto")
sta = Request.Form ("nombre")

Sql = "select * from Plans"
'aramo cadena para saber si espero un paremtro
if(sta <>"") then
Sql2 = sql2 & "WHERE Status LIKE '%" & sta & "%' "
end if
if(Pool <>"") then
Sql2 = sql2 & "WHERE Pool LIKE '%" & poo & "%'"
end if

Sql = " Sql & Sql2 "

end if
dbfile=Server.MapPath("fpdb/ticketsgenerales.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, OBJdbConnection, 3, 3 %>

Me dice lo siguiente:

Error Type:
Microsoft VBScript compilation (0x800A0400)
Expected statement
/PlanManagementTool/search.asp, line 44

La linea 44 es donde arranca el ultimo end if.

junnior · #7 (**permalink**) 01/10/2010, 09:31

esto se produce cuando realizas la busqueda uno por uno, o llenas los 2 campos y buscas?

si es asi como imagino.

tienes que hacer otra cadena (otro if) preguntando por ambos

If(campo1<>'' and campo2 <>'' then
Sql2 = sql2 & "WHERE Status LIKE '%" & sta & "%' and Pool LIKE '%" & poo & "%' "
end if

prueba y me avisas.

junnior · #8 (**permalink**) 01/10/2010, 09:33

ese ultimo if que me dices borralo porque no corresponde.

ncianc · #9 (**permalink**) 01/10/2010, 09:39

La busqueda que necesito realizar es por dos campos a la vez o cuando presiono el boton busqueda por todos losa campos sin seleccion.

Asi es como quedo es script:

<%
poo = Request.Form ("texto")
sta = Request.Form ("nombre")

If(field1 <>'' and field2 <>'' then
Sql2 = sql2 & "WHERE Status LIKE '%" & sta & "%' and Pool LIKE '%" & poo & "%' "

dbfile=Server.MapPath("fpdb/ticketsgenerales.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, OBJdbConnection, 3, 3 %>

Me da un error de syntax en la linea 33 Col 12 que seria (If(field1 <>'' and field2 <>'' then
)

Gracias!

Pd. En caso se te ocurra otra forma de hacerlo que no sea con mi modelo de busqueda bienvenido sea!! jejeje

junnior · #10 (**permalink**) 01/10/2010, 09:46

consulta: recien estas trabajando con asp?

<%
poo = Request.Form ("texto")
sta = Request.Form ("nombre")

If(poo <>'' and sta <>'' then
Sql2 = sql2 & "WHERE Status LIKE '%" & sta & "%' and Pool LIKE '%" & poo & "%' "
end if

dbfile=Server.MapPath("fpdb/ticketsgenerales.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql2 , OBJdbConnection, 3, 3 %>

Me da un error de syntax en la linea 33 Col 12 que seria (If(field1 <>'' and field2 <>'' then
)

claro le falto el end if

manadame todo el codigo de la busqueda, incluye todo. y te pego la revisada.

ncianc · #11 (**permalink**) 01/10/2010, 10:01

No, vengo trabajando desde hace unos meses, pero no le busco la vuelta para las busquedas...

Hasta aora solo podia hacer busqueda de a un campo no de a varios.

<HTML>
<TITLE> Search Plan Status information </TITLE>
<body bgcolor="#FFFFFF" bgproperties="fixed" background="ibmbackgroundsuave.jpg">

<img SRC="ServiceManagement.bmp" width="600" height="95"> 
  
<table width="100%" align=left>
<td width="50%" align=right>
<table align="left">
<td align="left">
 
<a href="http://www.forosdelweb.com/f15/PlanManagementTool/Default.htm">Home</a>
 | 
<a target="_top" href="search.htm">Plan Status Search</a>
 | 

</td>
</tr>
</table>
</td>
</tr>
</table>


 

<hr>

<%
poo = Request.Form ("texto")
sta = Request.Form ("nombre")

If(poo <>"" and sta <>"") then
Sql2 = sql2 & "WHERE Status LIKE '%" & sta & "%' and Pool LIKE '%" & poo & "%' "
end if

dbfile=Server.MapPath("fpdb/ticketsgenerales.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql2 , OBJdbConnection, 3, 3 %>

<CENTER>

<TABLE BORDER=1>
<TR>
<tr bgcolor= "#990000">
<TH>Clave</TH>
<TH>Manager Approval</TH>
<TH>Category</TH>
<TH>Priority</TH>
<TH>Description</TH>
<TH>Pool</TH>
<TH>OwnerTrainer</TH>
<TH>AssociateTrainee</TH>
<TH>DueDate</TH>
<TH>StartDate</TH>
<TH>DateCompleted</TH>
<TH>AdditionalComments</TH>
<TH>Status</TH>

<% DO UNTIL rs.Eof %>
<TR>

<TD><CENTER> <%= rs("Clave") %> </CENTER></TD>
<TD><CENTER> <%= rs("ManagerApproval") %> </CENTER></TD>
<TD><CENTER> <%= rs("Category") %> </CENTER></TD>
<TD><CENTER> <%= rs("Priority") %> </CENTER></TD>
<TD><CENTER> <%= rs("Description") %> </CENTER></TD>
<TD><CENTER> <%= rs("Pool") %> </CENTER></TD>
<TD><CENTER> <%= rs("OwnerTrainer") %> </CENTER></TD>
<TD><CENTER> <%= rs("AssociateTrainee") %> </CENTER></TD>
<TD><CENTER> <%= rs("DueDate") %> </CENTER></TD>
<TD><CENTER> <%= rs("StartDate") %> </CENTER></TD>
<TD><CENTER> <%= rs("DateCompleted") %> </CENTER></TD>
<TD><CENTER> <%= rs("AdditionalComments") %> </CENTER></TD>
<TD><CENTER> <%= rs("Status") %> </CENTER></TD>

<% rs.MoveNext
LOOP
set rs = Nothing
OBJdbConnection.Close
set OBJdbConnection = Nothing%>

</TABLE>

 
<table width="84%" align="left">
<tr>
<td width="50%" align="right">
<table align="left">
<tr>
<td align="center">
</FORM>
<table width="100%" align="left">
<td width="50%" align="right">
<table align="left">
<td align="left">


</td>
</tr>
</table>
</td>
</tr>
</table>

</BODY>
</HTML>

Este es todo el script

junnior · #12 (**permalink**) 01/10/2010, 10:13

estas seguro que esta todo, revise y falta los text (input text)
donde se ingresa la palabra a buscar, igual te voy a dar un ejempo

ncianc · #13 (**permalink**) 01/10/2010, 10:16

ahhhhhhhh, perdon!

ahi va:

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
<TITLE>Plan Status Seach</TITLE>
</HEAD>
<body bgcolor="#FFFFFF" bgproperties="fixed" background="ibmbackgroundsuave.jpg">

<img SRC="ServiceManagement.bmp" width="600" height="95">
 
<table width="84%" align="left">
<td width="50%" align="right">
<table align="left">
<td align="center">
 
<a href="http://www.forosdelweb.com/f15/PlanManagementTool/Default.htm">Home</a>
 | 
</td>
</tr>
</table>
</td>
</tr>
</table>

<a href="http://www.forosdelweb.com/f15/PlanManagementTool/Default.htm"> 
 
<marquee behavior="Alternate" scrolldelay="50" scrollamount="4"
style="font-size: 20pt; color: #990000; font-weight: bold">Plan Status Search</marquee>
</a> 
<hr>
<FORM action="../PlanManagementTool/search.asp" method=post name="SEA">
Section search by data  Search by Pool:  <IMG SRC="pool.bmp" border="2">

 
<INPUT NAME="texto" size="25" tabindex="0"> 
 
or 

 
Search by Status : <IMG SRC="status.bmp" border="2">

 
<INPUT NAME="nombre" size="25" tabindex="1">

<INPUT type=submit value=Search tabindex="2">      & nbsp;  
<INPUT type=reset value=Restore tabindex="3"> 
 
Note : If you leave blank "Search of data" field, and you press "Search" you will receive the whole information of the projects.
</FORM>
<table width="84%" align="left">
<td width="50%" align="right">
<table align="left">
<td align="center">
 
<a href="http://www.forosdelweb.com/f15/PlanManagementTool/Default.htm">Home</a>
</td>
</tr>
</table>
</td>
</tr>

</BODY>
</HTML>

junnior · #14 (**permalink**) 01/10/2010, 10:29

ok, prueba,

<HTML>
<TITLE> Search Plan Status information </TITLE>
<body bgcolor="#FFFFFF" bgproperties="fixed" background="ibmbackgroundsuave.jpg">

<img SRC="ServiceManagement.bmp" width="600" height="95"> 
  
<table width="100%" align=left>
<td width="50%" align=right>
<table align="left">
<td align="left">
 
<a href="http://www.forosdelweb.com/f15/PlanManagementTool/Default.htm">Home</a>
 | 
<a target="_top" href="search.htm">Plan Status Search</a>
 | 

</td>
</tr>
</table>
</td>
</tr>
</table>


 

<hr>

<%
poo = Request.Form ("texto")
sta = Request.Form ("nombre")
'opcional
set rs = Server.CreateObject("ADODB.Recordset")

sql = " select * from tabla "

If(poo <>"") then
Sql2 = sql2 & " WHERE Pool LIKE '%" & poo & "%' "
end if

If(sta <>"") then
Sql2 = sql2 & " WHERE Status LIKE '%" & sta & "%' "
end if

If(poo <>"" and sta <>"") then
Sql2 = sql2 & " WHERE Status LIKE '%" & sta & "%' and Pool LIKE '%" & poo & "%' "
end if

'concateno variables
sql = sql & sql2

'espero que tu coneccion sea buena.
dbfile=Server.MapPath("fpdb/ticketsgenerales.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql , OBJdbConnection, 3, 3 %>

<CENTER>

<TABLE BORDER=1>
<TR>
<tr bgcolor= "#990000">
<TH>Clave</TH>
<TH>Manager Approval</TH>
<TH>Category</TH>
<TH>Priority</TH>
<TH>Description</TH>
<TH>Pool</TH>
<TH>OwnerTrainer</TH>
<TH>AssociateTrainee</TH>
<TH>DueDate</TH>
<TH>StartDate</TH>
<TH>DateCompleted</TH>
<TH>AdditionalComments</TH>
<TH>Status</TH>

<% DO UNTIL rs.Eof %>
<TR>

<TD><CENTER> <%= rs("Clave") %> </CENTER></TD>
<TD><CENTER> <%= rs("ManagerApproval") %> </CENTER></TD>
<TD><CENTER> <%= rs("Category") %> </CENTER></TD>
<TD><CENTER> <%= rs("Priority") %> </CENTER></TD>
<TD><CENTER> <%= rs("Description") %> </CENTER></TD>
<TD><CENTER> <%= rs("Pool") %> </CENTER></TD>
<TD><CENTER> <%= rs("OwnerTrainer") %> </CENTER></TD>
<TD><CENTER> <%= rs("AssociateTrainee") %> </CENTER></TD>
<TD><CENTER> <%= rs("DueDate") %> </CENTER></TD>
<TD><CENTER> <%= rs("StartDate") %> </CENTER></TD>
<TD><CENTER> <%= rs("DateCompleted") %> </CENTER></TD>
<TD><CENTER> <%= rs("AdditionalComments") %> </CENTER></TD>
<TD><CENTER> <%= rs("Status") %> </CENTER></TD>

<% rs.MoveNext
LOOP
set rs = Nothing
OBJdbConnection.Close
set OBJdbConnection = Nothing%>

</TABLE>

 
<table width="84%" align="left">
<tr>
<td width="50%" align="right">
<table align="left">
<tr>
<td align="center">

<table width="100%" align="left">
<td width="50%" align="right">
<table align="left">
<td align="left">


</td>
</tr>
</table>
</td>
</tr>
</table>

</BODY>
</HTML>

ncianc · #15 (**permalink**) 01/10/2010, 10:39

Me busca solo de un solo campo, si le doy para que busque de a dos me da el siguiente error:

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'Pool LIKE '%DBO%' WHERE Status LIKE '%Solution%' WHERE Status LIKE '%Solution%' and Pool LIKE '%DBO%''.
/PlanManagementTool/search.asp, line 57

LA linea 57 es la siguiente:

rs.Open Sql, OBJdbConnection, 3, 3 %>

junnior · #16 (**permalink**) 01/10/2010, 10:48

y si cambia tu apertura por este

rs.Open Sql, OBJdbConnection, 1, 1

si no te funciona

response.write sql
response.end

y me enviar al query.

ncianc · #17 (**permalink**) 01/10/2010, 11:00

<%
poo = Request.Form ("texto")
sta = Request.Form ("nombre")
'opcional
set rs = Server.CreateObject("ADODB.Recordset")

sql = " select * from Plans "

If(poo <>"") then
sql2 = sql2 & " WHERE Pool LIKE '%" & poo & "%' "
end if

If(sta <>"") then
sql2 = sql2 & " WHERE Status LIKE '%" & sta & "%' "
end if

If(poo <>"" and sta <>"") then
sql2 = sql2 & " WHERE Status LIKE '%" & sta & "%' and Pool LIKE '%" & poo & "%' "
end if

'concateno variables
sql = sql & sql2

'espero que tu coneccion sea buena.
dbfile=Server.MapPath("fpdb/ticketsgenerales.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open Sql, OBJdbConnection, 1, 1%>

Ahora busca de a 1 campo o campos en blancos para traer todo.
Error:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC driver does not support the requested properties.
/PlanManagementTool/search.asp, line 57

junnior · #18 (**permalink**) 01/10/2010, 11:04

si t fijas tienes 2 veces dclarado el record set borra uno

ncianc · #19 (**permalink**) 01/10/2010, 11:05

'espero que tu coneccion sea buena.
dbfile=Server.MapPath("fpdb/ticketsgenerales.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
rs.Open Sql2, OBJdbConnection, 1, 1%>

Sigue el mismo error, asi lo deje

junnior · #20 (**permalink**) 01/10/2010, 11:31

escribe lo siguient

response.write sql
response.end

rs.Open Sql2, OBJdbConnection, 3, 3

necesito ver que te imprime en el sql

junnior · #21 (**permalink**) 01/10/2010, 11:32

es rs.open sql no sql2

ncianc · #22 (**permalink**) 01/10/2010, 11:36

Me abre la pantalla de busqueda y me aparece solo esto:

Realice una busqueda solo del primer campo:
--------------------------------------------------------------------------------
select * from Plans WHERE Pool LIKE '%PSO%'
--------------------------------------------------------------------------------

ncianc · #23 (**permalink**) 01/10/2010, 11:36

sql = " select * from Plans "

If(poo <>"") then
sql2 = sql2 & " WHERE Pool LIKE '%" & poo & "%' "
end if

If(sta <>"") then
sql2 = sql2 & " WHERE Status LIKE '%" & sta & "%' "
end if

If(poo <>"" and sta <>"") then
sql2 = sql2 & " WHERE Status LIKE '%" & sta & "%' and Pool LIKE '%" & poo & "%' "
end if

'concateno variables
sql = sql & sql2

'espero que tu coneccion sea buena.
dbfile=Server.MapPath("fpdb/ticketsgenerales.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
response.write sql
response.end
rs.Open Sql, OBJdbConnection, 1, 1%>

junnior · #24 (**permalink**) 01/10/2010, 11:42

perfecto te deberia de funcionar

omite
'response.write sql
'response.end

y has denuevo la misma prueba...

ncianc · #25 (**permalink**) 01/10/2010, 11:47

nop, no funciona, mismo error:

Ahora busca de a 1 campo o campos en blancos para traer todo.
Error:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC driver does not support the requested properties.
/PlanManagementTool/search.asp, line 57

<%
poo = Request.Form ("texto")
sta = Request.Form ("nombre")
'opcional
set rs = Server.CreateObject("ADODB.Recordset")

sql = " SELECT fields from Plans "

If(poo <>"") then
sql2 = sql2 & " WHERE Pool LIKE '%" & poo & "%' "
end if

If(sta <>"") then
sql2 = sql2 & " WHERE Status LIKE '%" & sta & "%' "
end if

If(poo <>"" AND sta <>"") then
sql2 = sql2 & " WHERE Pool LIKE '%" & poo & "%' AND Status LIKE '%" & sta & "%' "
end if

sql = sql & sql2

dbfile=Server.MapPath("fpdb/ticketsgenerales.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
rs.Open Sql, OBJdbConnection, 1, 1%>

No habra algun problema en la sequencia :

If(poo <>"" AND sta <>"") then
sql2 = sql2 & " WHERE Pool LIKE '%" & poo & "%' AND Status LIKE '%" & sta & "%' "
end if ?

Gracias!

junnior · #26 (**permalink**) 01/10/2010, 11:51

prueba con los 2 campos llenos y le das buscar

response.write sql
response.end

para saber si se cae en donde me mencionas

ncianc · #27 (**permalink**) 01/10/2010, 11:53

Me sale este cartel en la pantalla, no como error, solo esto:

select * from Plans WHERE Pool LIKE '%PSO%' WHERE Status LIKE '%ON GOING%' WHERE Status LIKE '%ON GOING%' and Pool LIKE '%PSO%'

No me trae la table con la informacion.

Lo deje asi:

<%
poo = Request.Form ("texto")
sta = Request.Form ("nombre")
'opcional
set rs = Server.CreateObject("ADODB.Recordset")

sql = " select * from Plans "

If(poo <>"") then
sql2 = sql2 & " WHERE Pool LIKE '%" & poo & "%' "
end if

If(sta <>"") then
sql2 = sql2 & " WHERE Status LIKE '%" & sta & "%' "
end if

If(poo <>"" and sta <>"") then
sql2 = sql2 & " WHERE Status LIKE '%" & sta & "%' and Pool LIKE '%" & poo & "%' "
end if

'concateno variables
sql = sql & sql2

dbfile=Server.MapPath("fpdb/ticketsgenerales.mdb")
Set OBJdbConnection=Server.CreateObject("ADODB.Connect ion")
OBJdbConnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&dbfile
response.write sql
response.end
rs.Open Sql, OBJdbConnection, 1, 1%>

junnior · #28 (**permalink**) 01/10/2010, 11:59

esta bien con esto podemos revisar los errores ...y es ovbio que tenemos uno granade y es en la sentencia

select * from Plans WHERE Pool LIKE '%PSO%' WHERE Status LIKE '%ON GOING%' WHERE Status LIKE '%ON GOING%' and Pool LIKE '%PSO%'

si te fijas esta mal

cambia la estructura.

sql = " select * from Plans "

If(poo <>"" and sta <>"") then
sql2 = sql2 & " WHERE Status LIKE '%" & sta & "%' and Pool LIKE '%" & poo & "%' "
end if

If(poo <>"") then
sql2 = sql2 & " WHERE Pool LIKE '%" & poo & "%' "
end if

If(sta <>"") then
sql2 = sql2 & " WHERE Status LIKE '%" & sta & "%' "
end if

ncianc · #29 (**permalink**) 01/10/2010, 12:03

sigue igual

junnior · #30 (**permalink**) 01/10/2010, 12:04

te sigue mostrando esto:

select * from Plans WHERE Pool LIKE '%PSO%' WHERE Status LIKE '%ON GOING%' WHERE Status LIKE '%ON GOING%' and Pool LIKE '%PSO%'