Atualizando combobox utilizando AJAX

O codigo abaixo atualiza um segundo combo baseado na escolha do primeiro acessando o banco de dados sem dar refresh na página.

Isto é possivel utilizando AJAX.

Recurso muito útil e bastante utilizado nas páginas atuais.

<%Response.Charset="ISO-8859-1"%>





 
 
<%  
if request.queryString("at")= "" then

	db = Server.MapPath("dados.mdb")
	Set cnn = Server.CreateObject("adodb.Connection")
	cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& db &";"

	SQL="SELECT * FROM tb_Lanc_categ ORDER by categoria"
	SET rs = Server.CreateObject("Adodb.recordset")
	rs.Open SQL,cnn 
	if not rs.eof then
		lista = rs.getrows()
		total = ubound(lista,2) 
	end if
	rs.close 
	set rs = nothing
	%>
	
	Utilizando AJAX para atualizar um COMBOBOX
	

	

		

			

				
Categoria
				

					
						selecionar...
						
						<%
						for t=0 to total
							response.write "" & lista(1,t) & ""
						next%>
					
				

					
Lançamento:
					

						
 
							
								Selecionar categoria
							
						
				

					

					
				
			
		
	
<%
else
		response.write "
Resultado:
"
		response.write "Categoria selecionada: " & request.Form("nomecat") & "
"
		response.write "Lançamento: " & request.Form("lancamento") & "

"
		response.write "Nova escolha"
		response.write "
"
end If
%>

Arquivos para Download:

combos.zip