ComboBox Dinamico Asp + Ajax

[rafespadas]

Hola

Te paso el codigo utilizando Javascript ojala y te sea de utilidad (Te dejo los nombres de los campos ya que creo que es mas facil de entender):

Lo que esta en naranja lo debers de modificar con los valores de tu base:

<script language = "JavaScript">

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={SQL Server};SERVER=NOMBRE_DE_SERVIDOR ;Database=TU_BASE;Uid=TU_USUARIO;PWD=TU_CONTRASEÑA"
Catalogo_Sql = "Select distinct SubCategoria, Aplicativo, Categoria from iCatalogo_Apps"

set rs = CreateObject("ADODB.Recordset")
rs.Open Catalogo_Sql, Conn
x=0
x=3
%>

function sublist(inform, selecteditem)
{
inform.Subcategoria.length = 0

<%
count= 0
y=0
do while not rs.eof
%>

x = <%= trim(y) %>;

subcat = new Array();
Subcategorias = "<%=(rs("Aplicativo")) %>";
Subcategoriaof = "<%=(rs("Subcategoria"))%>";
Subcategoriaid = "<%=(rs("Categoria"))%>";
subcat[x,0] = Subcategorias;
subcat[x,1] = Subcategoriaof;
subcat[x,2] = Subcategoriaid;
if (subcat[x,1] == selecteditem) {
var option<%= trim(count) %> = new Option(subcat[x,0], subcat[x,2]);
inform.Subcategoria.options[inform.Subcategoria.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs.movenext
loop
rs.close
%>
}

</script>


Combo 1

<select name="CATEGORIA" size="1" class="colaborador" id="familia" onChange = "javascript:sublist(this.form, familia.value);" style="width: 246px">
<option selected value="%%">Selecciona una Categoria</option>
<%familias_Sql = "Select distinct SubCategoria from iCatalogo_Apps ORDER BY SubCategoria"
rs.Open familias_Sql, Conn
do while not rs.eof
%>
<option value="<%=rs("SubCategoria")%>"><%=rs("SubCategoria")%></option>
<%rs.movenext
loop
set rs=nothing
conn.close
set conn=nothing%>
</select>

Combo 2

<select name="Subcategoria" size="1" class="colaborador" id="Subcategoria" style="width: 244px">
<option selected value="%%">Selecciona una Categoria</option>
</select>

Suerte con tu desarrollo!!!.