Error Combo enlazado

[Sandino]

Hola amigos:
Encontre este comboBox en la red. trate de modificarlo, pero me sale un error que no puedo encontrar la solucion , al parecer no me reconoce el combo llamado subcategoria, espero me puedan ayudar por favor.

El error es "Subcategoria es nulo o no es un objeto".

Código:

<script language = "JavaScript">
<%dim Utiles
corpId = Session("corpId")
set Utiles = Server.CreateObject("portal_rrhh.utiles_smartcom")	
sSQL ="Select SubCategoriaID,Nombre from tblBibliotecasubCategoria"
	'Response.Write(sSQL)
	'Response.End()
	set rs = Utiles.LISTAR_DATOS_SMARTCOM(sSQL)
x=0
%>

function sublist(form1, selecteditem)
 {
form1.subcategoria.length = 0<-- ahi esta el error
	<%
	 count= 0
	 y=0
	 do while not rs.eof
	%>
	x = <%= trim(y) %>;

	subcat = new Array();
	subcatagoryof = "<%=(rs("Nombre"))%>";
	subcatagoryid = "<%=(rs("SubCategoriaId"))%>";
	subcat[x,1] = subcatagoryof;
	subcat[x,0] = subcatagoryid;
	if (subcat[x,1] == selecteditem) {
	  var option<%= trim(count) %> = new Option(subcat[x,1]);
	  form1.subcategoria.options[form1.subcategoria.length]=option<%= trim(count)%>;
	  form1.subcategoria.options[form1.subcategoria.length -1].value= subcat[x,1];
	 }
	<%
	  count = count +1
	  y = y + 1
	  rs.movenext
	 loop
	rs.close
	%>
}

</script>


	<form METHOD="POST" ENCTYPE="multipart/form-data" ACTION="<%=strEstaPagina%>" name="form1"> 				
<select size="1" id="familia" name="familia" onChange = "javascript:sublist(this.form1, familia.value);">
            
            <option>Selecciona una Categoría</option>
          <% dim familias_Sql
		   
		  familias_Sql = "SELECT * FROM tblBibliotecaCategoria WHERE corpid = "& CorpId 
			set rs = Utiles.LISTAR_DATOS_SMARTCOM(familias_Sql)
			do while not rs.eof
            %>
                <option value="<%=rs("CategoriaID")%>" selected><%=rs("Nombre")%></option>
            <%rs.movenext
              loop%> </select>
				&nbsp;&nbsp;&nbsp;&nbsp;Subcategor&iacute;a:&nbsp;&nbsp;
				 <SELECT name="subcategoria" size="1">
    					<Option selected value="none"></option>
            </SELECT></td>
</form>