Quase la...

[DackAle 0]

E ae galera =)

 

Seguinte tenho 4 selects dinamico em uma pagina os 4 funcionam, o unico problema é que, quando escolho o primeiro select, o segundo muda automaticamente, perfeito, quando escolho o segundo select o terceiro aparece em branco ou mesmo quando o segundo select é preenchido automaticamente, o terceiro continua em branco... a solução tem que ir até a opção de baixo no segundo select muda-la e volta pro primeiro, para aparecer as opções no terceiro, funciona, mas imagina um cliente leigo fazendo toda essa gambiarra...

 

Se alguem souber como eu arrumo isso... por que não manjo NADA de JS...

 

 

Primeiro Código que Muda o segundo select conforma a escolha do primeiro

 

Function EscreveFuncaoJavaScript ( Conexao )Response.Write "<script language=""JavaScript"">" & vbcrlf Response.Write "function atualizacategoria (form) {" & vbcrlfResponse.Write "switch (form.vcategorias.options[form.vcategorias.selectedIndex].value) {" & vbcrlf SQL = "SELECT * FROM categorias ORDER BY categoria ASC" SET RS = Server.CreateObject("AdoDB.RecordSet")RS.Open SQL,ConexaoWhile NOT RS.EOFResponse.Write "case '" & rs("categoria") & "':" & vbcrlfResponse.Write "form.sub2.length=0;" & vbcrlf SQL = "SELECT * FROM sub_categorias WHERE categoria='" & rs("categoria") & "'"Set RS2 = Server.CreateObject("AdoDB.RecordSet")RS2.Open SQL,Conexaoi = 0 While NOT RS2.EoFResponse.Write "form.sub2.options[" & i & "] = new Option('" & RS2("sub_categoria") & "','" & RS2("sub_categoria") & "');" & vbcrlf i=i+1RS2.MoveNextWendrs2.closeset rs2 = nothingResponse.Write "break;" & vbcrlfRS.MoveNext Wend rs.closeset rs = nothingResponse.Write "}}" & vbcrlf & "</script>" & vbcrlf End Function

Segundo codigo, que muda o terceiro select depnedendo da escolha do segundo select

 

Function EscreveFuncaoJavaScript2 ( Conexao )Response.Write "<script language=""JavaScript"">" & vbcrlf Response.Write "function atualizacategoria2 (form) {" & vbcrlfResponse.Write "switch (form.sub2.options[form.sub2.selectedIndex].value) {" & vbcrlf SQL = "SELECT * FROM sub_categorias ORDER BY sub_categoria ASC" SET RS = Server.CreateObject("AdoDB.RecordSet")RS.Open SQL,ConexaoWhile NOT RS.EOFResponse.Write "case '" & rs("sub_categoria") & "':" & vbcrlfResponse.Write "form.sub3.length=0;" & vbcrlf SQL = "SELECT * FROM sub_categorias_2 WHERE sub_categoria='" & rs("sub_categoria") & "'"Set RS2 = Server.CreateObject("AdoDB.RecordSet")RS2.Open SQL,Conexaoi = 0 While NOT RS2.EoFResponse.Write "form.sub3.options[" & i & "] = new Option('" & RS2("sub_categoria_2") & "','" & RS2("sub_categoria_2") & "');" & vbcrlf i=i+1RS2.MoveNextWendrs2.closeset rs2 = nothingResponse.Write "break;" & vbcrlfRS.MoveNext Wend rs.closeset rs = nothingResponse.Write "}}" & vbcrlf & "</script>" & vbcrlf End Function

Resumindo, no codigo acima precisava que automaticamente ele ja mostra-se as opções quando o segundo select ja fosse preenchido automaticamente, o que não está acontecendo...

 

Valeu galera =)

 

Abraçossss

[alicacwb 0]

nossa... q mistureba hein!!!!Asp com Sql com Js...meu, primeiro de tudo... faça as linguagens em arquivos separados, e use includes do asp!!! saca?depois q você separar isso ae, volta q eu te ajudo, pq assim eh mto confuso!