Combo Dinâmico

[Ale Gouveia 0]

Pessoal...

 

Mudei meus combos agora pra ver se funciona.. aff

Fiz tudo muito simples...

 

default.asp

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />  
<script language="javascript" src="ajax.js"></script>  

 Marca:  
		<select name="categoria" onchange="alimentarCombo(this.value);">  
		 <option value="">[ Selecione ]</option>  
		<%  
		Call abre_conexao(conexao)
	sql = "select codigo_categoria, nome_categoria from Categorias order by nome_categoria"
	set rs = conexao.execute(sql)
		if (not rs.eof) then  
		 while (not rs.eof)  
			 response.write("<option value="""&rs("codigo_categoria")&""">"&rs("nome_categoria")&"</option>")  
				rs.moveNext : wend  
		   end if  
		  set rs = nothing  
		  %>  
		</select>  
		 <br>  
		 Sub-Categoria: <div id="resultado"></div>

ajax.asp

 

function GetXMLHttp() {  
	if (navigator.appName == "Microsoft Internet Explorer") {  
		xmlHttp = new ActiveXObject("Microsoft.XMLHTTP");  
	} else {  
		 xmlHttp = new XMLHttpRequest();  
	return xmlHttp;  
 }  
 var mod = GetXMLHttp();  
   
 function alimentarCombo(valor) {  
	 mod.open("GET", "Carrega.ajax.asp?id="+valor+"", true);  
	 mod.setRequestHeader("Content-Type", "application/x-www-form-urlencoded");  
	mod.onreadystatechange = function() {  
		 if (mod.readyState == 4) {  
			document.getElementById("resultado").innerHTML = mod.responseText;  
		}  
	 };  
	 mod.send(null);  
 }

Carrega.ajax.asp

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

<select name="sub_categoria">  
	<option value="">[ Selecione ]</option>  
	<%  
	Call abre_conexao(conexao)
	set rs = conn.execute("SELECT * FROM Subcategorias WHERE codigo_categoria = '"&request.queryString("id")&"' ORDER BY nome_subcategoria")  
		if (not rs.eof) then  
			while (not rs.eof)  
			   response.write("<option value="""&rs("codigo_categoria")&""">"&rs("nome_categoria")&"</option>")  
		   rs.moveNext :wend  
		end if  
	set rs = nothing  
	%>  
</select>

Aí da esse erro:

Erro: alimentarCombo is not defined

Arquivo-fonte: http://shopsul.tempsite.ws/agencia/default.asp?lang=pt_BR

Linha: 1

 

se tem o include lá no default... por favor me ajudem...

Desde já obrigada

[Christophe 0]

Tenta com esta função :

 

public function fGetCboOptions(lngId, strTable, strFields, strWhere, strOrder)
	dim rstCombo, strCombo
	set rstCombo = server.CreateObject("ADODB.RECORDSET")
	strCombo = ""
	with rstCombo
		.open fGetSql("ComboOptions", "", strTable, strFields, strWhere, strOrder, "", "", "", "", "", "", "", "", "", "", ""), adoCn
		if not .bof then
			.movefirst
			do while not .eof
				if cstr(lngId) = cstr(.fields(0).value) then
					strCombo = strCombo & "<OPTION selected value=" & .fields(0).value & " title=""" & fSetDesc(.fields(1).value) & """>" & fSetDesc(.fields(1).value) & "</OPTION>"
				else
					strCombo = strCombo & "<OPTION value=" & .fields(0).value & " title=""" & fSetDesc(.fields(1).value) & """>" & fSetDesc(.fields(1).value) & "</OPTION>"
				end if
				.movenext
			loop
		end if
		.close
	end with
	fGetCboOptions = strCombo
	set rstCombo = nothing
end function

Depois chamas a função desta maneira :

 

<%=fGetCboOptions(0, "Tbl", "Campo, Campo", "WHERE", "ORDER BY")%>

[Ale Gouveia 0]

Nossa.. mas onde coloco isso??? na pagina que chama tudo? o default?

desculpa.. to bem crua ainda em AJAX e asp