pregunta sólo para expertos por su dificultad.

[danipermuy]

El tema es q tengo una base de datos (sql) con dos tablas: empresas y contactosempresas (relazionadas por el campo codempresa ya que los contactos pertenecen a una determinada empresa).

Tengo un form dentro de una página asp en el que tengo dos menús desplegables, uno para elejir la empresa y otro para elejir el contacto.

Quiero que dependiendo de la empresa elejida en el primer menú desplegable, me aparezca en el segundo menú (el de contactos) tan solo los contactos de la empresa del menú superior.

os enseño como llevo el código...

//1º tengo las select aunke sospecho que la consulta strsql3 tengo que ponerla o mejor dicho ejecutarla en otro sitio y con mejor sintaxis...

Código:

strsql2 = "select * from empresas"
set miconexion2 = conexion.execute(strsql2)

strsql3 = "select c.Cod_contacto,c.nombre,c.codempresa,e.codempresa from contactosempresas c, empresas e where c.codempresa=e.codempresa"
set miconexion3 = conexion.execute(strsql3)

//y después tengo los menús...(dentro de unas tablas).

Código:

  <td width="29%"> Contacto:</td>
      <td width="71%">  <select size="1" name="contacto">
  <%do while not miconexion2.eof %>
  <option selected value=<% Response.write(miconexion2.fields("codempresa") & " <br>")%><% response.write(miconexion2.fields("nombre") & "<br>") %></option>
    <% miconexion2.movenext
  loop%>
        </select>

      </td>
    </tr>
    <tr>
      <td width="29%"> Contacto:</td>
      <td width="71%">  <select size="1" name="contacto">
  <%do while not miconexion3.eof %>
  <option selected value=<% Response.write(miconexion3.fields("cod_contacto") & " <br>")%><% response.write(miconexion3.fields("nombre") & "<br>") %></option>
    <% miconexion3.movenext
  loop%>

Pienso que la strsql3 debe ejecutarse en otro lugar y con la sintaxis adecuada.
Puede alguien ayudarme un poco con esto¿?¿?
Muchas Gracia por vuestra atención.

<p align="center"><font color="#219CC6" size="3">"...Siempre he confiado en la bondad de l@s desconocid@s."</p>[/CODE]

[danipermuy]

Antes he posteado dos pequeños errores, aqui los corrijo, más que nada por si confunden

Código:

<tr>
      <td width="29%">Empresa:  </td>
      <td width="71%"> <select size="1" name="Empresa"  >
  <%do while not miconexion2.eof %>
  <option selected value=<% Response.write(miconexion2.fields("codempresa") & " <br>")%><% response.write(miconexion2.fields("nombre") & "<br>") %></option>
    <% miconexion2.movenext
  loop%>
        </select></td>
    </tr>
    
    
    <tr>
      <td width="29%"> Contacto:</td>
      <td width="71%"> <select size="1" name="contacto">
  <%do while not miconexion3.eof %>
  <option selected value=<% Response.write(miconexion3.fields("cod_contacto") & " <br>")%><% response.write(miconexion3.fields("nombre") & "<br>") %></option>
    <% miconexion3.movenext
  loop%>
  </select></td>
    </tr>

<p align="center"><font color="#219CC6" size="3">"...Siempre he confiado en la bondad de l@s desconocid@s."</p>[/CODE]

[lolo_03]

Sin ver el codigo lo que tienes que hacer que supongo ya lo haras es que por cada empresa que elija automaticamente se refresque la página para ello lo que haces es comparar lo que te viene del rescate con la empresa que sale de la base de datos asi consigues que se quede la empresa seleccionada, del mismo modo que rescatas la empresa del desplegable compones la query para el segundo desplegable. La primera ve z el segundo desplegable estara vacio porque el desplegable ej_empresa vendra vacio. Y asi lo tienes si quieres me mandas un mensaje a [email protected] y tratare de mandarte un ejemplo echo por mi.

