Problema con combo popolate con ajax

[birillo78]

Problema con combo popolate con ajax

Salve, ho realizzato un menu dinamico con due menu a tendina con ajax, ma avrei bisogno di aggiungere un altro menu a tendina sempre dinamico, ma non saprei come modificare la funzione.In pratico vorrei aggiungere una scelta per l'affitto e la vendita prima del comune e della tipologia
Sotto il file del menu a tendina

<table align="left" cellpadding="0" cellspacing="0" width="22%" border="0">
  <td class="contenuto">
<div align="justify"> </div>
<%
response.cacheControl = "no-cache"
response.addHeader "pragma", "no-cache"
response.expires = -1
%>
<!--#include virtual="/_db2.asp"-->
<script language="javascript">
var ricerca_pro;
function cerca() 
{
var valorecampo = document.immobile.comune.options[document.immobile.comune.selectedIndex].value;
// per l'oggetto nativo XMLHttpRequest
if (window.XMLHttpRequest) {
ricerca_pro = new XMLHttpRequest();
ricerca_pro.onreadystatechange = ricevi;
ricerca_pro.open("GET", "cercatipologia.asp?loc="+valorecampo,true);
ricerca_pro.send(null);
// per IE 
} else if (window.ActiveXObject) {
ricerca_pro = new ActiveXObject("Microsoft.XMLHTTP");
if (ricerca_pro) {
ricerca_pro.onreadystatechange = ricevi;
ricerca_pro.open("GET", "cercatipologia.asp?loc="+valorecampo,true);
ricerca_pro.send();
}
}
}
function ricevi() { 
var strRes; 
var arrValori; 
if (ricerca_pro.readyState == 4) { 
strRes=ricerca_pro.responseText;
arrValori=strRes.split("|");
document.immobile.tipologia.options.length=0; 
for(i=0;i<arrValori.length;i++)
{
document.immobile.tipologia.options[document.immobile.tipologia.options.length]= new Option(arrValori*.split("|")); 
}
}
}
</script>
      <table width="261" border="0" align="left" cellpadding="0" cellspacing="0">
        <%
'apro connessione e istanzio oggetti
OpenDB(connAJAX)
'query per la prima select
strsql = "SELECT comune FROM Da_vendere GROUP BY comune"
rs.open strsql
%>
        <form id="immobile" name="immobile" method="post" action="ricercaimmobile.asp" onSubmit="return cont(this)">
<tr> 
 
          <td width="1" height="24"></td>
 
          <td width="260" align="left" valign="middle"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Localit&aacute;</strong></font></td>
          </tr>
          <tr> 
 
          <td height="30"></td>
          <td align="left">
<select name="comune" accesskey="1" class="ricerca" tabindex="1" onChange="cerca()">
<option selected="selected" value=0>Scegli localita</option>
<%
do while not rs.eof
%>
<option value="<%=rs("comune")%>"><%=rs("comune")%></option>
<%
rs.movenext
loop
CloseDB
%>
</select></td></tr>
<tr> 
            <td height="5"></td>
            <td></td>
          </tr>
          <tr>
 
          <td height="22"></td>
 
          <td align="left" valign="middle"><font size="2" face="Arial, Helvetica, sans-serif"><strong>Tipologia</strong></font></td>
          </tr>
          <td>&nbsp;</td>
          <td align="left">
<select name="tipologia" class="ricerca" accesskey="2" tabindex="2">
            </select></td>
          </tr>
          <tr> 
 
          <td height="3"> </td>
            <td></td>
          </tr>
    <tr> 
 
          <td height="2"> </td>
            <td></td>
          </tr>
    <tr> 
            <td height="7"> </td>
            <td></td>
          </tr>
    <tr> 
 
          <td height="35"></td>
            <td align="center"><input type="submit" value="Trova" class="login"> 
            </td>
          </tr>
    <tr> 
            <td></td>
            <td align="center" width="260"></td>
          </tr>
    <tr></form> 
           <tr> 
            <td height="21"></td>
            <td align="center"><form name="form1" method="post" action="ricercaimmobile2.asp"><input type="submit" value="Visualizza tutti gli immobili dell'agenzia" class="login"></form> 
            </td>
          </tr>
    <tr> 
            <td></td>
            <td align="center" width="260"></td>
          </tr>
    <tr></form> 
      </table></td>
 </tr>
</table>
 

E questo invece il file della ricerca tipologia

<%
loc= Trim(Request.QueryString("loc"))
dim conn2
set conn2=server.CreateObject("ADODB.Connection")
Conn2.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.MapPath("/mdb-database/immobile.mdb")
strsql="select Tipologia from da_vendere where Comune='"&loc&"' GROUP BY Tipologia order by tipologia asc"
set rs=conn2.execute(strsql)
primo = 0
if not rs.eof then
do while not rs.eof
'compongo l'array con i risultati 
if primo = 0 then 
primo = 1 
array_tipologia = "Qualsiasi" & "|" & rs("Tipologia")
else
array_tipologia =  array_tipologia & "|" & rs("Tipologia")  
end if
rs.movenext
loop
response.write array_tipologia
end if
%>

Mi sapete dire come posso fare?
Grazie