Problema sul richiamo di una pagina ASP

[vpoppa]

Ho creato una serie di liste dinamiche per l'associazione tra Regione, Provincia e Città.
Ho pubblicato la pagina ASP corrispondente, ma mi hanno contattato alcuni utenti per i quali, una volta selezionata la REGIONE, la pagina non viene ricaricata per calcolare le PROVINCIE associate alla regione scelta.
Qualcuno mi sa dire quale potrebbe essere il problema???
Grazie.

Vincenzo

[Charmin]

MA da dove li carichi i dati, da un DB ? Se si posta la Query

[teorema55]

Mi associo alla richiesta: vediamo il codice.

[vpoppa]

Ecco il codice:

dinselclass.asp

<%
class DinamicSelect

public SelectText 'impostare il nome del campo del database che verrà visualizzato nella lista
public SelectValue 'impostare il nome del campo del database che verrà passato come valore della lista
public Selected 'impostare la voce che verrà visualizzata nella lista al caricamento di pagina
public DataBase 'impostare l'url del database
public sql 'impostare la query per estrarre i dati
public Evento 'impostare l'evento che provvederà al submit "parziale" del form
public NomeCampo 'impostare il nome del campo (nell'ambito del form)

function CreaDinamicSelect()

'creazione e apertura della connessione
set conn=server.createobject("adodb.connection")
conn.open = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath(me.DataBase)

%>
<select name='<%=me.NomeCampo%>' <%=me.Evento%> style="width:290px">
<%
'creazione del recordset
set rs=server.createobject("adodb.recordset")

'apertura del recordset
rs.open me.sql,conn,3,3

if me.NomeCampo = "comuni" then cap = rs("loc_cap")

do until rs.eof

%>
<option value='<%=rs(me.SelectValue)%>' <%if rs(me.SelectValue) = me.selected then
if me.NomeCampo = "comuni" then cap = rs("loc_cap")
response.write("selected")
end if
%>><%=rs(me.SelectText)%></option>

<%
rs.movenext
loop
%>
</select>

<%
'chiusura e distruzione del recordset
rs.close
set rs = nothing

'chiusura e distruzione della connessione
conn.close
set conn = nothing

'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxx
end function


'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxx
end class
%>


immissione_MASK.asp

<tr>
<td><div align="right" class="Stile2">Regione:</div></td>
<td colspan="2"><%
set dinselectregioni = new DinamicSelect
dinselectregioni.DataBase = "RPC.mdb"

if len(reg) > 0 then
dinselectregioni.selected = reg
else
dinselectregioni.selected = "Scegli una regione"
end if

dinselectregioni.sql = "select distinct pr_regione from provincie"
dinselectregioni.SelectValue = "pr_regione"
dinselectregioni.SelectText = "pr_regione"
dinselectregioni.evento = "onChange='aggiorna_regione();'"
dinselectregioni.NomeCampo = "regioni"
dinselectregioni.CreaDinamicSelect()
%></td>
<tr>
<td><div align="right" class="Stile2">Provincia: </div></td>
<td colspan="2"><%
set dinselectprovincie = new DinamicSelect
dinselectprovincie.DataBase = "RPC.mdb"

if len(reg) > 0 then
if len(com) > 0 then 'per aggiornare la provincia al comune eventualmente scelto direttamente tra quelli della regione corrente
dinselectprovincie.sql = "select pr_sigla, pr_desc from provincie inner join comuni on provincie.pr_sigla=comuni.loc_prov where loc_desc='"&com&"' and pr_regione = '"&reg&"'"
else
dinselectprovincie.sql = "select * from provincie where pr_regione='"&reg&"'"
end if
else
dinselectprovincie.sql = "select * from provincie where pr_sigla='--'"
end if

dinselectprovincie.selected = prov

dinselectprovincie.SelectValue = "pr_sigla"
dinselectprovincie.SelectText = "pr_desc"
dinselectprovincie.evento = "onChange='aggiorna_provincia();'"
dinselectprovincie.NomeCampo = "provincie"
dinselectprovincie.CreaDinamicSelect()
%></td>
</tr>
<tr>
<td><div align="right" class="Stile2">Citt&agrave;: </div></td>
<td width="268"><%
set dinselectcomuni = new DinamicSelect
dinselectcomuni.DataBase = "RPC.mdb"

if len(reg) > 0 then
if reg = "Scegli una regione" then 'se viene scelta la voce "Scegli una regione" a pagina già caricata
dinselectcomuni.sql = "select loc_desc, loc_prov, loc_cap from comuni where loc_prov = '--'"
else if not (prov = "--" or prov = "") then 'se è stata selezionata una provincia estrae i comuni di quella provincia
dinselectcomuni.sql = "select loc_desc, loc_prov, loc_cap from comuni where loc_prov = '"&prov&"' order by loc_desc"
else 'estrae tutti i comuni della regione
dinselectcomuni.sql = "select loc_desc, loc_prov, loc_cap from comuni where loc_prov in (select pr_sigla from provincie where pr_regione='"&reg&"') order by loc_desc"
end if
end if
else 'al primo caricamento di pagina
dinselectcomuni.sql = "select loc_desc, loc_prov, loc_cap from comuni where loc_prov = '--'"
end if

dinselectcomuni.selected = com
dinselectcomuni.SelectValue = "loc_desc"
dinselectcomuni.SelectText = "loc_desc"
dinselectcomuni.evento = "onChange='aggiorna_comune();'"
dinselectcomuni.NomeCampo = "comuni"
dinselectcomuni.CreaDinamicSelect()
%></td>
<td width="46"><input name="CAP" type="text" id="CAP" size="3" maxlength="5" readonly value="<%=cap%>"></td>
<td><div align="right">E.MAIL (Casa): </div></td>
<td><input name="EMAIL_CASA" type="text" id="EMAIL_CASA" size="44" maxlength="100" value="<%=email_casa%>"></td>
</tr>

[teorema55]

Uhm.....mi sembra di conoscerlo molto bene.......



qual è il problema?