Erro Besta....

[ViniciusJau]

Eu tenho um banco assim:

Ele tem uma tabela chamada CENTRAIS , e dentro dessa tabela tenho uma coluna que se chama CENTRAIS

Tenho outra tabela que se chama CADASTRO_DE_FUNCIONARIOS e dentro dessa tabela eu tenho uma coluna que se chama NOME e outra que se chama CENTRAL

Eu queria que quando a pessoa selecionar em um menu uma central , , no outro menu aparecesse o nome do funcionário correspondente a central

Então eu fiz esse código mais quando a pessoa seleciona a central ele não dá erro nenhum, ele atualiza a pagina , mais no campo onde era para aparecer o nome do funcionário ele não aparece nada...

Abaixo vou postar o codigo com a parte que estou perdido em vermelho:

<%

Set conn = createobject("adodb.connection")

Conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("../amarconsultoria.mdb")

%>

<script>

function envia(){

document.form.action = "menu.asp"

document.form.submit();

}

</script>

<form method="post" name="form" action="dados_do_plano.asp" >

<%

  Centrais = Request.Form("centrais")

'  if trim(uf)="" then uf="SP"

  nome = request("nome")

%>

  <p align="left"><b><font face="Verdana" size="3"><b></b></font>

    <select size="1" name="Centrais" onChange="envia();" style="width: 130; font-family: tahoma, arial; font-size: 11px">

      <option value="">Centrais</option>

      <%           

      sql="select * from Centrais order by Centrais"

       

        'response.write(sql)

                                     

        set rs=conn.execute(SQL)

        %>

      <%do while not rs.eof %>

      <option <%if Mid(rs.fields("Centrais"),1,2)=uf then response.write("selected") end if%> value="<%=Mid(rs.fields("Centrais"),1,2)%>"><%=rs.fields("Centrais")%></option>

      <% rs.movenext

                                      loop %>

    </select>

    &nbsp;&nbsp;&nbsp;

  <select size="1" name="nome" style="width: 130; font-family: tahoma, arial; font-size: 11px">

      <option value="">Funcionario</option>

      <% if trim(Centrais) <> "" then

  sql="select * from cadastro_funcionarios_centrais where Nome = '" & Nome & "'" & "order by Nome"

      set rs=conn.execute(SQL)

      end if 

while not rs.eof %>

      <option <%if rs("Central")=nome then response.write("selected") end if%> value="<%=rs("nome")%>">

      <%response.write (rs.fields("nome"))%>

      </option>

      <% rs.movenext

      wend %>

    </select>

    &nbsp;&nbsp;&nbsp;&nbsp;<b> </b><font face="Verdana" size="3"></font><font color="#0000FF" face="Verdana" size="3"></font><font face="Verdana" size="3"><br>

    </font></b></p>

  </form>

</body>

</html>

[felipefrancesco]

Vinicius, se eu entendi seu problema e meio que no susto, vê se isso funciona:

<%
Set conn = createobject("adodb.connection")
Conn.open "provider=microsoft.jet.oledb.4.0; data source=" & server.mappath("../amarconsultoria.mdb")
%>

<script>
function envia(){
document.form.action = "menu.asp"
document.form.submit();
}
</script>

<form method="post" name="form" action="dados_do_plano.asp" >

<%
  Centrais = Request.Form("centrais")
'  if trim(uf)="" then uf="SP"
  nome = request("nome")
%>

  <p align="left"><b><font face="Verdana" size="3"><b></b></font>
    <select size="1" name="Centrais" onChange="envia();" style="width: 130; font-family: tahoma, arial; font-size: 11px">
      <option value="">Centrais</option>

      <%
      sql="select * from Centrais order by Centrais"

        'response.write(sql)

        set rs=conn.execute(SQL)
        %>

      <%do while not rs.eof %>
      <option <%if Mid(rs.fields("Centrais"),1,2)=uf then response.write("selected") end if%> value="<%=Mid(rs.fields("Centrais"),1,2)%>"><%=rs.fields("Centrais")%></option>
      <% rs.movenext
      loop %>
    </select>


    &nbsp;&nbsp;&nbsp;

  <select size="1" name="nome" style="width: 130; font-family: tahoma, arial; font-size: 11px">
      <option value="">Funcionario</option>
      <%
      if trim(Centrais) <> "" then
         sql="select * from cadastro_funcionarios_centrais where Central = '" & Centrais & "'" & "order by Nome"
         set rs=conn.execute(SQL)
      end if

      while not rs.eof %>
      <option <%if rs("Nome")=nome then response.write("selected") end if%> value="<%=rs("nome")%>">
      <%response.write (rs.fields("nome"))%>
      </option>
      <% rs.movenext
      wend %>
    </select>
    &nbsp;&nbsp;&nbsp;&nbsp;<b> </b><font face="Verdana" size="3"></font><font color="#0000FF" face="Verdana" size="3"></font><font face="Verdana" size="3"><br>
    </font></b></p>
  </form>
</body>
</html>

[ViniciusJau]

Vinicius, se eu entendi seu problema e meio que no susto, vê se isso funciona:

porque no susto ??

deu o mesmo erro cara... e tenho quase certeza que é porque eu num sei onde ele puxa valor da tabela.... onde é campo...

[felipefrancesco]

No susto, eu quero dizer que de repente, sem pensar muito ...

Bom, campo da tabela são os recordsets, tipo: rs("Nome"), o resto é variável

que é carregada quando a página é submetida.

[ViniciusJau]

bom deixa eu ir por partes então....

oque essa parte aqui do codigo faz ??

<%

Centrais = Request.Form("centrais")

'  if trim(uf)="" then uf="SP"

nome = request("nome")

%>

[dark0]

- a variavel CENTRAIS, está recebendo o conteudo do campo do formulario chamado CENTRAIS

- O IF não esta sendo executado

- A variavel NOME esta recebendo o conteudo do campo do formulario chamado NOME