'CONNESSIONE AL DATABASE
<!--#include file="conn.asp"-->

'FUNZIONE JAVASCRIPT
<script language="javascript" type = "text/javascript">

function vai(){
var test;
test="true";
   
  if (test=="true")
        {
        document.form.action="pagina.asp";
        document.form.submit();
        }
  }

</script>
</head>

'RECUPERO I DATI DALLA PRIMA TBL DEL DATABASE
<form name="form">
Invia la richiesta a: 
<select size="1" name="REGIONI" style="font-size: 8 pt; font-family: Verdana" onChange="submit(this);">
                <option value="TUTTI">------TUTTI------</option>
                <%
sql = "SELECT * FROM REGIONI ORDER BY REGIONI desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

On Error Resume Next
rs.MoveFirst  
Do While Not rs.EOF%>

<option value=<%=rs("REGIONI")%>><%=rs("REGIONI")%></option>
<%
rs.MoveNext
Loop
rs.Close
set rs = Nothing
%>

              </select> 


'FACCIO POPOLARE LA SECONDA SELECT 
<select size="1" name="CAPOLUOGHI" style="font-size: 8 pt; font-family: Verdana" onChange="aggiorna(this);";>
                <option value="TUTTE">------TUTTE------</option>
                <%
if REGIONI <> 0 then
Set RS1 = Server.CreateObject("ADODB.Recordset")
sql1 = "select distinct TABELLA.id_CAPOLUOGO as SIST, CAPOLUOGO.CAPOLUOGO as BLOC from  CAPOLUOGO  inner join TABELLA on TABELLA.id_CAPOLUOGO=CAPOLUOGO.id_CAPOLUOGO WHERE TABELLA.id_REGIONI = '"&regioni"' "
rs1.open sql1, conn

On Error Resume Next
rs1.MoveFirst  
Do While Not rs1.EOF%>

<option  value="<%=RS1("SIST")%>"><%=RS1("BLOC")%></option>
                      
<%
    RS1.Movenext
    LooP
end if
rs1.close 
set rs1 = nothing 
%>
</select>
</form>