<a href="mailto:[email protected]">Lolo</a>
<img src="http://www.pajarolandia.com/mandarin.gif">
<a href="http://www.pajarolandia.com">www.pajarolandia.com</a>

[danipermuy]

Mi no comprender tú...

La verdad es que no he entendido casi nada de lo que me pides que haga, ni siquiera el concepto. Si puedes mandarme un ejemplo o postearlo sería estupendo oye.
[email protected]
gracias.


<p align="center"><font color="#219CC6" size="3">"...Siempre he confiado en la bondad de l@s desconocid@s."</p>[/CODE]

[TomaHawkk]

Hola!

Esto es basicamente lo que quieres, después puedes hacer cambios según lo creas conveniente...

Código:

  
<%
Dim Empresa

Empresa = request("empresas")

strsql2 = "select * from empresas"
set miconexion2 = conexion.execute(strsql2)
%>
<FORM METHOD=POST ACTION="" name="thisForm">
	 
<td width="29%">EMPRESAS:</td>
<td width="71%">
  <select size="1" name="empresas" Onchange="thisForm.submit();">
    <%
	Do while not miconexion2.EOF
	   if Empresa = miconexion2.fields("codempresa")
	   %>
	   	  <option value="<%=miconexion2.fields("codempresa")%>" selected>
		     <%=response.write(miconexion2.fields("nombre")%>
		  </option>
	   <% else %>
		  <option value="<%=miconexion2.fields("codempresa")%>">
		     <%=response.write(miconexion2.fields("nombre")%>
		  </option>
	   <% End if 
       miconexion2.movenext
    Loop
	%>
</select>

<tr>
	<td width="29%">CONTACTOS</td>
	<td width="71%"> 
		<% If Empresa <> "" AND not isnull(Empresa) Then 
			strsql3 = "select c.Cod_contacto,c.nombre from contactosempresas c, empresas e" 
			strsql3 = strsql3 & " where c.codempresa=e.codempresa and c.codempresa = " & Empresa
			set miconexion3 = conexion.execute(strsql3)
			%>
		   <select size="1" name="contactos">
			  <% Do while not miconexion3.EOF %>
					<option value=<%=miconexion3.fields("cod_contacto")%>><%=miconexion3.fields("nombre")%></option>
					<% miconexion3.movenext
				 loop%>
		   </select>	
		<% End If %>
	 </td>
 </tr>
</FORM>

Saludos.

[danipermuy]

Gracias rubén, la verdad es que hasta mñn por la mñn no lo podré comprobar, pero weno, espero q sirva, tiene buena pinta :)

te he respondido una duda que tenias conun error muy puñetero de asp.

un saludo y muchas gracias.

[TioBeni]

Soy neofito en esto, pero para probar el ejemplo, lo he adaptado a mis tablas, pero en la combo, me sale vacia.

Si elimino este codigo, si sale rellena la combo de empresas
...
if Empresa = Ob_RS.fields(&quot;PROD_COD&quot;) then %&gt;
&lt;option value=&quot;&lt;%=Ob_RS.fields(&quot;EMPRESA_COD&q uot;)%&gt;&quot; selected&gt;&lt;%=response.write(Ob_RS.fields(&quo t;EMPRESA_NOM&quot;))%&gt;
&lt;/option&gt;
&lt;% else
...
Y al seleciconar de la combo, en cambio me da un error en la línea
&lt;select size=&quot;1&quot; name=&quot;Empresa&quot; Onchange=&quot;Ej01.submit();&quot;&gt;

¿Why? Tell me why.

[bakanzipp]

por que no usas combos enlazados y asi evitas refrescar la pag cada vez que eliges algo?

<a href='ir.asp?http://www.asptutor.com/asp/vart.asp?id=102' target='_blank'>http://www.asptutor.com/asp/vart.asp?id=...</a>

[TomaHawkk]

Hola!

Yo no he probado el código pero hace tiempo hice con 4 combos y me funcionaba haciendo algo parecido a lo que te puesto arriba, quizas sera cuestion de algun detalle...

Si lo pruebas y ves que no funciona no dudes en preguntar,ok!

[danipermuy]

Estoy haciendolo como dice bakzipp y va muy bien. Además no hay que refrescar cada vez que seleccionas una empresa diferente. Es un código excelente.
Gracias a los 2 por vuestra ayuda.

<p align="center"><font color="#219CC6" size="3">"...Siempre he confiado en la bondad de l@s desconocid@s."</p>[/CODE]

[rapomon]

&lt;%
'Aquí teneis lo que buscais, espero que os sirva...

'Por ejemplo tienes la siguiente conexión:

'cnConexion = &quot;la que sea&quot;
'Y las siguientes tablas relacionadas y queremos que cuando seleccionemos una marca de la primera de las listas aparezcan en la segunda lista los modelos relacionados:
'Tabla: MARCAS (PK_ID_MARCA, NOMBRE_MARCA)
'Tabla: MODELOS (PK_ID_MODELO, FK_ID_MARCA, NOMBRE_MODELO)


%&gt;
&lt;html&gt;
&lt;body&gt;
&lt;form name=&quot;marcas&quot; action=&quot;consultar_modelo.asp&quot; method=&quot;post&quot;&gt;
&lt;select name=&quot;lista1&quot; onChange=&quot;location.replace(location.href+'?pk _id_marca='+this.options[this.options.selectedIndex].value);&quot;&gt;
&lt;option value=&quot;&quot;&gt;Todas las marcas&lt;/option&gt;
&lt;%
Set rsMarcas = Server.CreateObject(&quot;ADODB:Recordset&quot;)
rsMarcas.Open &quot;select * from marcas&quot;, cnConexion
Do Until rsMarcas.EOF
%&gt;&lt;option value=&quot;&lt;%= rsMarcas(&quot;pk_id_marca&quot;) %&gt;&quot; &lt;% If Request.QueryString(&quot;pk_id_marca&quot;) = CStr(rsMarcas(&quot;pk_id_marca&quot;)) Then %&gt;selected&lt;% End If %&gt;&gt;&lt;%= rsMarcas(&quot;nombre_marca&quot;) %&gt;&lt;/option&gt;&lt;%
rsMarcas.MoveNext
Loop
rsMarcas.Close
Set rsMarcas = Nothing
%&gt;
&lt;/select&gt;

&lt;select name=&quot;lista2&quot;&gt;
&lt;%
Set rsModelos = Server.CreateObject(&quot;ADODB:Recordset&quot;)
'Ahora dependiendo de si hemos seleccionado alguna marca o todas generamos la correspondiente consulta:
If Request.QueryString(&quot;pk_id_marca&quot;) &lt;&gt; &quot;&quot; Then
strSql = &quot;select * from modelos where fk_id_marca = &quot; &amp; Request.QueryString(&quot;pk_id_marca&quot;)
Else
strSql = &quot;select * from modelos&quot;
End If
rsModelos.Open strSql, cnConexion
Do Until rsModelos.EOF
%&gt;&lt;option value=&quot;&lt;%= rsModelos(&quot;pk_id_modelo&quot;) %&gt;&quot;&gt;&lt;%= rsModelos(&quot;nombre_modelo&quot;) %&gt;&lt;/option&gt;&lt;%
rsModelos.MoveNext
Loop
rsModelos.Close
Set rsModelos = Nothing

'Espero que esta página os sirva de ayuda, no es muy complicado, espero que lo pilléis.
'También espero no haberme confundido en nada.
'Un saludo.
%&gt;
&lt;input type=&quot;submit&quot; name=&quot;Consultar modelo de la marca seleccionada&quot;&gt;
&lt;/select&gt;
&lt;/form&gt;

&lt;/body&gt;
&lt;/html&gt;