Como faço para pegar um campo em HTML em ASP?

[fpelegrini 0]

Estou com o seguinte problema:

 

Tenho um campo select em HTML o qual preciso pegar seu valor para realizar uma busca em ASP e exibir no próximo campo em HTML como faço?

 

O código que encontra-se abaixo não funciona, alguém pode me dar uma sugestão de melhor solução para meu problema??????

 

Erro do código abaixo:

Tipo de erro:

Erro de tempo de execução do Microsoft VBScript (0x800A01B6)

O objeto não dá suporte para a propriedade ou método: 'getParameter'

 

<tr>
<td> Selecionar Código do Caldo:</td>
<td>
<select size="1" name="bx_cod_caldo" >	
<%
Set sqlrs = conexao.Execute("select * from caldo")
	DO WHILE not sqlrs.eof
				
%>

 <option value="<%=sqlrs.fields("cod_caldo")%>"> <%=sqlrs.fields("cod_caldo")%></option> 
					  
<%
	sqlrs.movenext
	Loop
	sqlrs.close
					
%>
  </select></b></td></tr>
	
<%
Function selecionarcampo(codcaldo)
				 
	Set sql = conexao.Execute ("select * from caldo where cod_caldo = '"&codcaldo&"'")
	selecionarcampo=sql("brix_caldo")
End Function
		
%>
			
<td> Brix do Caldo (sst):</td>
<td><input type="text" name="txt_caldo_vinho"  value ="<%=selecionarcampo(request.getParameter(bx_cod_caldo))%>"   maxlength="10" size="10" />
 </td></tr>
<tr>

[hargon 64]

Você vai está recarregando a mesma página de novo?

 

Se estiver basta utilizar Request.Form (se estiver usando método POST) ou Request.QueryString (se estiver usando o método GET).

[fpelegrini 0]

Você vai está recarregando a mesma página de novo?

 

Se estiver basta utilizar Request.Form (se estiver usando método POST) ou Request.QueryString (se estiver usando o método GET).

 

Como recarrega?

[hargon 64]

Você pode usar Javascript, para quando selecionar a combo, carregar a página de novo passando o valor... ou então pode fazer isso com Ajax (com Ajax é melhor).

[JBNC 0]

Prezado fpelegrini,

Acho que esta faltando o seguinte no seu código:

<tr>
<td> Selecionar Código do Caldo:</td>
<td>
<select size="1" name="bx_cod_caldo" >
<%

Set sqlrs = conexao.Execute("select * from caldo")
	sqlrs.movefirst
	WHILE not sqlrs.eof
%>
<% Response.Write "<option value='"&sqlrs("cod_caldo")&"'>"&sqlrs("cod_caldo")&"</option>"%>
<%
	sqlrs.movenext
	wend
	sqlrs.close
	set sqlrs = nothing				
%>
  </select></b></td></tr>
	
<%
Function selecionarcampo(codcaldo)
				 
	Set sql = conexao.Execute ("select * from caldo where cod_caldo = '"&codcaldo&"'")
	selecionarcampo=sql("brix_caldo")
End Function
		
%>
			
<td> Brix do Caldo (sst):</td>
<td><input type="text" name="txt_caldo_vinho"  value ="<%=selecionarcampo(request.getParameter(bx_cod_caldo))%>"   maxlength="10" size="10" />
</td></tr>
<tr>

Veja se funciona.

Um abraço.

 

JBNC

[xanburzum 169]

vê se ajuda:

 

este script faz o preenchemento de um combo e pega o valor do combo preenchido pra fazer o outro combo, tipo:

 

um combo pais e outro combo estado

 

as tabelas saun:

 

pais- com os campos

cod_pais - chave primária

nome

 

estado -c om os campos

cod_pais - chave estrangeira

cod_estado

nome

 

as tabelas possuem relacionamento de um para muitos

<% Option Explicit 
'declaro as var 
dim var1,var2,var3,....., etc 
'recupero as var 
varpais=request.querystring("pais") 
'crioa a conexao 
%> 
<!--# include file="conexao/conexao.asp"--> 
<% 
'abro a conexao 
Call abre_conexao 
'crio o rs 
set rspais=server.createobject("ADODB.Recordset") 
'crio a SQL 
SQLpais="SELECT * FROM pais ORDER BY nome" 
rspais.open SQLpais,conexao,1,3 
%> 

'aki vou criar o combo, onde no evento onchange ele irá enviar o value do combo pais para a mesma pag, para eu recuperar o codigo do pais e assim preencher o combo estado. 

<form action="inserirend_action.asp"method="post"name="frmteste"> 
<select name="pais" size="1" Onchange="window.navigate('pag_atual.asp?pais='+frmteste.pais.value)"> 
<% while not rspais.eof%> 
<option value="<%=rs("cod_pais")%>"> 
<% if varpais=rs("pais") then 
response.write("Selecionado") 
end if%> 
<%=rs("nome")%> 
</option> 
<% rspais.movenext 
wend%> 
</select> 
<% set rspais=nothing%> 
'aki crio o combo estado 
<select name="estado"size="1"> 
if request("pais") ="" then%> 
<option value=""> selecione um pais 
<%else 
'crio o SQL estado 
SQLestado="Select * from estado where cod_pais="&varpais&" Order by nome" 
'crio o rsestado 
set rsestado=server.createobject("ADODB.Recordset") 
rsestado.open SQLestado,conexao,1,3 
<%while not rsestado.eof%> 
<option value="<%=rsestado("cod_estado")%>"> 
<%=rs("nome")%> 
</option> 
<%rs.movenext 
wend 
end if%> 
</select> 
<% set rsestado=nothing%> 
<% 'fecho a conexao 
call fecha_conexao%>