<head>
<script language = "JavaScript">
<%Dim x, count, y
SQL = "SELECT IdModelo, NombreModelo, IdMarca FROM Modelos"
CrearRs(objRS)
x=0
%>
// FUNCION DE COMBO BOX COMBINADO
function sublist(inform, selecteditem)
{
inform.subcatagory.length = 0
<%
count= 0
y=0
Do While Not rs.EOF
%>
x = <%= trim(y) %>;
subcat = new Array();
subcatagorys = "<%=(rs("NombreModelo"))%>";
subcatagoryof = "<%=(rs("IdMarca"))%>";
subcatagoryid = "<%=(rs("NombreModelo"))%>";
subcat[x,0] = subcatagorys;
subcat[x,1] = subcatagoryof;
subcat[x,2] = subcatagoryid;
if (subcat[x,1] == selecteditem) {
var option<%= trim(count) %> = new Option(subcat[x,0], subcat[x,2]);
inform.subcatagory.options[inform.subcatagory.length]=option<%= trim(count)%>;
}
<%
count = count + 1
y = y + 1
rs.MoveNext
Loop
rs.Close()
Set rs = Nothing
%>
}
</script>
</head>
-----------------------
<form>
<select size="1" id="cat" name="MarcaVehiculo" onChange = "javascript
:sublist(this.form, cat.value);" tabindex="6">
<option selected value="0">Seleccione</option>
<%
SQL = "SELECT IdMarca, NombreMarca FROM Marcas"
CrearRS(objRS)
Do While Not rs.EOF%>
<option value="<%=rs("NombreMarca")%>"><%=rs("NombreMarca" )%></option>
<%rs.MoveNext
Loop
rs.Close()
Set rs = Nothing
%>
</select>
<select id="subcatagory" name="ModeloVehiculo" size="1" tabindex="7">
<option value="0">--------------------</option>
</select>
</form>
espero que te sirva....
