Listbox dinâmico

[marquinh05 0]

olá pessoas,alguém poderia me ajudar com um probleminha que creio n ser dos piores...estou precisando de um código que implemente um listbox dinâmico...tipo assim:tenho duas tabelas....Tabela de CategoriasCodigo --- categoria01 --- categoria102 --- categoria03 --- categoriae a tabela sub-categoriascategoria --- sub-categoria01 --- subc101 --- subc201 --- subc302 --- subc102 --- subc202 --- subc303 --- subc103 --- subc203 --- subc3queria que... primeiramente selecionasse acategoria no primeiro listbox...no segundo... automaticamente, só ficariam as opções onde existe a categoria selecionada no primeiro...alguem tem ideia de como fazer isso?com java script pra n precisar submeter o form.desde já grato.marquinh05.

[marquinh05 0]

eu mesmo acabei criando o script... a quem interessar possa...<%Response.Write("<script>") & CHR(13) Response.Write("function select (form) {") & CHR(13) Response.Write("switch (form.Categoria.options[form.Categoria.selectedIndex].value) {") & CHR(13)While (not categorias.EOF)Response.Write("case '" + CSTR(categorias.Fields.Item("CAT_ID").Value) + "':") & CHR(13)Response.Write("form.Subcategoria.length=0;") & CHR(13)dim v, catv = 0cat = CSTR(categorias.Fields.Item("CAT_ID").Value)Dim subcategoriasDim subcategorias_numRowsSet subcategorias = Server.CreateObject("ADODB.Recordset")subcategorias.ActiveConnection = agendha_STRINGsubcategorias.Source = "SELECT * FROM SUBCATEGORIA where SCAT_ID_CATEGORIA = " + catsubcategorias.CursorType = 0subcategorias.CursorLocation = 2subcategorias.LockType = 1subcategorias.Open()subcategorias_numRows = 0While (not subcategorias.EOF)Response.Write("form.Subcategoria.options["+ CSTR(v) +"] = new Option('" + CSTR((subcategorias.Fields.Item("SCAT_DESCRICAO").Value)) + "','" + CSTR((subcategorias.Fields.Item("SCAT_ID").Value)) + "');") & CHR(13)v = v + 1subcategorias.movenext()wendResponse.write("break;") & CHR(13)Response.Write(" ") & CHR(13)categorias.movenext()wend Response.Write("}") & CHR(13)Response.Write("}") & CHR(13)Response.Write("</script>") & CHR(13)%>Fiquem todos na paz.