Gracias por contestar.
Adapte tu codigo, y me quedo asi:
Código HTML:
<head>
<script language = "JavaScript">
<!-- #include file = "public.asp" -->
<%
Dim x, count, y, cnnDB
Set cnnDB = CreateCon
qry = "SELECT * FROM marca_modelos"
Set rs = SQLQuery(cnnDB,qry)
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("dsc_modelo"))%>";
subcatagoryof = "<%=(rs("cod_marca"))%>";
subcatagoryid = "<%=(rs("cod_modelo"))%>";
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>
<%
blnSubmitNew = iif(Cint(Request.Form("save")) = 1, True, False)
If blnSubmitNew Then
Call DisplayError(1, lang(cnnDB, "ClientName"))
end if
%>
<form action="t.asp" method="post">
<input type="hidden" id="save" name="save" value="0" />
<select size="1" id="cat" name="MarcaVehiculo" onChange = "javascript:sublist(this.form, cat.value);" tabindex="6">
<option selected value="0">Seleccione</option>
<%
qry = "SELECT * FROM marcas"
Set rs = SQLQuery(cnnDB,qry)
Do While Not rs.EOF%>
<option value="<%=rs("cod_marca")%>"><%=rs("dsc_marca" )%></option>
<%rs.MoveNext
Loop
rs.Close()
Set rs = Nothing
%>
</select>
<select id="subcatagory" name="ModeloVehiculo" size="1" tabindex="7">
<option value="0">--------------------</option>
</select>
<br />
<br />
<input type="submit" value="Sgte pag" name="B1" onclick="document.getElementById('save').value='1'; return checksubmit(this)" />
</form> pero el problema persiste.
Pf verifica este codigo, y dime que esta mal.