<script>
function valida(){
}
if (form1.plasticas..value != ""){
form1.busqueda.value=8
}
if (form1.decor..value != ""){
form1.busqueda.value=9
}
if (form1.numis..value != ""){
form1.busqueda.value=10
}
}
</script>
</head>
<body bgcolor="#FFFFFF" background="Imagenes/fondo03.gif">
<form name="form1" method="post" action="listado.asp" onSubmit=" return (valida());">
<table width="90%" border="0">
<tr>
<%
set dbConnection=CreateObject("ADODB.Connection")
dbConnection.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Application("raiz")&"\BaseDatos\CREA.mdb"
%>
<select name="plasticas">
<option value="0"></option>
<%sql="select * from cons_diagnostico_tipo ORDER BY nombre_cons_diagnostico_tipo"
set rs=dbconnection.execute(sql)
while not(rs.eof)%>
<option value="<%=rs("id_cons_diagnostico_tipo")%>"><%=rs( "nombre_cons_diagnostico_tipo")%>
<%rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
</td>
<select name="decor">
<option value="0"></option>
<%sql=" select * from cons_diagnostico_tipo_objFun_decor ORDER BY nombre_cons_diagnostico_tipo_objFun_decor"
set rs=dbconnection.execute(sql)
while not(rs.eof)%>
<option value="<%=rsd_cons_diagnostico_tipo_objFun_decor") %>"><%=rs("nombre_cons_diagnostico_tipo_objFun_dec or")%<%rs.movenext
wend
rs.close
set rs=nothing%>
</select>
<select name="numis">
<option value="0"></option>
<%sql="select * from cons_diagnostico_tipo_numis ORDER BY nombre_cons_diagnostico_tipo_numis"
set rs=dbconnection.execute(sql)
while not(rs.eof)%>
<option value="<%=rs("id_cons_diagnostico_tipo_numis")%>"> <%=rs("nombre_cons_diagnostico_tipo_numis")%>
<%rs.movenext
wend
rs.close
set rs=nothing
%>
</select>
</tr>
</table>
</form>
</body>
</html>