AJAX e ASP: Select Concatenate

[zetaweb]

Non sapevo se postare qui o in ASP, cmq spero di aver fatto bene.
Ragazzi sto provando ad utilizzare l'esempio riportato su questo sito:
http://www.mmkit.com/article.php?sid=496
ma non mi funziona.
Vi posto le mie pagine adattate all'esempio, nella speranza che riusciate a risolvere il problema.

Questa è la pagina con le select:
prima il codice script

<script language="javascript">

  var ricerca_pro;
  
   
function cerca() 
{
    var valorecampo = document.form1.cat.options[document.form1.cat.selectedIndex].value;
    // branch for native XMLHttpRequest object
    if (window.XMLHttpRequest) {
        ricerca_pro = new XMLHttpRequest();
        ricerca_pro.onreadystatechange = ricevi;
        ricerca_pro.open("GET", "cercasotto.asp?id="+valorecampo,true);
        ricerca_pro.send(null);
    // branch for IE/Windows ActiveX version
    } else if (window.ActiveXObject) {
        ricerca_pro = new ActiveXObject("Microsoft.XMLHTTP");
        if (ricerca_pro) {
            ricerca_pro.onreadystatechange = ricevi;
            ricerca_pro.open("GET", "cercasotto.asp?id="+valorecampo,true);
            ricerca_pro.send();
        }
    }
}

     
  function ricevi() {   
    var strRes;       
    var arrValori;      
	  if (ricerca_pro.readyState == 4) {	    
		  strRes=ricerca_pro.responseText;
		  arrValori=strRes.split("|");
		  document.form1.sottocat.options.length=0;		    
		  for(i=0;i<arrValori.length;i++)
		  {
		    document.form1.sottocat.options[document.form1.sottocat.options.length]= new Option(arrValori[i].split("|")); 
		  }
		 }
	}
</script>

quindi le due select sempre in questa pagina

<td valign="middle" bgcolor="#EBEBEB" class="carattere">
				  <select name="cat" onChange="cerca()">
				  <option value="0" selected="selected">Seleziona la Categoria</option>
				  <%
				  sql = "SELECT *FROM tab_cat ORDER BY nome_cat ASC"
				  set rs = conn.execute(sql)
				  while not rs.eof
				  %>
				  <option value="<%=rs("ID_categorie")%>"><%=rs("nome_cat")%></option>
				  <%
				  rs.movenext
				  wend
				  %>
				  </select>				  </td>
                </tr>
                <tr>
                    <td width="126" height="50" valign="middle" bgcolor="#EBEBEB" class="carattere">
                    Nome Sotto Categoria :                    </td>
                    <td width="350" valign="middle" bgcolor="#EBEBEB" class="carattere">
					<select name="sottocat">
                      
                    </select></td>

questa è la pagina che recupera il valore della prima select:

<%

	id = Request.QueryString("id")
	sql2 = "SELECT nome_sottocat FROM tab_sottocat WHERE id_cat = " &id
	set rs2 = conn.execute(sql2)
	primo = 0
	if not rs2.eof then
		do while not rs2.eof
		
			if primo = 0 then
			primo = 1 
			array_citta = rs2("nome_sottocat")
			else
			array_citta = rs2("nome_sottocat") & "|" & array_citta
			end if
	
		rs2.movenext
		loop
	end if

%>

Alla selezione della prima select non succede nulla nella seconda...
Cosa ho sbagliato?
Grazie a tutti!!