Select concatenate popolate dinamicamente

[Tommaso2904]

Ciao
ho un grosso problema...

Ho una select con le regioni d'italia e una con le provincie.
Naturalmente quella con le provincie si deve popolare solo dopo che si è scelto una regione.
Inoltre le regioni e le provincie sono dentro una tabella che dovrò andare a richiamare sia per popolare la select regioni che province

GRAZIE MILLE PER IL VOSTRO AIUTO...

[Xinod]

usa la ricerca, l' argomento e' gia' stato trattato moltissime volte

[Tommaso2904]

FATTO...
ECCO IL CODICE


<%
Dim provincia_list
Dim provincia_list_cmd
Dim provincia_list_numRows

Set provincia_list_cmd = Server.CreateObject ("ADODB.Command")
provincia_list_cmd.ActiveConnection = MM_easyshop_STRING
provincia_list_cmd.CommandText = "SELECT Provincia FROM dbo.ComuniItalia GROUP BY Provincia ORDER BY Provincia"
provincia_list_cmd.Prepared = true

Set provincia_list = provincia_list_cmd.Execute
provincia_list_numRows = 0
%>

<%
Dim provincia
Dim provincia_cmd
Dim provincia_numRows

Set provincia_cmd = Server.CreateObject ("ADODB.Command")
provincia_cmd.ActiveConnection = MM_easyshop_STRING
provincia_cmd.CommandText = "SELECT Sigla_Provincia FROM dbo.ComuniItalia GROUP BY Sigla_Provincia ORDER BY Sigla_Provincia"
provincia_cmd.Prepared = true

Set provincia = provincia_cmd.Execute
provincia_numRows = 0
%>


<script type="text/javascript">
// Create arrays containing state cities
// Note: These arrays could be created dynamically
var arrProvincia

<%
provincia.movefirst
do while not provincia.eof
%>

<%
Dim comuni
Dim comuni_cmd
Dim comuni_numRows

Set comuni_cmd = Server.CreateObject ("ADODB.Command")
comuni_cmd.ActiveConnection = MM_easyshop_STRING
comuni_cmd.CommandText = "SELECT Sigla_Provincia, Comune FROM dbo.ComuniItalia WHERE Sigla_Provincia = '" & provincia.Fields.Item("Sigla_Provincia").Value & "' ORDER BY Comune"
comuni_cmd.Prepared = true

Set comuni = comuni_cmd.Execute
comuni_numRows = 0
%>

<%
do while not comuni.eof

ListaComuni = ListaComuni + """" + comuni.Fields.Item("Comune").Value + """" + ", "

comuni.movenext
loop
ListaComuni = Left(ListaComuni,Len(ListaComuni)-2)
%>

<%=(provincia.Fields.Item("Sigla_Provincia").Value )%> = [<%Response.Write(ListaComuni)%>]

<%
ListaComuni = ""
provincia.movenext
loop
%>


<%
provincia.movefirst
do while not provincia.eof

ListaProvincia = ListaProvincia + provincia.Fields.Item("Sigla_Provincia").Value + ", "

provincia.movenext
loop
ListaProvincia = Left(ListaProvincia,Len(ListaProvincia)-2)
%>

arrProvincia = [<%Response.Write(ListaProvincia)%>]

// Function to handle dynamically altering the contents of the City List box
function handleChange(newDisplay)
{ var ProvinciaSelect, ComuneSelect, NumEntries, i
ProvinciaSelect = document.InsertImm.Provincia
ComuneSelect = document.InsertImm.Comune


// Delete all entries in the cities list box
for (i = ComuneSelect.length; i > 0; i--)
{
ComuneSelect.options[i-1] = null
}


// Add comment option to City List box
ComuneSelect.options[0] = new Option("-- Seleziona Comune --",0)


// If state is selected add its cities to the City List box
if (newDisplay >= 0)
{
NumEntries = arrProvincia[newDisplay].length
for (i = 1; i <= NumEntries; i++)
{
ComuneSelect.options[i] = new Option((arrProvincia[newDisplay])[i-1],(i))
}
}
ComuneSelect.selectedIndex = 0

}
</script>
<% 'response.write(ListaComuni) %>
<select name="Provincia" onChange="handleChange(this[this.selectedIndex].value)">
<option value="-1">-- Seleziona Provincia --
<%
Q = 0
provincia_list.movefirst
do while not provincia_list.eof
%>
<option value="<%=Q%>"><%=(provincia_list.Fields.Item("Pro vincia").Value)%></option>
<%
provincia_list.movenext
Q = Q + 1
loop
%>
</select>

<select name="Comune">
<option value="-1">-- Seleziona Regalo --
<option>
<option>
<option>
<option>
</select>
<script type="text/javascript">
handleChange(-1)
</script>