ciao a tutti, stò impazzendo con questo errore che mi compare:

Dettagli errore pagina Web

Messaggio: 'document.form.id' è nullo o non è un oggetto
Linea: 15
Carattere: 1
Codice: 0
URI: http://192.168.0.11/agora/ebari_vend...to.asp?idut=26

lo script è questo qui:

codice:
<script type="text/javascript" language="javascript">
var estrai_sottocategorie;
var id
   
function cerca_sottocategorie() 
{

id=document.form.id.options[document.form.id.selectedIndex].value
    // branch for native XMLHttpRequest object
    if (window.XMLHttpRequest) {
        estrai_sottocategorie= new XMLHttpRequest();
        estrai_sottocategorie.onreadystatechange = ricevi_sottocategorie;
        estrai_sottocategorie.open("GET", "ebari_estraisottocategorie.asp?id="+id, true);
        estrai_sottocategorie.send(null);
    // branch for IE/Windows ActiveX version
    } else if (window.ActiveXObject) {
        estrai_sottocategorie= new ActiveXObject("Microsoft.XMLHTTP");
        if (estrai_sottocategorie) {
            estrai_sottocategorie.onreadystatechange = ricevi_sottocategorie;
            estrai_sottocategorie.open("GET", "ebari_estraisottocategorie.asp?id="+id, true);
            estrai_sottocategorie.send();
        }
    }
}

     
  function ricevi_sottocategorie() {   
    var sottocategorie;       
	  if (estrai_sottocategorie.readyState == 4) {	    
		  province=estrai_sottocategorie.responseText;

			document.getElementById('sottocategoria').innerHTML = province;
			 }
	}
</script>
mentre la select box è:

codice:
<select name="categoria" onChange="cerca_sottocategorie();">
<option value="0"></option>
<%
Dim Conn2
Set Conn2=Server.CreateObject("ADODB.Connection")
Conn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("mdb/test.mdb")
'response.Write(sql)
'response.end
SQL2="SELECT * FROM categorie "
'response.Write(sql)
'response.end
Set rec2 = Server.CreateObject("ADODB.Recordset")
Set Rec2=Conn2.Execute(SQL2)
    While rec2.EOF = False
%>
<option value="<%=rec2("id")%>"><%=rec2("categoria")%></option>
<%
        rec2.MoveNext
    Wend
    rec2.Close
%>
</select>