buscador

pepa
06 de Mayo del 2002
hola, estoy haciendo un buscador y me tiene frita
capturo estos cuatro datos de un formulario (slo busco por uno pq estoy paso a paso), el caso es q siempre me muestra todos, he cambiado mil cosas y lo q os mando son los ltimos cambios, muchas gracias
<%Option Explicit%>
<%
Dim conn
set conn= Server.CreateObject("ADODB.Connection")
conn.Open Application("conn_ConnectionString")

dim szSQL
dim ADORs
dim tipo
dim loca
dim pdesde
dim phasta

tipo=trim(Request.Form("tipo"))
loca=Request.Form("localidad")
pdesde=Request.Form("pdesde")
phasta=Request.Form("phasta")


if (tipo="todo") then
szSQL="select * FROM businmu order by tipo;"
else
szSQL="select * FROM businmu WHERE tipo like '%" & Replace(tipo, "'", "''") & "%'"
szSQL=szSQL & " ORDER BY tipo;"

end if


set ADORs=conn.Execute(szSQL)
if ADORs.eof then
%>