
24/04/2008, 04:46
|
| | 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%> |