Recuperar Valor De Formulario Dinamico Vindo De Javascript
#1
Posted 28/10/2010, 08:53
<%
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>
#2
Posted 28/10/2010, 11:41
http://forum.wmonlin...ta-vs-checkbox/
#3
Posted 28/10/2010, 11:54
#4
Posted 28/10/2010, 18:08
#5
Posted 29/10/2010, 08:13
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..
#6
Posted 29/10/2010, 17:10
#7
Posted 03/11/2010, 08:15
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..Só esse campo dá problema? Os outros são recuperados normalmente?
#8
Posted 03/11/2010, 10:02
#9
Posted 03/11/2010, 18:54
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
#10
Posted 03/11/2010, 19:13
#11
Posted 04/11/2010, 08:37
to usando Persits UploadQue componente de upload você está usando?
#12
Posted 04/11/2010, 10:50
<% For Each Item in Upload.Form Response.Write Item.Name & "= " & Item.Value & "<BR>" Next %>
#13
Posted 04/11/2010, 12:48
coloquei exatamente igual.. ele nao me retornou nada..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 %>
#14
Posted 04/11/2010, 13:15
#15
Posted 05/11/2010, 18:25
a pagina eh estaTem link do sistema no ar?
http://www.imobiliar...in/adm_novo.asp
e o arquivo de gravacao
http://www.imobiliar...avarveiculo.asp
login: admin
senha: adm123
esqueci desse detalhe
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)