Vincular dois campos no asp utilizando o Dreamweaver CS5

[Wellington Nonato]

Boa tarde!

Estou tendo problemas para vincular dos campos o cliente com o solicitante "usuário" ambos estão na mesma tabela, na linguagem ASP e com o banco de dados Access 2007. O meu problema é o seguinte quero que o campo solicitante aparece somente os solicitantes do cliente que for escolhido no campo cliente. O que devo fazer para dar certo?

O codigo é este:

<%@LANGUAGE="vb script:abrir('InserirSolicitante3.asp'); " target="iframedardani">Cadastrar solicitante</a></td>

</tr>

<tr>

<td><div align="center"><strong>Sistema:</strong></div></td>

<td align="left"><span id="spryselect4">

<label for="inserirSistema_TElRecebidos"></label>

<select name="inserirSistema_TElRecebidos" id="inserirSistema_TElRecebidos">

<%

While (NOT Sistema.EOF)

%>

<option value="<%=(Sistema.Fields.Item("ID_SISTEMAS").Valu e)%>"><%=(Sistema.Fields.Item("SISTEMAS_SITEMAS"). Value)%></option>

<%

Sistema.MoveNext()

Wend

If (Sistema.CursorType > 0) Then

Sistema.MoveFirst

Else

Sistema.Requery

End If

%>

</select>

<span class="selectRequiredMsg">Selecione um sistema.</span></span></td>

</tr>

<tr>

<td><div align="center"><strong>Modulo:</strong></div></td>

<td align="left"><span id="spryselect5">

<label for="InserirModulo_TelRecebidos"></label>

<select name="InserirModulo_TelRecebidos" id="InserirModulo_TelRecebidos">

<%

While (NOT ModulosTelRecebidos.EOF)

%>

<option value="<%=(ModulosTelRecebidos.Fields.Item("ID_MOD ULOS").Value)%>"><%=(ModulosTelRecebidos.Fields.It em("MODULOS").Value)%></option>

<%

ModulosTelRecebidos.MoveNext()

Wend

If (ModulosTelRecebidos.CursorType > 0) Then

ModulosTelRecebidos.MoveFirst

Else

ModulosTelRecebidos.Requery

End If

%>

</select>

<span class="selectRequiredMsg">Selecione um modulo.</span></span></td>

</tr>

<tr>

<td>Tipo de Ligação</td>

<td align="left"><span id="spryselect8">

<label for="InserirTipoLigacao_TelRecebidos"></label>

<select name="InserirTipoLigacao_TelRecebidos" id="InserirTipoLigacao_TelRecebidos">

<%

While (NOT TipoAtendimento.EOF)

%>

<option value="<%=(TipoAtendimento.Fields.Item("ID_TIPO_AT ENDIMENTO").Value)%>"><%=(TipoAtendimento.Fields.I tem("TIPO_LIGACAO").Value)%></option>

<%

TipoAtendimento.MoveNext()

Wend

If (TipoAtendimento.CursorType > 0) Then

TipoAtendimento.MoveFirst

Else

TipoAtendimento.Requery

End If

%>

</select>

<span class="selectRequiredMsg">Selecione o tipo de Ligação.</span></span></td>

</tr>

<tr>

<td><div align="center"><strong>Observação:</strong></div></td>

<td align="left"><span id="sprytextarea1">

<label for="InserirObs_TelRecebidos"></label>

<textarea name="InserirObs_TelRecebidos" id="InserirObs_TelRecebidos" cols="30" rows="2"></textarea>

<span id="countsprytextarea1">&nbsp;</span><span class="textareaMaxCharsMsg">Excedeu o número máximo de caracteres.</span></span></td>

</tr>

<tr>

<td><div align="center"><strong>Pedente:</strong></div></td>

<td align="left"><span id="sprytextarea1">

<label for="InserirObs_TelRecebidos"></label>

<span id="countsprytextarea1">&nbsp;</span><span class="textareaMaxCharsMsg">Excedeu o número máximo de caracteres.</span></span>

<label>

