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"%>
<HTML>
<HEAD>
<TITLE>.:: Combos com AJAX ::.</TITLE>
<META NAME="Author" CONTENT="Wellington Marinheiro">
<script src="lanc_ComboAjax.js"> </script>
 </HEAD>
 <BODY>
<%  
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
	%>
	<CENTER>
	Utilizando AJAX para atualizar um COMBOBOX
	<hr>
	<form name="form" action="index.asp?at=1" method="post">
		<table border="1" bgcolor=#F4F4F4 width=40% align="center">
			<tr>
				<td><B>Categoria</B>
				<td>
					<select name="categoria" class="select"  Onchange="atualizaLanc(this.value);">
						<option value="">selecionar...
						
						<%
						for t=0 to total
							response.write "<option value=" & lista(0,t) & "|" & lista(1,t) &">" & lista(1,t) & "</option>"
						next%>
					</select>
				<tr>
					<td><B>Lançamento:</B>
					<td>
						<div id="lanc"> 
							<select name="Lancamento">
								<option value="">Selecionar categoria</option>
							</select>
						</div>
				<tr>
					<td colspan="2" align="center">
					<INPUT TYPE="submit" value="Enviar">
				</tr>
			</table>
		</form>
	</CENTER>
<%
else
		response.write "<div align=center><B>Resultado:</B><BR>"
		response.write "Categoria selecionada: " & request.Form("nomecat") & "<BR>"
		response.write "Lançamento: " & request.Form("lancamento") & "<BR><BR>"
		response.write "<A HREF='index.asp'>Nova escolha</A>"
		response.write "</div>"
end If
%>

</body>
</html>

Arquivos para Download:

combos.zip

Qual é a sua opinião ou dúvida?