RE:Consulta en tabla desde un Combobox
Aquí hay un Ejm:
Muestro en un combo los departamentos y luego en el evento onchange del combo submiteo el formulario y luego recojo el valor del combo para realizar la nueva comsulta
Espero te sirva.
Salu2.
<%
Session("conexionBD") = "Provider=SQLOLEDB.1; User ID=xxxxx; PASSWORD=xxxxx.;Data Source=xxxxx; Initial Catalog=xxxx;"
set oConn = server.CreateObject("ADODB.CONNECTION")
oConn.Open session("conexionBD")
set rs = SERVER.CreateObject("ADODB.RECORDSET")
set cmd2=server.CreateObject("ADODB.COMMAND")
set cmd2.activeconnection=oConn
cmd2.prepared=false
cmd2.commandtype= 1
cmd2.commandtext = "Exec USPSelectDepartamentos"
set rs=cmd2.execute
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<title>PRUEBA COMBOS</title>
</head>
<body>
<table width="900" border="1" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr>
<td></td>
<td valign="top"><table width="850" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" bgcolor="#E6EEFB" id="AutoNumber3" style="border-collapse: collapse">
<!--DWLayoutTable-->
<tr>
<td width="4"></td>
<td width="846" valign="middle" bgcolor="#E6EEFB">
<form ACTION="" name="formulario" method="POST">
<input type="hidden" name="INS_PROYECTO" value="">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFFFFF" width="100%">
<!--DWLayoutTable-->
<tr>
<td width="3" height="19"> </td>
<td id=celda width="22"> </td>
<td width="75"> </td>
</tr>
<tr>
<td height="26"> </td>
<td class="labelazul">Departamento</td>
<td valign="top">
<select name="cmboDpto" Style="WIDTH: 500px;" id="celdadato" onchange="Javascript:formulario.submit();">
<option selected value="0">[HAGA SU SELECCION]</option>
<%Do While Not rs.EOF
if cint(request("cmboDpto")) = cint(rs("codDepartamento")) then%>
<option selected value="<%=rs("codDepartamento")%>"><%=trim(rs("DesDepartamento"))%></option>
<%else%>
<option value="<%=rs("codDepartamento")%>"><%=trim(rs("DesDepartamento"))%></option>
<%end if
rs.MoveNext
loop
rs.Close
set rs=nothing
set cmd2=nothing
%>
</select>
</td>
</tr>
<tr>
<td colspan="3" height="10">
<%
if request("cmboDpto")<>"" then
set rsProv = SERVER.CreateObject("ADODB.RECORDSET")
set cmd=server.CreateObject("ADODB.COMMAND")
set cmd.activeconnection=oConn
cmd.prepared=false
cmd.commandtype= 1
cmd.commandtext = "Exec USPSelectProvinciaByDepartamento '"& request("cmboDpto") &"'"
response.write cmd.commandtext
set rsProv=cmd.execute
Do While Not rsProv.EOF
Response.write RsProv("CodProvincia") & " -- " & RsProv("DesProvincia")
rsProv.movenext
loop
rsProv.close
set rsprov=nothing
set cmd=nothing
End if%>
</td>
</tr>
</table>
</form>
</td>
</tr>
</table></td>
<td></td>
</tr>
</table>
</body>
</html>