list menu

[caterina]

Hola a todos, estoy haciendo un formulario y tengo 2 listmenu, el primero tiene una lista y dependiendo de la que se elija, el segundo listmenu tendra diferentes opciones. Como puedo hacer para programar eso?... Les agradeceria mucho su ayuda

Gracias

[enchodebacon]

Hola Caterina, yo tuve el mismo problema ke tu hace 2 dias o 3 pero ya lo solucione. Mis listas dependian de una base de datos tb ke no se si sera tu problema... Te pongo mi código y lo mismo te ayuda 1 poco, ok?

Código:

<form action="listas.asp" name="form1" method="post">
<select name="select" class="normalform" onChange = "javascript:form1.submit()">
<option>Especialidades</option>
<% 
dim con,rs,sql,cuenta,cat
Set db = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
con="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/riojavina/data/bbddRiojavina.mdb")
db.open con
set rs=db.execute("Select distinct NomVariedad From Productos")
do while not rs.EOF
Response.Write "<option Value='" & rs.fields("NomVariedad") & "'>" & rs.fields("NomVariedad") & "</option>"
rs.MoveNext
Loop
rs.Close()
rs=null
db.Close()
%>
</select></form>
<p> 
<form action="datos_ejemplo.asp" name="form2" method="Post" target="_parent">
<select name="menu1" class="normalform" onChange="javascript:form2.submit()"><option selected>Productos </option>
<% 
Set db = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
con="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/riojavina/data/bbddRiojavina.mdb")
db.open con
set rs=db.execute("Select distinct NomProducto From Productos where NomVariedad='" & request.Form("select") & "'")
do while not rs.EOF
Response.Write "<option Value='" & rs.fields("NomProducto") & "'>" & rs.fields("NomProducto") & "</option>"
rs.MoveNext
Loop
rs.Close()
rs=null
db.Close()	
%></select>
</p></form> 

Espero ke te sirva de ayuda.

[caterina]

ok... un millon de gracias!...