caja de buscador con varios valores

[potenkin]

hola,
tengo un formulario que hace de caja de buisqueda, envia unos valores a una página asp que los recoge y segín eses valores busca dentro de una base de datos y devuelve un resultado.

El caso es que tengo una lista en el formulario, donde hay 2 opciones, regalos y descuentos

<select name="promocio" id="promocio">
<option value="regalo">regalo</option>
<option value="desuento">descuento</option>
</select>

me gustaria añadir una tercera opcion que fuera ver todo, que cuando se seleccionara esa opcion, sirviera para los 2 valores, se mostraran regalos y tambien descuentos

<select name="promocio" id="promocio">
<option value="regalo">regalo</option>
<option value="desuento">descuento</option>
<option value="regalo descuento">ver todos</option>
</select>

sabeis si es posible hacerlo, y que tendria que poner en <option value=" ">

gracias de antemano

[JuanRAPerez]

posible es ponerlo

lo que si nos gustaria saber es como tratas esa cadena en el SQL que te regresa los resultados

en la pagina que muestras los resultados como haces la sentencia

where tipo = 'regalo' o ?????

pega el código de tu sql y trataremos de ayudarte

suerte

[potenkin]

hola,
recojo la info de la siguiente manera, con 2 variables sector y promocion, en promocion es donde quiero introducir esta variacion


----------

<%
Dim fitxa__MMColParam
fitxa__MMColParam = "1"
If (Request.QueryString("sector") <> "") Then
fitxa__MMColParam = Request.QueryString("sector")
End If
%>

<%
Dim fitxa__MMColParam2
fitxa__MMColParam2 = "2"
If (Request.QueryString("promocio") <> "") Then
fitxa__MMColParam2 = Request.QueryString("promocion")
End If
%>

<%
Dim fitxa
Dim fitxa_cmd
Dim fitxa_numRows

Set fitxa_cmd = Server.CreateObject ("ADODB.Command")
fitxa_cmd.ActiveConnection = MM_emocity_STRING
fitxa_cmd.CommandText = "SELECT * FROM fitxa WHERE seccio_comercial = ? AND desccuento = ? ORDER BY nom ASC"
fitxa_cmd.Prepared = true
fitxa_cmd.Parameters.Append fitxa_cmd.CreateParameter("param1", 200, 1, 255, fitxa__MMColParam) ' adVarChar
fitxa_cmd.Parameters.Append fitxa_cmd.CreateParameter("param2", 200, 1, 255, fitxa__MMColParam2) ' adVarChar

Set fitxa = fitxa_cmd.Execute
fitxa_numRows = 0
%>

[JuanRAPerez]

ok
entonces "promocio" verificas que traiga algo, y lo colocas en tu sql

tu sentencia se leeria:
"SELECT * FROM fitxa WHERE seccio_comercial = ? AND desccuento = 'regalo' ORDER BY nom ASC"

ahora bien la idea podría ser así:

Código PHP:

  Combo
<select name="promocio" id="promocio">
<option value="regalo">regalo</option>
<option value="desuento">descuento</option>
<option value="Ambos">ver todos</option>
</select> 
   

entonces

- recoges la variable promocio
- si trae "ambos" usas una sql que diga and descuento in ('regalo','descuento')
- en caso contrario (else) usas tu consulta actual

suerte

[potenkin]

seria algo asi? no funciona

"SELECT * FROM fitxa WHERE seccio_comercial = ? AND descuento = 'regalo'
if
descuento = "ambos" in ('regalo','descuento')
else
descuento = ?
ORDER BY nom ASC"


no seria mejor dejar en vacio ambos <option value="">ver todos</option>
y decir en SQL que cuando este vacio, devuelva los dos resultados descuento y regalo, o que no filtre??


if
descuento = "" ....

[JuanRAPerez]

yo decía algo así:

<%
Dim fitxa__MMColParam
fitxa__MMColParam = "1"
If (Request.QueryString("sector") <> "") Then
fitxa__MMColParam = Request.QueryString("sector")
End If
%>

<%
Dim fitxa__MMColParam2
fitxa__MMColParam2 = "2"
If (Request.QueryString("promocio") <> "") Then
fitxa__MMColParam2 = Request.QueryString("promocion")
End If
%>

<%
Dim fitxa
Dim fitxa_cmd
Dim fitxa_numRows

Set fitxa_cmd = Server.CreateObject ("ADODB.Command")
fitxa_cmd.ActiveConnection = MM_emocity_STRING

if (Request.QueryString("promocio") = "Ambos" then
fitxa_cmd.CommandText = "SELECT * FROM fitxa WHERE seccio_comercial = ? AND desccuento in ('regalo','descuento') ORDER BY nom ASC"
fitxa_cmd.Prepared = true
fitxa_cmd.Parameters.Append fitxa_cmd.CreateParameter("param1", 200, 1, 255, fitxa__MMColParam) ' adVarChar
else
fitxa_cmd.CommandText = "SELECT * FROM fitxa WHERE seccio_comercial = ? AND desccuento = ? ORDER BY nom ASC"
fitxa_cmd.Prepared = true
fitxa_cmd.Parameters.Append fitxa_cmd.CreateParameter("param1", 200, 1, 255, fitxa__MMColParam) ' adVarChar
fitxa_cmd.Parameters.Append fitxa_cmd.CreateParameter("param2", 200, 1, 255, fitxa__MMColParam2) ' adVarChar
end if


Set fitxa = fitxa_cmd.Execute
fitxa_numRows = 0
%>

no se pero proba

suerte

[potenkin]

SSSSIIIIIIII !!!!

funciona !!! faltaba cerrar un parenresis, pero una vez cerrado, funciona !!

muchas gracias man

[JuanRAPerez]

bueno me alegra te funcionara

suerte :)

[potenkin]

hola,
una pregunta mas. Ahora quiero pasar ese valor en una variable a otra pàgina

1. recojo el URL
<%
direccionURL = Request.ServerVariables("URL")
%>

2. deberia añadirle el SQL anterior...

<%
direccionURL = Request.ServerVariables("URL") & fitxa
%>

de esta manera no funciona, seguro que es una tonteria, perono la sé...

3. despues lo enviaria con un enlace

pagina2.asp?=direccionURL


el paso 2 es el que no sé


salut

[Adler]

Hola

Haz una prueba de escritorio y verás por qué no funciona

<%
direccionURL = Request.ServerVariables("URL") & fitxa
response.write direccionURL
response.end
%>

Suerte

[potenkin]

falta el dominio?

yo diria que no esta bien referenciado el recordset fitxa, per ahi esta la duda como se hace?

[JuanRAPerez]

Iniciado por potenkin

1. recojo el URL
<%
direccionURL = Request.ServerVariables("URL")
%>

2. deberia añadirle el SQL anterior...

<%
direccionURL = Request.ServerVariables("URL") & fitxa
%>

de esta manera no funciona, seguro que es una tonteria, perono la sé...

3. despues lo enviaria con un enlace

pagina2.asp?=direccionURL


el paso 2 es el que no sé


salut

realmente no entiendo que tratas de hacer
que trae tu variable URL ? que tratas de agregarle ?

suerte

[potenkin]

quiero pasar la direccion URL completa a un pop up el cual la recogera y la enviara por correo (un sistema de "recomiendale a un amigo")

el problema es que
Request.ServerVariables("URL")
obtiene la direccion URL, por ejemplo midominio.com/cast/optica.asp

pero no incluye la cadena de busqueda que me muestra los resultados en esa pagina, que es lo que obtiene el recordset fitxa, por ejemplo:

midominio.com/cast/optica.asp
?sector=visitas+culturales+i+tur%C3%ADstiques&prom ocio=ambos&buscar=Cerca

