Todavia No Funciona

[TioBeni]

Este codigo si que funciona, lo utilzia para rellenar otra 2ª combo:

...
Set Ob_RS= Ob_Conn.Execute ("SELECT PROD_COD,PROD_NOM FROM C2MPROD" )

Producto = Request("Producto")
%>
<FORM METHOD=POST ACTION="" name="Ej01.asp">

<INPUT TYPE=Submit VALUE="Submit">

<td width="29%">Producto:</td>
<td width="71%">
<select size="1" name="Producto" Onchange="submit()">

<%
Do while not Ob_RS.EOF
If (cInt(Ob_RS("PROD_COD")))= cInt(Request.form("Producto")) Then
%>
<option value="<%=Ob_RS.fields("PROD_COD&quot ;)%>" Selected><%=Ob_RS.fields("PROD_NOM&quot ;)%>
</option>
<%else
Response.Write "Producto introduccido:" & Ob_RS("PROD_NOM") %>

<option value="<%=Ob_RS.fields("PROD_COD&quot ;)%>"><%=Ob_RS.fields("PROD_NOM ")%>
</option>
<% End if

Ob_RS.movenext
Loop
%>
</select>
...
Espero que te sirva de ejemplo, yo creo que si.

Un saludo. :)