Washington Luíz

No seu código você utiliza uma variável sem dar valor a ela. É o caso da variável XGRUPO, por exemplo. Você a chama na instrução SQL, mas não passa nenhum valor pra ela no seu código. Tente recuperar o valor do campo do formulário e passar para a variável. Faça isso para as outras variáveis que estão vazias também.

Se não me engano o formato que você deve escolher no campo é o Money.

Olá hicarocastro, Para que uma combo atualize após a seleção do valor da primeira, você pode fazer de duas formas: 1º - Sem dar submit na página, utilizando JavaScript. Particularmente eu não gosto desta opção, uma vez que todos os dados deverão ser carregados na página para que o javascript funcione. Se você optar por este método você pode pegar o script de combos dinâmicas no link: Combos Dinâmicas 2º - Outra opção seria dando um submit na página após a mudança de valor da primeira combo. Ex.: Vamos supor que a rotina abaixo recupere os dados de uma tabela de Estados. <form name="Form" method="Post"> Estados: <select name="Estados" size="1" onChange="javascript: if(this.value != 0) Form.submit();"> <option value="0">Selecione o Estado</option> <% Dim oConn, oRs, Ds, MySQL Ds = "Provider=Microsof.Jet.Oledb.4.0; Data Source=c:\inetpub\wwwroot\banco.mdb" '------------------------------------------------------------------------------ ' Abre o banco de dados '------------------------------------------------------------------------------ Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open Ds '------------------------------------------------------------------------------- ' Recupera os registros '------------------------------------------------------------------------------- Set oRs = Server.CreateObject("ADODB.Recordset") MySQL = "Select EstadoID, Estado From Estados Order By Estado" oRs.open MySQL, oConn '------------------------------------------------------------------------------- ' Monta o combo com os Estados '------------------------------------------------------------------------------- If Not oRs.EOF Then Do While Not oRs.EOF Response.Write("<option value='"& oRs("EstadoID") &"'>" & Trim(oRs("Estado")) & "</option>") oRs.MoveNext Loop End If %> </select> <br> Cidades: <select name="Cidades" size="1"> <% If Request("Estado") <> "0" Then Dim EstadoSelecionado EstadoSelecionado = Request("Estado") '----------------------------------------------------------------------------- ' Recupera os registros '----------------------------------------------------------------------------- MySQL = "Select CidadeID, Cidade From Cidades Where EstadoId = "& EstadoSelecionado &" Order By Cidade" oRs.open MySQL, oConn '----------------------------------------------------------------------------- ' Monta o combo com as cidades '----------------------------------------------------------------------------- If Not oRs.EOF Then Do While Not oRs.EOF Response.Write("<option value='"& oRs("CidadeID") &"'>" & Trim(oRs("Cidade")) & "</option>") oRs.MoveNext Loop End If End If %> </select> <% '---------------------------------------------------------------------------- ' Fecha os objetos '---------------------------------------------------------------------------- oRs.Close Set oRs = Nothing oConn.Close Set oConn = Nothing %> É isso

Ou simplesmente não está sendo passado nenhum valor na variável ip.