y lo que querria es que
direccionURL = Request.ServerVariables("URL")
obtubiera las dos cosas


direccionURL = Request.ServerVariables("URL") & fitxa

no me funciona...


despues lo enviaria con un enlace
pagina2.asp?=direccionURL

[Adler]

Hola

Iniciado por potenkin

no incluye la cadena de busqueda que me muestra los resultados en esa pagina, que es lo que obtiene el recordset fitxa

Tu mismo lo has dicho, lo que obtiene, pero fitxa, si hiciste la prueba de escritorio, verías que te mostró la cadena de consulta, no el resultado de dicha consulta

La opción mas sencilla es montarlo tu mismo

Código PHP:

   midominio.com/cast/optica.asp?sector='"&sector&"'&promocio='"&cual&"'&buscar='"&donde&"' 
   

Suerte

[JuanRAPerez]

en direccion URL entonces solo necesitas

+ recoger el nombre de la pagina en la que estas
+ recoger los parámetros de búsqueda que el usuario selecciono en el formulario anterior
+ enviarla a alguien como recomendada?


prueba

<%
SERVER_NAME = Request.ServerVariables("SERVER_NAME")
PATH_INFO = Request.ServerVariables("PATH_INFO")
QUERY_STRING = Request.ServerVariables("QUERY_STRING")

DireccionActual = "http://" & SERVER_NAME &"/"& PATH_INFO & "?" & QUERY_STRING
response.write DireccionActual
response.end
'en donde Direccion Actual tiene que tener http://tudominio.com/tupaginaresutla...=1&variable2=2
%>

suerte

[potenkin]

hola,
funciona bien para obtener los datos, me falla al enviarlos al popup

%
SERVER_NAME = Request.ServerVariables("SERVER_NAME")
PATH_INFO = Request.ServerVariables("PATH_INFO")
QUERY_STRING = Request.ServerVariables("QUERY_STRING")

DireccionActual = "http://" & SERVER_NAME &"/"& PATH_INFO & "?" & QUERY_STRING
%>

al hacer un response.write yambién funciona correctamente, tal como me indicas

<% response.write DireccionActual
response.end
'en donde Direccion Actual tiene que tener http://tudominio.com/tupaginaresutla...=1&variable2=2
%>


Ahora el tercer paso al enviar esta info a un popup que se abre, envia el resultado de la consulta, no la cadena de consulta, que seria lo necesario para poder tener la direccion URL

onclick="MM_openBrWindow('envia_amigo.asp?direccio n=<%=DireccionActual%>','','scrollbars=yes,width=4 50,height=250')"

y en la ventana envia_amigo.asp recojo la variable "direccion"


<% direccioURL = Request.querystring ("direccion")
response.write direccioURL %>

[Adler]

Hola, prueba así

Código PHP:

  <script language="JavaScript" type="text/javascript">

function ventanaSecundaria(dirActual, width, height) { return openWindow("abPopUp.asp?direccion=" + dirActual, width, height); } 

</script>

<a href="#" onclick="ventanaSecundaria('<%=DireccionActual%>', 400,300);return false">Abrir</a> 
  

Suerte

[potenkin]

hola Adler,

envia el resultado de la consulta, no la cadena de consulta, que seria lo necesario para poder tener la direccion URL

[Adler]

Iniciado por potenkin

envia el resultado de la consulta, no la cadena de consulta, que seria lo necesario para poder tener la direccion URL

Me acabo de perder Entonce puede que necesites <%=fitxa%> en vez de <%=DireccionActual%>

Suerte

[potenkin]

si, necesito la cadena entera, poruqe es una direccion URL, que se puede enviar por correo y clicando sobre ella ir a la página con los resultados, por ej. la 2a página de la consulta tal o cual

envia_amigo.asp?direccion=<%=direccionURL2%>

envia las variables, pero no la cadena

envia_amigo.asp?direccion=<%=fitxa%>

