Salve.

Ho un form in una pagina ASP e al suo interno ci sono tre listbox.
Il primo è Regione (con la scelta della regione), il secondo è Provincia (con le province appartenenti alla Regione) e il terzo è Comuni (in cui ci sono i comuni appartenenti alla provincia).
Se dichiaro le variabili di default all'inizio del fil ASP, il form funziona andando ad accedere al database e popola correttamente i listbox interessati, ma se vado sul primo (Regione) e cambio la regione in quale modo posso far vedere la variabile selezionata per Regione alla Sub che gestisce il listbox della Provincia ?
Premetto che gestisco i listbox tramite sub in ASP.

<%
'oConn è la stringa di connessione
<select size="1" name="tRegione"><% AddRegioniMenu sRegione, oConn %></select>

'e qui c'è la Sub
'-- Sub usata per creare un menu dropdown delle Regioni italiane
Sub AddRegioniMenu(sDefault, oConn)
Dim RecordSet 'as record set
Dim sSQL 'as string
Dim sCode 'as string
Dim sName 'as string
sSQL = "SELECT creg, regione FROM Regioni"
Set RecordSet = oConn.Execute(sSQL)
IF NOT RecordSet.EOF THEN
DO UNTIL RecordSet.EOF
sCode = Trim(RecordSet(0).Value)
sName = Trim(RecordSet(1).Value)
IF LCase(sDefault) = LCase(sCode) THEN
Response.Write "<option selected value=""" & sCode & """>" & sName & "</option>"
ELSE
Response.Write "<option value=""" & sCode & """>" & sName & "</option>"
END IF
RecordSet.MoveNext
LOOP
END IF
Set RecordSet = Nothing
End Sub
%>

'Scelta della Provincia
<select size="1" name="tProvincia"><% AddProvinceMenu sProvincia, sRegione %></select>

'e qui c'è la Sub
'-- Sub usata per creare un menu dropdown delle Provincie filtrate per Regione
Sub AddProvinceMenu(sDefault, filtro)
Dim sSQL 'as string
Dim sCode 'as string
Dim sName 'as string
sSQL = "SELECT provincia, provest, COUNT(*) AS qt FROM comuni WHERE creg='" & filtro & "' GROUP BY provest, provincia"
Set RecordSet = oConn.Execute(sSQL)
IF NOT RecordSet.EOF THEN
DO UNTIL RecordSet.EOF
sCode = Trim(RecordSet(0).Value)
sName = Trim(RecordSet(1).Value)
IF LCase(sDefault) = LCase(sCode) THEN
Response.Write "<option selected value=""" & sCode & """>" & sName & "</option>"
ELSE
Response.Write "<option value=""" & sCode & """>" & sName & "</option>"
END IF
RecordSet.MoveNext
LOOP
END IF
Set RecordSet = Nothing
End Sub
%>
Grazie a che vorrà rispondermi