15 replies to this topic

[predzao]

bom dia galera estou acostumado a trabalhar com combobox apenas em asp buscando valores dinamicos, mais agora estou usando um javascript para um combo preencher o ooutro e me deparei com a seguinte duvida... como recuperar esse valor? sendo que o request.form nao to conseguindo retornar nada.. segue abaixo os dados que estou usando

<%
Function EscreveFuncaoJavaScript ( conexaodb )
'O parametro conexao receberá uma conexao aberta!
'Em funcoes, geralmente não criamos objetos do tipo conexões!
'Opte por sempre deixar sua função o mais compatível possível com qualquer projeto!

'Primeiro vamos escrever o cabecalho de qualquer script javascript!
Response.Write "<script language=""JavaScript"">" & vbcrlf
Response.Write "function atualizacarros (form) {" & vbcrlf

'Essa função JavaScript recebe o form em que estão os campos a serem atualizados!
'Veja na chamada da função no método OnChange em que se passa o this.form!

'Vamos criar um switch para ele verificar qual opção foi selecionada!!
Response.Write "switch (form.marcas.options[form.marcas.selectedIndex].value) {" & vbcrlf

'Agora entramos com o banco de dados! Temos que jogar aqui todas as opções de carro!
SqlMarcas = "SELECT * FROM marcas ORDER BY marca"
Set rsMarcas = conexaodb.Execute ( SqlMarcas )

While NOT rsMarcas.EOF

'Caso tenha sido essa marca selecionada...
Response.Write "case '" & rsMarcas("mid") & "':" & vbcrlf

'Apagamos tudo o que tem na caixa dos carros!
Response.Write "form.carros.length=0;" & vbcrlf

'Abrimos todos os carros relativos a essa marca!
SqlCarros = "SELECT * FROM modelos WHERE marcaid = " & rsMarcas("mid")
Set rsCarros = conexaodb.Execute ( SqlCarros )

'Fazemos um loop por todos os carros, criando uma nova opção no SELECT!
i = 0

While NOT rsCarros.EoF

Response.Write "form.carros.options[" & i & "] = new Option('" & rsCarros("modelo") & "','" & rsCarros("modid") & "');" & vbcrlf
i=i+1

rsCarros.MoveNext
Wend

'Imprimos um break! (Verifique tutoriais de JavaScript, se tiverem alguma dúvida da sua utilização!
Response.Write "break;" & vbcrlf

'Próxima marca!
rsMarcas.MoveNext
Wend

'Fecha chaves do switch e da função! E fecha o script!
Response.Write "}}" & vbcrlf & "</script>" & vbcrlf

End Function

CALL AC

SQL = "SELECT * FROM marcas ORDER BY marca"
Set RS = conexaodb.Execute ( SQL )
%>
<% EscreveFuncaoJavaScript ( conexaodb ) %>
<tr>
<td>
<form name="form" action="adm_gravarveiculo.asp?at=1&acao=inserir" enctype="multipart/form-data" method="post">
<table width="996" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td>Marca:</td>
<td> <select name="marcas" onChange="javascript:atualizacarros(this.form);">
<option value="" selected="selected"></option>
<% While NOT Rs.EoF %>
<option value="<% = Rs("mid") %>"><% = Rs("marca") %></option>
<% Rs.MoveNext %>
<% Wend %>
</select></td>
<td>Modelo:</td>
<td> <select name="carros"></select></td>

[LeoB]

Se você está usando enctype="multipart/form-data", deve estar fazendo Upload. Nesse caso, recupere os valores do campo usando o componente, e não Request.Form, como aqui:

http://forum.wmonlin...ta-vs-checkbox/

[predzao]

ah sim.. corrigindo.. estou usando o upload.form("campo")

[LeoB]

No onsubmit do form, acrescente um alert() pra mostrar o valor do select e veja se até aí está tudo certo.

[predzao]

No onsubmit do form, acrescente um alert() pra mostrar o valor do select e veja se até aí está tudo certo.

coloquei onSubmit="alert('valor' + form.carros.value +'!')" e onSubmit="alert('valor' + form.marcas.value +'!')" nos 2 campos que quero recuperar do javascript e consegui obter o valor, nao sei como pegar o valor na outra pagina qdo enviar o formulario..

[LeoB]

Só esse campo dá problema? Os outros são recuperados normalmente?

[predzao]

Só esse campo dá problema? Os outros são recuperados normalmente?

soh estes campos q nao sei como pegar.. nao eh usado upload.form("campo") normalmente pra buscar o valor do script tbm? isso q eu nao sei..

[LeoB]

Estou perguntando se só dá problema no Upload.Form("carros") ou se Upload.Form("marcas") também não funciona.

[predzao]

Estou perguntando se só dá problema no Upload.Form("carros") ou se Upload.Form("marcas") também não funciona.

os 2 nao funciona... os outros q sao de formularios normal funciona mais os 2 nao

[LeoB]

Que componente de upload você está usando?

[predzao]

Que componente de upload você está usando?

to usando Persits Upload

[LeoB]

Tá difícil... Coloca esse código aqui no gravar.asp e veja se mostra alguma coisa:

<%
For Each Item in Upload.Form
Response.Write Item.Name & "= " & Item.Value & "<BR>"
Next
%>

[predzao]

Tá difícil... Coloca esse código aqui no gravar.asp e veja se mostra alguma coisa:

<%
For Each Item in Upload.Form
Response.Write Item.Name & "= " & Item.Value & "<BR>"
Next
%>

coloquei exatamente igual.. ele nao me retornou nada..

[LeoB]

Tem link do sistema no ar?

[predzao]

Tem link do sistema no ar?

a pagina eh esta

http://www.imobiliar...in/adm_novo.asp

e o arquivo de gravacao

http://www.imobiliar...avarveiculo.asp

login: admin
senha: adm123

esqueci desse detalhe