intentar llamar directamente el recordset no funciona

[Adler]

A ver si lo entiendo

UsuarioA hace una consulta, seguidamente envía un correo con un vinculo a dicha consulta a AsuarioB.

UsuarioB recibe el correo, pincha en el vinculo y le lleva a poder ver el resultado de la consulta que realizó UsuarioA

Si eso es así, hasta donde yo se, que no es mucho, no se puede tal y como lo planteas.

Suerte

[JuanRAPerez]

Creo que el planteamiento tiene que ser un poco mas claro

Basados en el ejemplo de Alder

+ UsuarioA hace la consulta y llega a la pagina 3 de resultados
++ Enlace seria (ejemplo) http://www.tusitio.com/buscar.asp?pagina=3,palabra=asp
+ en ese momento da clic sobre un enlace llamado <enviar a un amigo>
+ en ese momento recoges la url como esta en el ejemplo que te puse y adjunto mas abajo
+ pides en un text el correo de usuarioB
+ envias el correo y en el contenido pones, tu codigo HTML diciendo:
++ <a href="<%=DireccionActual%>">clic sobre este enlace</a>

<%
SERVER_NAME = Request.ServerVariables("SERVER_NAME")
PATH_INFO = Request.ServerVariables("PATH_INFO")
QUERY_STRING = Request.ServerVariables("QUERY_STRING")

DireccionActual = "http://" & SERVER_NAME &"/"& PATH_INFO & "?" & QUERY_STRING
response.write DireccionActual
response.end
'en donde Direccion Actual tiene que tener http://tudominio.com/tupaginaresutla...=1&variable2=2
%>

'recoges la variable DireccionActual
'armas tu código de envió de correo
'envías el enlace de el sitio

<a href="<%=DireccionActual%>">clic sobre este enlace</a>


Basados en lo que dice el buen amigo ALDER, no se podría si vos mandas las variables de la consulta ocultas, porque en el enlace no se ven y el usuario no las recibirá.

si tu sitio pide contraseña, tampoco podrás enviar un enlace a tus contactos por que al no estar autorizados no les permitirá ver lo que otra persona busco si no se autentica antes.

y así pueden surgir muchos mas inconvenientes si no planteas correctamente algunas cosas

algunos clientes de correo también bloquean los enlaces, haz tus pruebas pertinentes

suerte

[potenkin]

disculpar, quiza no lo explique correctamente:

1. UsuarioA hace una consulta: con el combo del form, visualiza la siguiente página:
http://www.dominio.com/cat/guia2.asp...s&buscar=Cerca

2. recojo tal como me indicabas, la dirección de la página:

<%
SERVER_NAME = Request.ServerVariables("SERVER_NAME")
PATH_INFO = Request.ServerVariables("PATH_INFO")
QUERY_STRING = Request.ServerVariables("QUERY_STRING")

DireccionActual = "http://" & SERVER_NAME &"/"& PATH_INFO & "?" & QUERY_STRING
%>

tengo la direccion completa server + path + query string


3. ahora abro un popup, al que quiero enviar esa dirección completa:

pagina_popup.asp?direccion=<%DireccionActual%>


4. recojo la direccion completa en la pagina del popup

direccionURL = Request.querystring ("direccion")

la pongo dentro del campo de un formulario, y la envio por correo (para enviarla no hay problema)

response.write direccionURL %>



el problema esta entre el paso 2 y 3, envio DireccionActual como cadena completa, esta toda la cadena, porque si la compruebo con un response.write direccionActual me da el resultado:
http://www.dominio.com/cat/guia2.asp...s&buscar=Cerca

pero ya cuando la recojo en el popup son los resultados, la variables lo que muestra, no la cadena

http://www.dominio.com/cat/guia2.asp?sector=visites culturals i turístiques

y claro esa direccion con las variables ya no es una direccion valida URL, la cadena completa si es una direccion URL