Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/04/2008, 04:46
txuk
 
Fecha de Ingreso: febrero-2008
Mensajes: 25
Antigüedad: 17 años, 2 meses
Puntos: 0
busqueda a traves de menu desplegable

Hola.

Tengo una pagina donde visualizao una serie de datos. He puesto un menu desplegable para hacer una busqueda seleccionada. Os pongo aqui el codigo para que veais como lo hago:

Lo que me han comentado es que ponga dos menus desplegables para hacer busquedas segun 2 campos.
Como podría hacerlo segun esta manera???

gracias.

CODIGO:



<tr>
<td align="left" valign="top"><table width="100%" >
<tr align="left" valign="top">
<td width="30%" valign="middle"><span>
<%
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={MySQL};SERVER=lldd216.servidoresdns.net;P ort=3306;Database=xxx;Uid=xxx;Pwd=xxx;"

sql="select * from asunto_comunicacion"
set rs=con.execute(sql)
response.Write("<select name='asunto'>")
do while not rs.eof
response.Write("<option value='"&rs("asunto")&"'>"&rs("asunto")&"</option>")
rs.movenext
loop
response.Write("<option value='todos' selected>TODOS</option")
response.Write("</select>")
%>
</span></td>
<td valign="middle">
<input type="submit" name="Submit32" value="ACEPTAR">
</td>
</tr>
</table></td>
</tr>
<tr>
<td align="left" valign="top"><br>
<%
Mostrar = Request.QueryString("Mostrar")
If Mostrar = "Yes" Then

asunto = Request.Form("asunto")

Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "Driver={MySQL};SERVER=lldd216.servidoresdns.net;P ort=3306;Database=xxx;Uid=xxx;Pwd=xxx;"

if asunto= "todos" then
sql= "select * from notas_prensa order by fecha desc "
Set rs = con.Execute(sql)
else
sql= "select * from notas_prensa where asunto='"&asunto&"' order by fecha desc "
Set rs = con.Execute(sql)
end if%>