<input <%If (CStr((TelefonemasRecebidos.Fields.Item("PEDENTE_T EL_RECEBIDOS").Value)) = CStr("SIM")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="radio" name="Pedente" value="SIM" id="Pedente_0" />

Sim</label>

<label>

<input <%If (CStr((TelefonemasRecebidos.Fields.Item("PEDENTE_T EL_RECEBIDOS").Value)) = CStr("NÃO")) Then Response.Write("checked=""checked""") : Response.Write("")%> type="radio" name="Pedente" value="NÃO" id="Pedente_1" />

Não</label>

<br /></td>

</tr>

<tr>

<td colspan="2"><div align="center">

<table width="100%" border="0" cellspacing="1" cellpadding="5">

<tr>

<td width="49%" scope="col"><div align="center">

<label>

<input type="submit" name="butAdicionar_TelefonemaRecebido" id="butAdicionar_TelefonemaRecebido" value="Gravar" />

</label>

</div></td>

<td width="51%" scope="col"><div align="center">

<label>

<input type="reset" name="butCancelar_TelefonemaRecebido" id="butCancelar_TelefonemaRecebido" value="Cancelar" />

</label>

</div></td>

</tr>

</table>

</div></td>

</tr>

</table>

<p></p>

</p>

<input type="hidden" name="MM_insert" value="formInserirTelefonemasRecebido" />

</form>

<script type="text/javascript">

var sprytextfield1 = new Spry.Widget.ValidationTextField("sprytextfield1", "date", {format:"dd/mm/yyyy", validateOn:["blur", "change"]});

var spryselect1 = new Spry.Widget.ValidationSelect("spryselect1", {validateOn:["blur", "change"]});

var spryselect2 = new Spry.Widget.ValidationSelect("spryselect2", {isRequired:false, validateOn:["change", "blur"]});

var spryselect3 = new Spry.Widget.ValidationSelect("spryselect3", {isRequired:false, validateOn:["change", "blur"]});

var spryselect4 = new Spry.Widget.ValidationSelect("spryselect4", {validateOn:["blur", "change"], isRequired:false});

var spryselect5 = new Spry.Widget.ValidationSelect("spryselect5", {validateOn:["blur", "change"], isRequired:false});

var sprytextarea1 = new Spry.Widget.ValidationTextarea("sprytextarea1", {isRequired:false, maxChars:100, counterId:"countsprytextarea1", validateOn:["blur", "change"], counterType:"chars_remaining"});

var sprytextfield3 = new Spry.Widget.ValidationTextField("sprytextfield3", "time", {validateOn:["blur", "change"], format:"HH:mm:ss"});

var spryselect8 = new Spry.Widget.ValidationSelect("spryselect8", {validateOn:["blur", "change"]});

var spryselect6 = new Spry.Widget.ValidationSelect("spryselect6", {isRequired:false});

</script>

</body>

</html>

<%

TelefonemasRecebidos.Close()

Set TelefonemasRecebidos = Nothing

%>

<%

Atendente.Close()

Set Atendente = Nothing

%>

<%

Cliente.Close()

Set Cliente = Nothing

%>

<%

TelefoneGeral.Close()

Set TelefoneGeral = Nothing

%>

<%

Sistema.Close()

Set Sistema = Nothing

%>

<%

Situacao.Close()

Set Situacao = Nothing

%>

<%

TipoAtendimento.Close()

Set TipoAtendimento = Nothing

%>

<%

Solicitante_TelRecebidos.Close()

Set Solicitante_TelRecebidos = Nothing

%>

<%

ModulosTelRecebidos.Close()

Set ModulosTelRecebidos = Nothing

%>

[fercosmig]

no event onchange do objeto select você deve fazer uma requisição Ajax e retorna em um outro select somente os solicitantes cadastrados para aquele cliente.

tem exemplos de como fazer no Repositório de scripts da sala de javascript.

[Wellington Nonato]

no event onchange do objeto select você deve fazer uma requisição Ajax e retorna em um outro select somente os solicitantes cadastrados para aquele cliente.

tem exemplos de como fazer no Repositório de scripts da sala de javascript.

Você pode me passar o link, pois não estou conseguindo encontrar.

Obrigado pela ajuda.

[bareta]

http://scriptbrasil.com.br/forum/index.php?showtopic=83196