salve a tutti.
allora in pratica ho modificato per le mie esigenze uno script
che prevede due select dinamiche con refresh tramite script java.
alle prime due select ci sono, ma nonostante abbia provato fino alla morte
non riesco a fare la terza select.in pratica non riesco a fare in modo che la seconda pagina
mi carichi una terza select.
ciao e grazie
questo è quello che sono riuscito a fare fino ad ora

http://ascm.somee.com/txt/fondo_ajax.asp

posto il codice delle pagine

fondo.asp

codice:

<%
Call CnOpen()
%>
<html>
<head>
<title>Archivio storico comunale di Monreale</title>
<script type="text/javascript" src="serieVERO_ajax.js"></script>
</head>
<body>
<form name="italia">
<select name="fondo" id="fondo" onChange="Province(this.value)">
<option value="0"></option>
<%
Dim SQL
SQL = "SELECT * FROM fondo ORDER BY fondo ASC"
rs.Open SQL, cn, 1
While rs.EOF = False
%>
<option value="<%=rs("id")%>"><%=rs("fondo")%></option>
<%
rs.MoveNext
Wend
rs.Close
%>
</select>



<div id="risultati"></div>
</form>
</body>
</html>
<%
Call CnClose()
%>
serieVERO_ajax.asp

codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

<html>
<head>
<title></title>

</head>
<body>


<%
    Dim id
    id = Request.QueryString("id")
    If IsNumeric(id) = False Or id < 1 Then
        Response.Write "Selezionare una sezione valida!"
        Response.End
    End If
    Call CnOpen()
    Dim SQL
    SQL = "SELECT distinct id_sez, sezione FROM serie "
    SQL = SQL & "WHERE id_sez = " & id & " "
    SQL = SQL & "ORDER BY sezione ASC"
    rs.Open SQL, cn, 1
    If rs.EOF Then
        Response.Write "Selezionare una serie valida!"
    Else
%>
<select name="sezione" id="sezione">
<option value="0"></option>
<%
        While rs.EOF = False
%>
<option value="<%=rs("id_sez")%>"><%=rs("sezione")%></option>
<%
            rs.MoveNext
        Wend
%>
</select>
<tr bgcolor="C7F1F1">
  <td height="28" colspan="2" class="Stile4 Stile9"><input type="submit" name="invia" id="invia" value="AVANTI" /></td>
</tr>
</body>
</html>

<%
    End If
    rs.Close
    Call CnClose()
%>
serieVERO_ajax_3_livello

codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">

<html>
<head>
<title></title>

</head>
<body>


<%
    Dim id
    id = Request.QueryString("id_sez")
    If IsNumeric(id) = False Or id < 1 Then
        Response.Write "Selezionare una sezione valida!"
        Response.End
    End If
    Call CnOpen()
    Dim SQL
    SQL = "SELECT distinct serie, id FROM serie "
    SQL = SQL & "WHERE id_sez = " & id & " "
    SQL = SQL & "ORDER BY serie ASC"
    rs.Open SQL, cn, 1
    If rs.EOF Then
        Response.Write "Selezionare una serie valida!"
    Else
%>
<select name="sezione" id="sezione">
<option value="0"></option>
<%
        While rs.EOF = False
%>
<option value="<%=rs("id")%>"><%=rs("serie")%></option>
<%
            rs.MoveNext
        Wend
%>
</select>
<tr bgcolor="C7F1F1">
  <td height="28" colspan="2" class="Stile4 Stile9"><input type="submit" name="invia" id="invia" value="AVANTI" /></td>
</tr>
</body>
</html>

<%
    End If
    rs.Close
    Call CnClose()
%>