allora ho fatto delle prove e tiposto il codice
questo è il file con le combo
<html>
<head>
<script src="selectprovince_xml.js"></script>
</head>
<body>
<form action="">
fai una scelta<br>
<select name="customers" class="txt" onchange="showProvince(this.value)">
<option value="">Seleziona una Regione</option>
<%
strDBComuni = "db1.mdb"
strConnComuni = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDBComuni)
Dim dbConn
set dbConn = server.CreateObject("adodb.connection")
'dbConn.open MM_local_conn_STRING
dbConn.open strConnComuni
sql = "SELECT regione FROM t_elencocomuni GROUP BY regione ORDER BY regione ASC"
set rs = dbConn.Execute(sql)
Do while not rs.eof
%>
<option value="<%=rs("regione")%>"><%=rs("regione")%></option>
<%
rs.movenext
Loop
%>
</select>
<select name="prov" class="txt" onChange="showComuni(this.value)">
<option value="0">Seleziona una Provincia</option>
</select>
<select name="comune" class="txt">
<option value="0" selected="selected">Seleziona un Comune</option>
</select>
</form>
</body>
</html>
------------------------------
questo è il file selectprovince_xml.js
var xmlhttp
function showProvince(str)
{
xmlhttp=GetXmlHttpObject();
if (xmlhttp==null)
{
alert ("Your browser does not support AJAX!");
return;
}
var url="getprovince_xml.asp";
url=url+"?regione="+str;
url=url+"&sid="+Math.random();
xmlhttp.onreadystatechange=stateChangedRegione;
xmlhttp.open("GET",url,true);
xmlhttp.send(null);
}
function stateChangedRegione()
{
if (xmlhttp.readyState==4)
{
var xmlDoc=xmlhttp.responseXML.documentElement;
document.forms[0].elements["prov"].length=0;
var els = xmlDoc.getElementsByTagName("prov");
// Add a dummy option to the zip code drop-down list.
var option = document.createElement("OPTION");
option.text = "Seleziona una provincia";
option.value = "";
try
{
document.forms[0].elements["prov"].add(option, null);
}
catch(ex)
{
// For IE.
document.forms[0].elements["prov"].add(option);
}
for (var i = 0; i < els.length; i++)
{
option = document.createElement("OPTION");
option.text = option.value = els[i].firstChild.nodeValue;
try
{
document.forms[0].elements["prov"].add(option, null);
}
catch(ex)
{
// For IE.
document.forms[0].elements["prov"].add(option);
}
}
}
}
function showComuni(str)
{
xmlhttp=GetXmlHttpObject();
if (xmlhttp==null)
{
alert ("Your browser does not support AJAX!");
return;
}
var url="getcomuni_xml.asp";
url=url+"?prov="+str;
url=url+"&sid="+Math.random();
xmlhttp.onreadystatechange=stateChangedProvincia;
xmlhttp.open("GET",url,true);
xmlhttp.send(null);
}
function stateChangedProvincia()
{
if (xmlhttp.readyState==4)
{
var xmlDoc=xmlhttp.responseXML.documentElement;
document.forms[0].elements["comune"].length=0;
var els = xmlDoc.getElementsByTagName("comune");
// Add a dummy option to the zip code drop-down list.
var option = document.createElement("OPTION");
option.text = "Seleziona un comune";
option.value = "";
try
{
document.forms[0].elements["comune"].add(option, null);
}
catch(ex)
{
// For IE.
document.forms[0].elements["comune"].add(option);
}
for (var i = 0; i < els.length; i++)
{
option = document.createElement("OPTION");
option.text = option.value = els[i].firstChild.nodeValue;
try
{
document.forms[0].elements["comune"].add(option, null);
}
catch(ex)
{
// For IE.
document.forms[0].elements["comune"].add(option);
}
}
}
}
function GetXmlHttpObject()
{
if (window.XMLHttpRequest)
{
// code for IE7+, Firefox, Chrome, Opera, Safari
return new XMLHttpRequest();
}
if (window.ActiveXObject)
{
// code for IE6, IE5
return new ActiveXObject("Microsoft.XMLHTTP");
}
return null;
}
-------------------
questo è il file getprovince_xml.asp
<%
response.expires=-1
response.contenttype="text/xml"
strDBComuni = "db1.mdb"
strConnComuni = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDBComuni)
Dim dbConn
on error resume next
set dbConn = server.CreateObject("adodb.connection")
'dbConn.open MM_local_conn_STRING
dbConn.open strConnComuni
strReg = Request.QueryString("regione")
sql = "SELECT siglaprovincia, provincia FROM t_elencocomuni WHERE regione = '" & strReg & "' GROUP BY siglaprovincia, provincia ORDER BY provincia ASC"
set rs = dbConn.Execute(sql)
if err <> 0 then
response.write(err.description)
set rs=nothing
set dbConn=nothing
else
response.write("<?xml version='1.0' encoding='ISO-8859-1'?>")
response.write("<regione>")
while(not(rs.eof))
response.write("<prov>" &rs.fields("provincia")& "</prov>")
rs.movenext
wend
response.write("</regione>")
set rs=nothing
set dbConn=nothing
end if
on error goto 0
%>
-------------------------
questo è il file getcomuni_xml.asp
<%
response.expires=-1
response.contenttype="text/xml"
strDBComuni = "db1.mdb"
strConnComuni = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(strDBComuni)
Dim dbConn
on error resume next
set dbConn = server.CreateObject("adodb.connection")
'dbConn.open MM_local_conn_STRING
dbConn.open strConnComuni
strReg = Request.QueryString("Prov")
sql = "SELECT comune FROM t_elencocomuni WHERE ((provincia = '" & strReg & "')) ORDER BY comune ASC"
set rs = dbConn.Execute(sql)
if err <> 0 then
response.write(err.description)
set rs=nothing
set dbConn=nothing
else
response.write("<?xml version='1.0' encoding='ISO-8859-1'?>")
response.write("<provincia>")
while(not(rs.eof))
response.write("<comune>" &rs.fields("comune")& "</comune>")
rs.movenext
wend
response.write("</provincia>")
set rs=nothing
set dbConn=nothing
end if
on error goto 0
%>
naturalmente devi cambiare le stringhe di connessione al db
spero ti sia d'aiuto
